TA ALPRO 1

Tugas akhir sekalian tiket buat final test ALPRO 1, dosennya pak Andre,
kalo mau silakan di liat....jangan di copas, edit juga

{ Tugas ALPRO 1
Nama: Sutan Takdir Alam
NIM : J1F109038 }

uses wincrt;

var b:integer;

{program kalkulator}

Procedure kalkulator;
var j,a:real;
h:string;

begin
clrscr;
a:=0;
writeln('--------------------');
writeln('Kalkulator Sederhana');
writeln('--------------------');
repeat
writeln('a : ',a:0:2);

Repeat
write('Operasi (=,+,-,*,/) : ');readln(h);
Until (h='=') or (h='+') or (h='-') or (h='*') or (h='/');

If (h='+') or (h='-') or (h='*') or (h='/') then
begin
write('Angka : ');readln(j);
end;

If h='+' then
begin
a:=a+j;
writeln;
end;

If h='-' then
begin
a:=a-j;
writeln;
end;

If h='*' then
begin
a:=a*j;
writeln;
end;

If h='/' then
begin
a:=a/j;
writeln;
end;

until h='=';
writeln;
writeln('Total Akhir : ',a:0:2);
readkey;
end;


{program angka terbesar}

Procedure terbesar;
var w,x,y,z:integer;

begin
clrscr;
writeln('----------------------');
writeln(' Angka Terbesar ');
writeln('----------------------');
write('Angka Pertama : ');readln(w);
write('Angka Kedua : ');readln(x);
write('Angka Ketiga : ');readln(y);
write('Angka Keempat : ');readln(z);

If (w>x) and (w>y) and (w>z) then
write('Angka Terbesar : ',w);

If (x>w) and (x>y) and (x>z) then
write('Angka Terbesar : ',x);

If (y>w) and (y>x) and (y>z) then
write('Angka Terbesar : ',y);

If (z>w) and (z>x) and (z>y) then
write('Angka Terbesar : ',z);

If (w=x) and (w=y) and (w=z) then
write('Angka Terbesar : ',w)

else If (w=x) and (w>y) and (w>z) and (x>y) and (x>z) then
write('Angka Terbesar : ',w);

If (w=y) and (w>x) and (w>z) and (y>x) and (y>z) then
write('Angka Terbesar : ',w);

If (w=z) and (w>x) and (w>y) and (z>x) and (z>y) then
write('Angka Terbesar : ',w);

If (x=y) and (x>w) and (x>z) and (y>w) and (y>z) then
write('Angka Terbesar : ',x);

If (x=z) and (x>w) and (x>y) and (z>w) and (z>y) then
write('Angka Terbesar : ',x);

If (y=z) and (y>w) and (y>x) and (z>w) and (z>x) then
write('Angka Terbesar : ',y);

If (w=x) and (w=y) and (x=y) and (w>z) and (x>z) and (y>z) then
write('Angka Terbesar : ',w);

If (x=y) and (x=z) and (y=z) and (x>w) and (y>w) and (z>w) then
write('Angka Terbesar : ',x);

If (w=x) and (w=z) and (x=z) and (w>y) and (x>y) and (z>y) then
write('Angka Terbesar : ',w);

If (w=y) and (w=z) and (y=z) and (w>x) and (y>x) and (z>x) then
write('Angka Terbesar : ',w);

readkey;
end;

{program tabel perkalian}

Procedure perkalian;
var
i,k,h: integer;

begin
clrscr;
writeln('---------------');
writeln('Tabel Perkalian');
writeln('---------------');

for i:= 1 to 22 do
begin
for k:= 1 to 22 do
begin
h:=i*k;
write(h,' ');
end;
writeln;
end;
readln;
end;


Function Menu:integer;
begin
writeln('-----------');
writeln(' MAIN MENU ');
writeln('-----------');
writeln('1. Kalkulator');
writeln('2. Angka Terbesar');
writeln('3. Tabel Perkalian');
writeln('4. Exit Program');
write('Pilihan (1/2/3/4): ');readln(b);
menu:=b;
end;

begin
Repeat
clrscr;
b:=Menu;

If b=1 then
begin
kalkulator;
end;

If b=2 then
begin
terbesar;
end;

If b=3 then
begin
perkalian;
end;

Until b=4;
writeln('terima kasih');
readkey;
end.