Program Pascal Sederhana

Program Menghitung_Luas;

uses wincrt;

Var P, L, Luas :Real;

Begin

writeln('Program Menghitung Luas Persegi Panjang');

writeln('=======================================');

write('Panjang = ');

readln(P);

write('Lebar = ');

readln(L);

writeln;

Luas:=P*L;

writeln('Jadi Luasnya=',Luas:0:2);

readln;

End.

 

Program Menghitung_Volume_Luas_Permukaan_Bola;

uses wincrt;

Var Luas,R,V :Real;

Begin

writeln('Program Menghitung_Volume_Luas_Permukaan_Bola');

write('Jari-jari = '); {Masukan Nilai Jari2}

readln(R);

Luas:=4*pi*R*R;

V:=4/3*pi*R*R*R;

writeln('Jadi Volumenya = ',V:0:2);

writeln('Jadi Luasnya = ',Luas:0:2);

readln;

End.

 

program menentukan_positif_negatif;

uses wincrt;

var pos,neg,data : integer;

Begin

Repeat

write('Data = ');readln(data);

if (data>0) then inc(pos);

if (data<0) then inc(neg);

until (data=0);

Writeln('Nilai Positifnya = ',pos);

Writeln('Nilai negatifnya = ',neg);

end.