Giải pascal 8

Question

Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).

Answer 1

tham khảo

chương trình pascal
Program     Bai_1;
Var             S, P, a, b: Real;
Begin
                  Writeln ('Nhap vao chieu dai, chieu rong cua hinh chu nhat');
                  Readln (a, b);
                  S:= a*b;
                  P:= (a+b)*2;
                  Writeln ('Dien tich =', S:6:2, 'chu vi =', P:6:2);
                  Readln
End.

program CV_DT_hinh_vuong;
Var    a:Integer;
     S,C:Read;
Begin
    Writeln('Canh cua hinh vuong la');
    Readln(a);
    S:=a*a;
    C:=a*4;
    Writeln('Dien tich hinh vuong la',S);
    Writeln('Chu vi hinh vuong la',C);
    Readln
    End.

program cv_dt_hinhtron1;
uses crt; var r,cv,dt:real;
begin clrscr;
write('Nhap ban kinh hinh tron:');
readln(r); cv:=2*r*pi; dt:=pi*r*r;
writeln('Chu vi hinh tron:',cv:5:2);
write('Dien tich hinh tron:',dt:5:2);
readln;
end.