Question

elaborati o procedura care calculeaza aria și perimensul unei fip-uri geometrice.. urgent va rog

Answer 1

Program exemplu;
var Aria,Perimetrul,latura:real;
procedure calcul(a,b,c:real);
begin
writeln('Dati latura patratului=');
readln(c);a:=sqr(c);b:=4*c;
writeln('Aria patratului=',a:2:2,'cm2');
writeln('Perimetrul patratului=',b:2:2);
end;
begin
calcul(aria,perimetrul,latura);
readln;
end.
P.S. Sper că de asta aveai nevoie