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à t

0 bình luận về “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à t”

1. Mình viết chương trình nhé 😀

   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.
      
      

   Bình luận