Program Pengulangan (LooP)

1). PERULANGAN FOR TO DO
PROGRAM PERULANGAN;
USES WINCRT;
VAR A:INTEGER;
BEGIN
FOR A:=1 TO 10 DO
WRITELN('BANGGA PRATAMA');
END.

2) PERULANGAN WHILE DO
PROGRAM PERULANGAN_WHILE_DO;
USES WINCRT;
VAR A:INTEGER;
BEGIN
A:=1;
WHILE A
BEGIN
WRITELN('TUGAS PASCAL');
A:=A+1;
END;
END.

3). PERULANGAN FOR DOWNTO DO
PROGRAM PERULANGAN_FOR_DOWNTO_DO;
USES WINCRT;
VAR A:INTEGER;
BEGIN
FOR A:= 10 DOWNTO 1 DO
WRITELN(A);
END.

4). PERULANGAN FOR TO DO BERSARANG
PROGRAM PERULANGAN_FOR_TO_DO_BERSARANG;
USES WINCRT;
VAR A,B:INTEGER;
BEGIN
FOR A:= 1 TO 10 DO
FOR B:= 1 TO 5 DO
WRITELN(A,' ',B);
END.

5) WHILE DO BERSARANG
PROGRAM WHILE_DO_BERSARANG;
USES WINCRT;
VAR
A,B:INTEGER;
BEGIN
CLRSCR;
A:=1;
B:=1;
WHILE A
BEGIN
A:=A+1;
WHILE B
BEGIN
WRITE(A:4,B:2);
B:=B+1;
END;
END;
END.

6) REPEAT UNTIL
PROGRAM REPEAT_UNTIL;
USES WINCRT;
VAR
A,B:INTEGER;
BEGIN
A:=1;
REPEAT
B:=1;
REPEAT
WRITELN('[',A,',',B,']');
B:=B+1;
UNTIL B >4;
A:=A+1;
UNTIL
A >2
END.

Ini dia PrograM kelulusan yg Sempurna ( if then else, while..do.)

uses wincrt;
var
x,y,totalxy : real;
lagi : char;
nama,keterangan,pesan : string[20];

begin
lagi := 'y';
while (lagi = 'y') or (lagi = 'Y') do
begin

write('Masukan Nama Anda : '); readln(nama);
writeLn;
write('Hallo ',nama,', Coba kamu');
WriteLn(' masukan nilai x,y');
write('masukan nilai x..= '); ReadLn(x);
write('masukan nilai y..= '); ReadLn(y);
writeLn;
Writeln ('================================');
x:=x*60/100;
write ('nilaix: ');
writeln (x:2:2);
Writeln ('================================');
y:=y*40/100;
write ('nilaiy: ');
writeln (y:2:2);
Writeln ('================================');
totalxy:=x+y;
write ('total_Nilaixy : ');
writeln (totalxy:2:2);
Writeln ('================================');
if (totalxy> 80) then
begin
keterangan := 'Anda Lulus';
pesan :='Selamat dan Pertahankan!';
end
else if (totalxy>= 60)and(totalxy
begin
keterangan :='Anda Cadangan';
pesan :='Tingkatkan lagi belajarnya';
end
else
begin 
keterangan :='Tidak Lulus';
pesan:='Jangan Menyerah yO.. Coba Lagi';

end; 
write ('Hasil : ');
writeln (keterangan);
write ('Saran: ');
writeln (pesan);
writeLn;
write('Mau hitung lagi apa tidak (y/t), ',nama,' ? ');
readLn(lagi);
writeln ('-------------------------------------------------------------');
end;
end.

Program Menghitung Jarak (paScaL)

Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

Program KonveRsi Suhu (pasCaL)

Program Konversi_Suhu;
Uses WinCrt;
var f,c:real;
begin
Writeln('Program Konversi Fareinheit Ke Celcius');
Writeln('======================================');
Writeln;
Write('Masukan Suhu dalam Farenheit: ');readln(f);
c:=5/9*(f-32);
Writeln;
Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);
end.

PrograM koNversI waKtu (pascaL)

