Question

cum sa creezi un program care va afisa aria si perimetrul oricatui patrat in FPC (free pascal code) ?

Answer 1

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.