Rabu, 13 April 2016

Program pascal 4

1.      Program Function
Program Function;
uses crt;
procedure Menu;
begin
      writeln('Menu Program');
      writeln('1. Luas Segitiga');
      writeln('2. Keliling Kegitiga');
      writeln('3. Luas Persegi');
      writeln('4. Keliling Persegi');
      writeln('5. Luas Lingkaran');
      writeln('6. Keliling Lingkaran');
      writeln('7. Luas Trapesium');
      writeln('8. Keliling Trapesium');
end;

//Luas Segitiga
function luasSegitiga(alas,tinggi:integer): real;
begin
      LuasSegitiga:=0.5*alas*tinggi;
end;
procedure LuasSegitiga;
var x,y:integer;
begin
clrscr;
      writeln('LUAS SEGITIGA');
      writeln('====================');
      write('Masukan Alas : '); readln(x);
      write('Masukan tinggi : '); readln(y);
      writeln;
      writeln('Jadi Luas Segitiga adalah : ',LuasSegitiga(x,y):3:2);   
end;

//Keliling Segitiga
function kelilingSegitiga(alas,tinggi,sisimiring:integer):real;
begin
      KelilingSegitiga:=alas+tinggi+sisimiring;
end;
procedure KelilingSegitiga;
var x,y,z:integer;
begin
clrscr;
      writeln('KELILING SEGITIGA');
      writeln('=================');
      write('Masukkan Alas : '); readln(x);
      write('Masukkan Tinggi : '); readln(y);
      write('Masukan Sisi Miring : '); readln(z);
      writeln;
      writeln('Jadi Keliling Segitiga adalah : ',KelilingSegitiga(x,y,z):3:2);     
end;

//Luas Persegi
function LuasPersegi(sisi:integer): real;
begin
      LuasPersegi:=sisi*sisi;
end;
Procedure LuasPersegi;
var
x:integer;
begin
clrscr;
      writeln('LUAS PERSEGI');
      writeln('====================');
      write('Masukan Sisi : '); readln(x);
      writeln;
      writeln('Jadi Luas Persegi : ',LuasPersegi(x):3:2);  
end;

//Keliling Persegi
function KelilingPersegi(sisi:integer): real;
begin
      KelilingPersegi:=4*sisi;
end;
Procedure KelilingPersegi;
var
x:integer;
begin
clrscr;
      writeln('KELILING PERSEGI');
      writeln('================');
      write('Masukan Sisi : '); readln(x);
      writeln;
      writeln('Jadi Keliling Persegi : ',KelilingPersegi(x):3:2);
end;

//Luas Lingkaran
function LuasLingkaran(jari_jari:integer): real;
begin
      LuasLingkaran:=3.14*jari_jari*jari_jari;
end;
Procedure LuasLingkaran;
var
x:integer;
begin
clrscr;
      writeln('LUAS LINGKARAN');
      writeln('====================');
      write('Masukan Jari-Jari : '); readln(x);
      writeln;
      writeln('Jadi Luas Lingkaran : ',LuasLingkaran(x):3:2);    
end;

//Keliling Lingkaran
function kelilingLingkaran(diameter:integer): real;
begin
      KelilingLingkaran:=3.14*diameter;
end;
Procedure KelilingLingkaran;
var
x:integer;
begin
clrscr;
      writeln('KELILING LINGKARAN');
      writeln('====================');
      write('Masukan diameter : '); readln(x);
      writeln;
      writeln('Jadi Keliling Lingkaran adalah : ',KelilingLingkaran(x):3:2); 
end;

//Luas Trapesium
function luasTrapesium(sisi_a,sisi_b,tinggi:integer): real;
begin
      LuasTrapesium:=(sisi_a+sisi_b)*tinggi/2;
end;
Procedure LuasTrapesium;
var
x,y,z:integer;
begin
clrscr;
      writeln('LUAS TRAPESIUM');
      writeln('==============');
      write('Masukan sisi a : '); readln(x);
      write('Masukan sisi b : '); readln(y);
      write('Masukan tinggi : '); readln(z);
      writeln;
      writeln('Jadi Luas Trapesium adalah  : ',LuasTrapesium(x,y,z):3:2);    
end;

