Kode pascal
program gabungan;
uses crt;
var A,B,pilih: char;
k,l,s: integer;
begin
clrscr;
pilih:=readkey;
writeln('A.Menghitung Luas bujur
sangkar');
writeln('B.Menghitung keliling');
writeln('pilih [A-B]:') ;
readln(pilih);
case pilih of
'A': begin
writeln('Mencari Luas bujur sangkar');
write('Inputkan
sisi');read(s);
l:=s*s;
write('Luas persegi panjang adalah ',l);
end;
'B': begin
writeln('keliling bujursangkar');
write('Inputkan
sisi');read(s);
k:=4*s;
write('keliling bujursangkar ',k);
end;
else
write('salah pilih wekkkk');
end;
readln;
end.
untuk text yang berwarna merah dapat di ubah.
ADS HERE !!!