Program Perhitungan Pascal

Program Perhitungan;
uses wincrt;
label
     lagi;
var p,l,a,t,s1,s2,s3,x,n : integer;
    tanya: char;
    luas, kll   : real;

begin
clrscr;
lagi:
clrscr;
GotoXY(25,3); writeln ('Macam-macam Perhitungan');
GotoXY(15,4); writeln ('*========================================*');
GotoXY(15,5); writeln ('1.Hitung Luas dan Keliling Persegi Panjang');
GotoXY(15,6); writeln ('2.Hitung Luas dan Keliling Segitiga       ');
GotoXY(15,7); writeln ('3.Hitung Cetak bilangan Genap/Ganjil      ');
GotoXY(15,8); writeln ('==========================================');

GotoXY(15,9); write ('Pilihan Anda: '); readln (n);
writeln;

         if n=1 then
         begin
          clrscr;
           writeln ('Menghitung Luas dan Keliling Persegi Panjang');
           writeln ('============================================');
           write ('Panjang:  '); readln(p);
           write ('Lebar:    '); readln(l);
             luas:=p*l ;
             kll :=2*(p*l);
           writeln ('Luas= ',luas:2:2);
           writeln ('Keliling= ',kll:2:2);
             readln;
        end
      else
      if n=2 then
      begin
      clrscr;
       writeln ('Hitung Luas dan Keliling Segitiga');
       writeln ('=================================');
       write('alas     : '); readln(a);
       write('Tinggi   : '); readln(t);
         luas := (a*t)/2;
         kll :=s1+s2+s3;
       writeln ('Luas     : ',luas:2:2);
       writeln ('Keliling : ',kll:2:2);
readln;
end
else

    if n=3 then
    begin
    clrscr;
       writeln('Cetak Bilangan Genap/Ganjil');
       writeln('==================================');
       write('Bilangan : '); readln(x);
       if x mod 2=0 then
           writeln(x,' adalah bilangan Genap')
       else
           writeln(x,' adalah bilangan Ganjil');
  readln;
  end
  else
  begin
       Gotoxy(20,16); writeln('Pilihan Anda Tidak ada di Menu...');
  end;

       writeln;
       write ('Mau menghitung lagi [Y/T] ? '); readln(tanya);
  if tanya=upcase('y') then
  begin
       clrscr;
       goto lagi;
  end
  else
       clrscr;
       gotoxy(30,10); writeln ('Terima Kasih ^_^');
  readln;
end.

Hasilnya : 

 

Download source code and demo Program-Perhitungan Pascal (8.56 KB)

Related Post