//Keliling Trapesium
function kelilingTrapesium(sisi_a,sisi_b,sisimiring:integer): real;
begin
      KelilingTrapesium:=sisi_a+sisi_b+(sisimiring*2);
end;
Procedure KelilingTrapesium;
var
x,y,z:integer;
begin
clrscr;
      writeln('LUAS TRAPESIUM');
      writeln('==============');
      write('Masukan sisi a : '); readln(x);
      write('Masukan sisi b : '); readln(y);
      write('Masukan sisi miring : '); readln(z);
      writeln;
      writeln('Jadi Keliling Trapesium adalah  : ',KelilingTrapesium(x,y,z):3:2);     
end;

var
pil:byte;
begin
clrscr;
      menu;
      write('Pilih Menu Yang Anda Inginkan : '); readln(pil);
      case pil of
      1 : LuasSegitiga;
      2 : KelilingSegitiga;
      3 : LuasPersegi;
      4 : KelilingPersegi;
      5 : LuasLingkaran;
      6 : KelilingLingkaran;
      7 : LuasTrapesium;
      8 : KelilingTrapesium;
end;
end.




1.  Luas Segitiga
 
2.  Keliling Segitiga
 
3.  Luas Persegi
 
4.  Keliling Persegi
 
5.  Luas Lingkaran

6.  Keliling Lingkaran
 
7.  Luas Trapesium
 


8.  Keliling Trapesium
   



Program pascal 3

1.      Program Perulangan 1
Program Perulangan1;
uses crt;
var n : integer;
begin
write('Jumlah Perulangan= '); readln(n);
repeat
      writeln(n,'. ','Saya Belajar Pascal');
      n:=n+1;
until n>=11;
end.
                                    (Minggu,8 November 2015)


2.      Program Perkalian
Program Perkalian;
uses crt;
var a,b,c:integer;
ulang:char;
begin
repeat
begin
            write('masukkan angka pertama= ');readln(a);
            write('masukkan angka kedua= ');readln(b);
            c:=a*b;
            writeln('Hasil Perkaliannya adalah: ',c);
end;
write('anda ingin mengulang(y/t): '); readln(ulang);
until (ulang='t');
end.
                                    (Senin, 9 November 2015)


3.      Program Tebak Angka
Program TebakAngka;
uses crt;
var kunci,angka:byte;
      ulang:char;
begin
repeat
kunci:=random(5);
      repeat
            write('masukkan angka= '); readln(angka);
      until (kunci=angka);
            begin
                  writeln('selamat anda berhasil');
            end;
write('anda ingin mengulang(y/t): '); readln(ulang);
until(ulang='t');
end.

                                    (Senin, 9 November 2015)

4.      Program Perulangan 4
Program Perulangan4;
uses crt;
var n:integer;
begin
write('Jumlah Perulangan= '); readln(n);
while n<=10 do
     begin
     Writeln(n,'. ','Saya Harus Sukses');
     n:=n+1;
     end;
end.
                                                                        (Selasa, 10 November 2015)
5.      Program Kelipatan5
Program Kelipatan5;
uses crt;
var a:integer;
ulang:char;
begin
repeat
a:=5;
     while a<=50 do
           begin
           writeln(a);
           a:=a+5
           end;
write('apakah anda ingin mengulang(y/t): '); readln(ulang);
until(ulang='t')
end.
(Selasa, 10 November 2015)

6.      Program Perulangan 6
Program Perulangan6;
uses crt;
var n:integer;
begin
for n:=1 to 5 do
     begin
     write(n,'. ');
     writeln('Saya');
     writeln('Belajar');
     writeln('Pascal');
     writeln;
     end;
end.
 
                                (Rabu,11 November 2015)

7.      Program Perulangan 7
Program Perulangan7;
uses crt;
var n:integer;
begin
for n:=5 downto 1 do
     begin
     write(n,'. ');
     writeln('Saya');
     writeln('Belajar');
     writeln('Pascal');
     writeln;
     end;
end.

                                  (Kamis,12 November 2015)
















Program pascal 2

