Program Pencari Biaya Dan Grade

uses crt;
var
nilai:byte;
begin
clrscr;
Write('masukkan Nilai anda =');Readln(nilai);

if nilai>0 then
begin
Writeln('GRADE = O ');
Writeln('Besar biaya = Rp.550000');
end
else

if nilai<=1 then begin Writeln('GRADE = E '); Writeln('Besar biaya = Rp.450000'); end else if nilai<=40 then begin Writeln('GRADE = D'); Writeln('Besar biaya = Rp.350000'); end else if nilai<=60 then begin Writeln('GRADE = C'); Writeln('Besar biaya = Rp.250000'); end Else if nilai<=70 then begin Writeln('GRADE = B'); Writeln('Besar biaya = Rp.150000'); end else begin If nilai >=100 then
Writeln('GRADE = A');
Writeln('Besar biaya = Rp.50000');
end;
readln;
end.

Program Pencari Predikat

USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.

Konversi bilangan Desimal Ke Biner

USES CRT;
VAR Des:integer;
Bin:string;
begin
clrscr;
writeln('PROGRAM KONVERSI MENGUBAH BILANGAN DECIMAL KE BINER');
write('Masukkan bilangan Decimal=');
readln(Des);
Bin:=’’;
repeat
begin

{menghitung biner dari hasil bagi}

If Des mod 2=0 then Bin:='0'+Bin
else Bin:='1'+Bin;

{membagi bulat bilangan desimal}

Des:= Des div 2;
end;
Until Des=0;
Writeln('Bilangan Biner =',Bin);
readln;
end.

Membuat Tulisan Berjalan Pada Pascal

uses crt;

var

x,y:byte;

begin

clrscr;

x:=1;

y:=5;

repeat

delay(200);

gotoxy(x-1,y);write(' ');

gotoxy(x,y);write('maju');

x:=x+1;

until(x>25);

x:=25;

y:=10;

repeat

delay(200);

gotoxy(x+15,y);write(' ');

gotoxy(x,y);write('mundur');

x:=x-1;

until(x=1);

x:=1;

y:=12;

repeat

delay(200);

gotoxy(x,y-1);write(' ');

gotoxy(x,y);write('bawah');

y:=y+1;

until(y>25);

x:=20;

y:=25;

repeat

delay(200);

gotoxy(x,y+1);write(' ');

gotoxy(x,y);write('atas');

y:=y-1;

until(y<11);

readln;

end.

Keterangan :
KSetelah Program dijalankan, maka kata atas akan bergerak keatas dan seterusnya,
X dan Y adalah letak koordinat kata yang akan dibuat berjalan


Selamat mencoba