cho hai cạnh D1,d2 của 2 hình vuông.tính diện tích hình vuông nhỏ hơn ( nếu hai hình vuông bằng nhau thì tính diện tích của hình thứ 2) bài toán và thuật toán
1 câu trả lời
Mình viết chương trình nhé :D
program Min;
uses crt;
var d1,d2,S1,S2:real;
begin
clrscr;
writeln('Nhap d1, d2: '); readln(d1,d2);
if (d1>d2) then
begin
s2:=d2*d2;
writeln('Dien tich cua hinh 2 la: ',s2:5:2)
end
else
if (d1<d2) then
begin
s1:=d1*d1;
writeln('Dien tich cua hinh 1 la: ',s1:5:2)
end
else begin
s2:=d2*s2;
writeln('Dien tich cua hinh 2 la: ',s2:5:2)
end;
readln
end.