1.      Program Hitung Campuran
program HitungCampuran;
uses crt;
var jawab:integer;
begin
write('5 x 7 + 5 / 4 =');readln(jawab);
If jawab=10 Then
Writeln('Selamat Jawaban Anda Benar')
else
writeln('Coba Lagi, Jawaban Anda Masih Salah');
end.



                                    (Minggu, 18 0ktober 2015)

2.      Program Campuran
Program Campuran;
uses crt;
var bil1,bil2:real;
    op:char;
begin
write('masukkan bilangan 1: '); readln(bil1);
write('masukkan bilangan 2: '); readln(bil2);
write('operator" + - * / ": '); readln(op);
case op of
      '+'   :writeln(bil1+bil2:2:2);
      '-'   :writeln(bil1-bil2:2:2);
      '*'   :writeln(bil1*bil2:2:2);
      '/'   :writeln(bil1/bil2:2:2);
      else
      writeln('salah operator');
      end
end.
 
                                          (Senin, 19 Oktober 2015)

3.      Program Penyewaan
program PenyewaanMobil;
uses crt;
var   harga,hari:real;
      nama:string;
begin
harga:=200000;
write('Nama Penyewa : ');readln(nama);
write('Jumlah Hari : ');readln(hari);
if (hari<=1)then
      begin
      harga:=harga;
      writeln('harga :Rp.',harga:2:2);
      end
else if (hari=2)then
      begin
      harga:=harga*2;
      writeln('harga :Rp.',harga:2:2);
      end
else if (hari=3)then
      begin
      harga:=harga*3;
      writeln('harga :Rp.',harga:2:2);
      end
else
      begin
      writeln('TIDAK BOLEH LEBIH DARI 3 HARI');
      end;
end.   
 
                                                                        (Selasa, 20 Oktober 2015)      

4.      Program Bilangan Ganjil dan Genap
Program BilanganGanjildanGenap;
uses crt;
var n:integer;
begin
write('masukkan bilangan ='); readln(n);
if n mod 2=0 then
writeln('Termasuk Bilangan Genap')
else
writeln('Termasuk Bilangan Ganjil');
end.
 
                                                                        (Rabu, 21 Oktober 2015)

5.      Program Sudut Segitiga
program SudutSegitiga;
uses crt;
var a,b,c:integer;
begin
 write('Masukkan Panjang Sisi A: ');readln(a);
 write('Masukkan Panjang Sisi B: ');readln(b);
 write('Masukkan Panjang Sisi C: ');readln(c);
 writeln;

 if (c=a+b) then
      begin
      writeln('Sisi Tersebut Membentuk: Segitiga Siku-Siku')
      end
 else if c>a+b then
      begin
      writeln('Sisi Tersebut Membentuk: Segitiga Tumpul');
      end
 else if c<a+b then
      writeln('Sisi Tersebut Membentuk: Segitiga Lancip');
end.
 
                                                                                    (Rabu, 21 Oktober 2015)

6.      Program Beasiswa
Program Beasiswa;
uses crt;
var test:integer;
    ket:String;
begin
write('Masukkan Nilai Test: '); readln(test);
case test of
90..100 : ket:= 'Kategori 1 ( Beasiswa 100% )';
80..89  : ket:= 'Kategori 2 ( Beasiswa 70% )';
70..79  : ket:= 'Kategori 3 ( Beasiswa 50% )';
else
ket:= 'Anda tidak mendapat Beasiswa';
end;
writeln(ket);
end.

 
                                         (Kamis,22 Oktober 2015)




7.       Program Jadwal Kuliah
program JadwalKuliah;
uses crt;
var
    hari:string;
begin
     write('masukan hari= '); readln(hari);
     case hari of
           'senin':writeln('Jadwal Senin: Agama,Pendidikan Pancasila');
           'selasa':writeln('Jadwal Selasa: Organisasi Komputer, Dasar Sistem Komputer');
           'rabu':writeln('Jadwal Rabu: Ilmu Sosial Dasar');
           'kamis':writeln('Jadwal Kamis: Logika Informatika, Pengantar Pendidikan');
           'jumat':writeln('Jadwal Jumat: Pemrograman Dasar, Kalkulus');
      else
      writeln('Tidak Ada kuliah');
      end    
end.
 
                                          (Kamis, 22 Oktober 2015)


Langganan: Postingan (Atom)