Program Konversi_Waktu;
Uses Wincrt;
Var j,m,d,h:integer;
begin
Writeln('Program Konversi Waktu');
Writeln('======================');
Writeln;
Write('Masukkan Jumlah Jam : ');readln(j);
Write('Masukkan Jumlah Menit : ');readln(m);
Write('Masukkan Jumlah Detik : ');readln(d);
Writeln;
h:=(j*3600)+(m*60)+d;
Writeln('Jadi Hasil Konversi : ',h,' Detik');
end.

Program menghitung selisih waKtu (pascal)

Program Menghitung_Selisih_Waktu;
Uses WinCrt;
Var j,m,d,h,j1,m1,d1,h1,hj,hm,sl,sisa,sisa1:longint;
Begin
Writeln('Program Menghitung Selisih Waktu');
Writeln('================================');
Writeln;
Write('Waktu ke-1 jam : ');readln(j);
Write('Waktu ke-1 Menit : ');readln(m);
Write('Waktu ke-1 Detik : ');readln(d);
Writeln('================================');
Write('Waktu ke-2 jam : ');readln(j1);
Write('Waktu ke-2 Menit : ');readln(m1);
Write('Waktu ke-2 Detik : ');readln(d1);
h:=(j*3600)+(m*60)+d;
h1:=(j1*3600)+(m1*60)+d1;
sl:=h1-h;
if (sl/3600)>0 then
begin
hj:=sl div 3600;
sisa:=sl-(hj*3600);
end
else
begin
hj:=0;
sisa:=sl;
end;
if (sisa/60)>0 then
begin
hm:=sisa div 60;
sisa1:=sisa-(hm*60);
end
else
begin
hm:=0;
sisa1:=sisa;
end;
Writeln;
Writeln('Selisih Waktu: ',hj,' jam ',hm,' Menit ',sisa1,' Detik');
End.
Output:
Program Menukar_Nilai;
Uses WinCrt;
var A,B,C:integer;
Begin
Writeln('Program Menukar Nilai A Menjadi B');
Writeln('=================================');
Writeln;
Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Writeln;
C:=A;
A:=B;
B:=C;
Writeln;
Writeln('Hasil A=',A,' B=',B);
End.

proGram menguruTkan Bilangan (pascaL)

Program Urut_Bilangan;
Uses Wincrt;
Var A,B,C:integer;
Begin
Writeln('Program Mengurut Bilangan');
Writeln('=========================');
Writeln;
Write('Masukkan Nilai A: ');readln(A);
Write('Masukkan Nilai B: ');readln(B);
Write('Masukkan Nilai C: ');readln(C);
Writeln;
if (A
if (B
Writeln(A,' ',B,' ',C)
else
Writeln(A,' ',C,' ',B)
else if (B
if (A
Writeln(B,' ',A,' ',C)
else
Writeln(B,' ',C,' ',A)
else if (C
if (A
Writeln(C,' ',A,' ',B)
else
Writeln(C,' ',B,' ',A)
End.

the program calculates the distance

Program Menghitung_Jarak;
Uses WinCrt;
var
x1,x2,y1,y2:integer;
d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
end.

Two matrix multiplication program

uses wincrt;
var
a,b,c : array [1..3,1..3] of integer;
i,j,k : integer;

begin
 writeln ('masukan nilai matriks a:');
 for i:=1 to 3 do
  for j:=1 to 3 do
 begin
  write ('data ke_',i,',',j,':');
  readln ( a [i][j]);
 end;

 writeln ('==============');
 writeln ('masukan nilai matriks b:');
 for i:=1 to 3 do
  for j:=1 to 3 do
  begin
  write ('data ke-',i,',',j,':');
  readln (b [i][j]);
  end;

 writeln ('==============');
 writeln (' hasil perkalian matriks a dengan matriks b :');
 for i:= 1 to 3 do
  begin
  for j := 1 to 3 do
  begin
  for k := 1 to 3 do
  c [i,j]:=c[i,j]+a[i,k]*b[k,j];
  write (c [i] [j]:4);
  end;
  writeln;
  end;

end.