Question

Scrie în limbajul Pascal programul care calculează perimetrul şi aria unui dreptunghi, ştiind lungimea şi lăţimea lui.

Answer 1

program calcul;
var lat1,lat2, lungimea,latimea:Integer;

begin
// initializez lungimea si latimea
latimea:=56;
lungimea:=126;

// 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.


rezultatul este

lungimea=126
latimea=56
introduceti valoarea celor 2 laturi folositi numai numere diferite de 0
valoarea lat1=1200
valoarea lat2=6777
aria=8132400
perimetrul=8159