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.