Question

Napisz w programie Free Pascal program obliczający pole i obwód prostokąta

Answer 1

Mam dobry humor to ci napisałem od razu cały program :)

USES crt;
var a,b,c,d: real;
var aa: integer;
BEGIN
writeln ('1)Obliczanie obwodu prostokąta ');
writeln ('2)Obliczanie pola prostokąta ');
readln(aa);
clrscr;
CASE aa OF
1:BEGIN
writeln ('Podaj długośc boku a ');
readln(a);
writeln ('Podaj długośc boku b ');
readln(b);
writeln ('Obwód prostokąta wynosi ',a*2+b*2:2:2);
readln;
end;
2:BEGIN
writeln ('Podaj długośc a ');
readln(c);
writeln ('Podaj długośc b ');
readln(d);
writeln ('Pole prostokąta wynosi ',c*d:2:2);
readln;
end;
end;
end.
ALE LICZE NA 5 GWIAZDEK