Algoritma pemrograman pascal

 

 ALGORITMA PEMROGRAMAN PASCAL

 

1.      Program Kelulusan

program Kelulusan;

uses crt;

var a,b,c,d:real;

      e:boolean

begin

   clrscr;

   write(‘Masukkan Nilai Bahasa Indonesia=’);

   readln(a);

   write(‘Masukkan Nilai Matematika=’);

   readln(b);

  write(‘Masukkan Nilai Bahasa Inggris=’);

  readln(c);

  d:=(a+b+c)/3;

  writeln(‘Nilai rata-rata=’,d:2:2);

  e:=(d>65)and(a>=60)and(b>=60)and(c>=60);

  IF e=TRUE then write(‘Status kelulusan = LULUS’);

  IF e=FALSE then write(‘Status kelulusan = TIDAK LULUS’);

  readln;

end.

 

 

2.      Program Segitiga

program segitiga;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('masukkan sisi a=');

readln(a);

write('masukkan sisi b=');

readln(b);

write('masukkan sisi c=');

readln(c);

if (a+b<=c) then writeln('bukan segitiga')

else

if(c*c<a*a+b*b) then writeln('jenis segitiga = segitiga lancip')

else if(c*c=a*a+b*b) then writeln('jenis segitiga = segitiga siku-siku')

else if(c*c>a*a+b*b) then writeln('jenis segitiga = segitiga tumpul');

readln;

end.

 

3.      Menghitung Bangun Ruang

program  menghitung_volume_bangun_ruang;

uses crt;

const phi= 3.14;

var

  t.l.p,r,s:real;

  code:integer;

  volumekubus,volumebalok,volumetabung,volumekerucut,volumebola:real;

begin

 clrslr;

 writeln(‘Pilihan Bangun Ruang’);

writeln(‘(1) Kubus’);

writeln(‘(2) Balok’);

writeln(‘(3) Tabung’);

writeln(‘(4) Kerucut’);

writeln(‘(5) Bola’);

writeln(‘(6) SELESAI’);

writeln(‘                    ‘);

write(‘masukkan kode’);

readln(code);

writeln(‘                      ‘);

if (code=1) then

 begin

writeln(‘Menghitung Volume Kubus’);

write(‘Masukkan Panjang Sisi’);

readln(s);

volumekubus:=s*s*s;

write(‘volume kubus’,volumekubus:10:2);

readln(volumekubus);

end else

if (code=2) then

 begin

writeln(‘Menghitung Volume Balok’);

write(‘Masukkan Panjang Balok’);

readln(p);

write(‘Masukkan Lebar Balok’);

readln(l);

write(‘Masukkan Tinggi Balok’);

readln(t);

volumebalok:=t*l*p;

write(‘volume balok’,volumebalok:10:2);

readln(volumebalok);

end else

if (code=3) then

 begin

writeln(‘Menghitung Volume Tabung’);

write(‘Masukkan jari-jari Tabung’);

readln(r);

write(‘Masukkan Tinggi Tabung’);

readln(t);

volumetabung:=phi*r*r*t;

write(‘volumetabung’,volumetabung:10:2);

readln(volumetabung);

end else

if (code=4) then

 begin

writeln(‘Menghitung  Volume Kerucut’);

write(‘Masukkan jari-jari Kerucut’);

readln(r);

write(‘Masukkan Tinggi Kerucut’);

readln(t);

volumekerucut:=1/3*phi*r*r*t;

write(‘volumekerucut’,volumekerucut:10:2);

readln(volumekerucut);

end else

if (code=5) then

 begin

writeln(‘Menghitung  Volume Bola’);

write(‘Masukkan jari-jari Bola’);

readln(r);

volumebola:=4/3*phi*r*r*r;

write(‘volumebola’,volumebola:10:2);

readln(volumebola);

end else

if (code=6) then

begin

writeln(‘Selesai’);

end

end.