Question

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

Answer 1

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

begin
// initializez lungimea si latimea
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.