Poti sa folosesti 2 functii: o functie care calculeaza perimetrul(4*latura) si una care calculeaza aria(latura*latura)
functia primeste un parametru(latura) de tip intreg, si returneaza tot un tip intreg. In functie, egalezi numele functiei(intotdeauna faci asta) cu valoarea finala a calcului(adica 4*l pentru perimetru, si l*l pentru arie). Apoi in partea principala a programului, ceri utilizatorului sa introduca dimensiunea laturii, si iti va afisa in mod automat perimetrul, respectiv lungimea
Poti sa folosesti Pascal ABC pentru a testa programul
http://pascalabc.net/en/
Programul e mai jos
Program Patrat;
function perimetru_patrat(l:integer):integer;
begin
perimetru_patrat:=4*l;
end;
function arie_patrat(l:integer):integer;
begin
arie_patrat:=l*l;
end;
var l:integer;
Begin
writeln('Scrieti latura patratului:');
readln(l);
writeln('Perimetrul patratului este:',perimetru_patrat(l));
writeln('Aria patratului este:',arie_patrat(l));
End.
