PASCAL BILANGAN POSITIP NEGATIP

1.MENENTUKAN BILANGAN POSITIP
Program Bil_positip;
uses crt;
var
x:integer;
begin
CLRSCR;
readln(x);
if x>0 then
write(x, 'adalah bil. positip');
readln;
end.

2.MENENTUKAN BILANGAN POSITIP ATAU NEGATIP
Program Positip_Negatip;
Uses crt;
var x:integer;

Begin
clrscr;
readln(x);
if x>0 then
write(x,' adalah bil. positip')
else
write(x,' adalah bil. negatip');
readln;
end.


3.MENENTUKAN NILAI AKHIR UJIAN ANTARA 0 s/d 100 YANG DI KONVERSI ANTARA E s/d A
program nilai_ujian;
uses crt;
var
na:integer;
begin
clrscr;
write('Hasil Nilai Ujian:');
readln(na);
case na of
85..100:writeln('nilai anda=A');
71..84:writeln('nilai anda=B');
56..70:writeln('nilai anda=C');
46..55:writeln('nilai anda=D');
0..45:writeln('nilai anda=E');
else
writeln('Masukkan nilai antara 0 s/d 100!');
end;
readln;
end.