TUGAS KELAS G BAGIAN II

MENGGUNAKAN WHILE...DO
program angka;
uses wincrt;
var
i:integer;
begin
i:=10;
while i>2 do begin
i:=i-2;
writeln(i);
end;

hasil running program :

MENGGUNAKAN PROCEDURE DAN FUNCTION
Program fungsi1;
Uses winCrt;
var x, y, z: Real;                                                  {Variabel global}
FUNCTION kali (A,B : Integer) integer;            {mulai fungsi kali}
Var Hasil : integer;                                      {Variabel lokal}
Begin
   Hasil := A * B;
   kali := Hasil;
END;                                      { akhir fungsi kali}
Begin                                      {Program utama}                               
   ClrScr;
   x:= 2;
   y:= 5;
   z := x + y;
  Writeln (z);
  Writeln (kali(2, 5));
  Readln;
End.

hasil running program function

program hitung2;

uses wincrt;

function jumlah(var1,var2:integer):integer;
begin
jumlah:=var1+var2;
end;
function kurang(var1,var2:integer):integer;
begin
kurang:=var1-var2;
end;
function kali(var1,var2:integer):integer;
begin
kali:=var1*var2;
end;
function bagi(var1,var2:integer):real;
begin
bagi:=var1/var2;
end;
procedure kalix(var1,var2:integer;var hasil:integer);
begin
hasil:=var1*var2;
end;


var
hasil,x,var1,var2:integer;
hasilx :real;
begin

write('Masukkan variabel 1 : ');readln(var1);
write('Masukkan variabel 2 : ');readln(var2);
writeln;
writeln('MENU');
writeln('1. Jumlah ');
writeln('2. Kurang ');
writeln('3. Kali ');
writeln('4. Bagi ');
writeln('5. Kali pakai procedure ');
write('Masukkan pilihan anda : ');
readln(x);
if (x=1)then
begin
writeln;
hasil:=jumlah(var1,var2);
writeln('hasil penjumlahan adalah ',hasil);
readln;
end;
if (x=2)then
begin
writeln;
hasil:=kurang(var1,var2);
writeln('hasil pengurangan adalah ',hasil);
readln;
end;
if (x=3)then
begin
writeln;
hasil:=kali(var1,var2);
writeln('hasil perkalian adalah ',hasil);
readln;
end;
if (x=4)then
begin
writeln;
hasilx:=bagi(var1,var2);
writeln('hasil pembagian adalah ',hasilx:6:2);
readln;
end;
if (x=5)then
begin
writeln;
kalix(var1,var2,hasil);
writeln('hasil perkalian adalah ',hasil);
readln;
end;

end.

hasil running :

 sementara ini dulu entar kalau ada lagi ya tak tulis lagi.... tapi kalau misalnya ada yang ingin menambahi sangat di persilahkan.....