Contoh program Pascal

TUGAS 2 PROKOM 1

1.Menghitung Luas Bujur sangkar.
program Luas_Bujur_Sangkar;
uses wincrt;

var s,L:Real;
begin
write('Masukkan ukuran sisi bujur sangkar=');
readln(s);
L:=s*s;
writeln('Luas bujur sangkar=' , L :0 :0);
end.

2.Menghitung Volum Kerucut

program Volume_Kerucut;
uses wincrt;
const phi=3.14;
var r,t,V:Real;
begin
write('Masukkan Jari-Jari=');
readln(r);
write('Masukkan Tinggi Kerucut=');
readln(t);
V:=1/3*phi*r*r*t;
writeln('Volume Kerucut=' , V :0 :0);
end.

3.Menentukan Kelulusan
a.If ...then
program kelulusan;
uses wincrt;
var
nilai:longint;
keterangan:string;
begin
keterangan:='tidak lulus';
write('Tentukan kelulusan untuk skor= ');
read(nilai);
if nilai >50 then keterangan:='lulus';
writeln(keterangan);
writeln('jadi jika mendapat skor ',nilai,' maka ',keterangan);
end.


b.Case of
program kelulusan;
uses wincrt;
var
nilai:longint;
keterangan:string;
begin
write('Tentukan kelulusan untuk skor= ');read(nilai);
case nilai of
51..100:keterangan:='lulus';
0..50:keterangan:='tidak lulus';
end;
writeln(keterangan);
writeln('Jadi jika mahasiswa mendapat skor ',nilai,' maka ',keterangan);
end.

4.Menentukan Nilai
a.if....then
program penilaian;
uses wincrt;
var
nilai:longint;
ket:string;
begin
write('Tentukan nilai untuk skor= ');read(nilai);
begin
if (86<= nilai) and (nilai <=100) then writeln ('nilainya A'); if (76<= nilai) and (nilai <=85) then writeln ('nilainya B'); if (61<= nilai) and (nilai <=75) then writeln ('nilainya C'); if (51<= nilai) and (nilai <=60) then writeln ('nilainya D'); if (0<= nilai) and (nilai <=50) then writeln ('nilainya E'); end; end. b.case...of program penilaian; uses wincrt; var nilai:longint; keterangan:string; begin write('Tentukan penilaian untuk skor= ');read(nilai); case nilai of 86..100:keterangan:='nilainya A'; 76..85:keterangan:='nilainya B'; 61..75:keterangan:='nilainya C'; 51..61:keterangan:='nilainya D'; 0..50:keterangan:='nilainya E'; end; writeln(keterangan); writeln('Jadi jika mahasiswa mendapat skor ',nilai,' maka ',keterangan); end. 5.Menampilkan Bilangan a.for...do program bilangan; uses wincrt; var i:integer; begin for i:=1 to 10 do writeln(i) end. b.while..do program bilangan; Uses wincrt; Var i:integer; begin i:=1; while i<=10 do begin writeln(i); i:=i+1; end; end. c.repeat...until program bilangan; Uses wincrt; Var i:integer; begin i:=1; repeat writeln(i); i:=i+1; until i>10;
end.


6.Menampilkan Kalimat “Program Studi Matematika”
a.for...do
program pengulangan;
uses wincrt;
var
i,n:integer;
begin
write('banyak pengulangan=');readln(n);
for i:=1 to n do writeln('Program Studi Matematika');
end.

b.while...do
program pengulangan;
Uses wincrt;
Var
i,n:integer;
begin
write('banyak pengulangan=');read(n);
i:=1;
while i<=n do begin writeln('Program Studi Matematika'); i:=i+1 end; end. c.repeat...until program pengulangan; Uses wincrt; Var i,n:integer; begin write('banyak pengulangan= ');read(n); i:=1; repeat writeln('Program Studi Matematika'); i:=i+1; until i>n;
end.