program tugas;
uses wincrt;
var
i:integer;
pil:char;
procedure garis;
begin
writeln('===========================');
end;
procedure segitiga;
var
a:real;
b:integer;
c:real;
begin
write('Alas :');readln(a);
write('Tinggi :');readln(b);
c:=(a*b)/2;
writeln('Rumus : Alas x Tinggi / 2 ');
writeln;
writeln ('luas_segitiga:',c:0:2);
writeln('===========================');
end;
procedure persegi_panjang;
var
a:integer;
b:integer;
c:integer;
begin
write('Panjang:');readln(a);
write ('Lebar:');readln(b);
c:=a*b;
writeln('Rumus : Panjang x Lebar');
writeln;
writeln('Luas_persegi_panjang:',c);
writeln('==========================');
end;
begin
for i:=1 to 3 do
begin
writeln('Pilih Rumus yang diinginkan');
garis;
writeln('1.luas segitiga');
writeln('2.luas_persegi_panjang');
garis;
write ('input pilihan(1,2,)='); readln(pil);
garis;
writeln;
case pil of
'1':segitiga;
'2':persegi_panjang;
end;
end;
end.
Tidak ada komentar:
Posting Komentar