Question

elaborati un program care calculeaza perimetrul si aria unui dreptunghi stiind lungimea si latimea lui
​

Answer 1

var lat1,lat2, lungimea,latimea:Integer;

begin

latimea:=5;

lungimea:=12;

// aria lat1*lat2

// perimetrul lat1+lat2+lungime+latimea

write('lungimea=');

write(lungimea);

writeln('');

write('latimea=');

write(latimea);

writeln('');

writeln ('introduceti valoarea celor 2 laturi folositi numai numere diferite de 0');

write('valoarea lat1=');

readln(lat1);

write ('valoarea lat2=');

readln(lat2);

if (lat1 > 0)or( lat2>0)then

begin

write ('aria=');

writeln(lat1*lat2); //sa para mai interesant

write('perimetrul=');

writeln(lat1+lat2+lungimea+latimea);

end

else

writeln('valorile nu sunt corecte. Introduceti valori diferite de 0');

end.