BAHASA PEMOGRAMAN

Berikut adalah contoh bahasa pemograman dengan pascal 71

Sebuah program perkalian dan pembagian tanpa ( * div & / )

USES CRT;
VAR
BIL1, BIL2, BIL3, SISA, HASIL, HASIL2, I : INTEGER;
ULANG : CHAR;
BEGIN
REPEAT
CLRSCR;
WRITE('KETIK BILANGAN 1 = ');
READLN(BIL1);
WRITE('KETIK BILANGAN 2 = ');
READLN(BIL2);
WRITE('KETIK BILANGAN 3 = ');
READLN(BIL3);

I := 1;
HASIL := 0;
WHILE I <= BIL2 DO
BEGIN
HASIL := HASIL + BIL1;
I := I + 1;
END;


SISA := HASIL;
HASIL2 := 0;
WHILE SISA >= 1 DO
BEGIN
SISA := SISA - BIL3;
HASIL2 := HASIL2 + 1;
END;
WRITELN;
WRITELN(BIL1,' X ',BIL2,' : ',BIL3,' = ',HASIL2);
WRITELN;
WRITELN('MASIH MAU MENGHITUNG LAGI ! ');
WRITE( ' TEKAN HURUF " Y " KALAU YA ');
READLN (ULANG);
UNTIL UPCASE (ULANG) <> 'Y' ;
READLN;

END.

dan yang satu ini dalah contoh program pencari RATA-RATA NILAI


USES CRT;
VAR
JUMLAH, X, RT_RT :REAL;
B_NILAI, I :INTEGER;
JAWAB: CHAR;

BEGIN
REPEAT
CLRSCR;
WRITELN('PROGRAM PENGHITUNG RATA-RATA');
WRITELN;
WRITE('Masukkan banyak data = ');READLN(B_NILAI);
WRITELN;
JUMLAH:= 0;
FOR I := 1 TO B_NILAI DO
BEGIN
WRITE('Masukkan data ke-',I,'= ');readln(x);
jumlah:=jumlah+X
END;
WRITELN;
RT_RT:= JUMLAH/ B_NILAI;
WRITE('RATA-RATANYA ADALAH =',RT_RT:0:2);
WRITELN;
WRITELN('Jika Anda ingin mengulang tekan hurup "U,');
WRITELN;
WRITE('Jika tidak tekan sembarang : ');readln(jawab);
UNTIL (JAWAB <>'U');
READLN;
end.



BERIKUT ADALAH PROGRAM PENGHITUNG HARI

uses crt;
const
satuhari = 60 * 60 * 24;
var
detik : longint;
hr, jam, mn, dt : integer;
jawab : char;
begin
clrscr;
repeat
writeln(' ================================== ');
writeln(' PROGRAM PENGHITUNG HARI ');
WRITELN(' ##################################### ');
writeln;
write('Masukkan waktu (detik) = '); readln(detik);
writeln(detik,'detik terdiri dari :');

hr := detik div satuhari;
detik := detik - hr * satuhari;

jam := detik div 3600;
detik := detik - jam * 3600;

mn := detik div 60;
dt := detik - mn * 60;

writeln (hr,'hari');
writeln (jam,'jam');
writeln (mn,'menit');
writeln (dt,'detik');
writeln;
write('jika ingin mengulang tekan "u".....! '); readln(jawab);
until (jawab) <> 'u';
readln

end.


SELAMAT MENCOBA DI BAHASA PEMOGRAMAN PASCAL 71