latihan 2

BUAT PROGRAM UNTUK MENENTUKAN BILANGAN YANG PALING BESAR DARI 3 INPUT BILANGAN;
COTOH;
MISALKAN;
BILANGAN 1=6
BILANGAN 2=8
BILANGAN 3=5
MAKA BILANGAN YANG PALING BESAR ADALAH = BILANGAN 2 BERNILAI 8

program casel

Program case1;
Uses Crt;
Var angka : integer;
Begin
Write(‘Masukan angaka 1,2,atau 3’);
Readln(angka);
Case angka of
1:writeln(‘anda menekan angka1’);
2:writeln(‘anda menekan angka2’);
3:writeln(’anda menekan angka3’);
else
writeln(’anda salah memasukkan angka’);
End;
Readln;
End.

program contoh

Program Contoh_While_Do;
Uses winCrt;
Var i: integer;
Begin
i:=1;
While i<=10 do
Begin
Writeln('Aku ....... Kamu!');
i:=i+1;
End;
readln;
End.

comtoh penggunaan