Bài 1: viết chương trình tính chu vi và diện tích hình chữ nhật có độ dài 2 cạnh a,b (được nhập từ bàn phím)
Bài 2: viết chương trình tính chu vi và diện tích hình vuông có cạnh a được nhập từ bàn phím
bài 3: viết chương trình tính chu vi và diện tích hình tròn có bán kính R được nhập từ bàn phím
bài 4 : viết chương trình tính chu vi và diện tích hình tam giác có 3 cạnh a,b,c được nhập từ bàn phím
Bài 5: viết chương trình kiểm tra 3 số a,b,c có phải là 3 cạnh của tam giác không? Với a,b,c nguyên dương
1.
Var a , b : integer;
S , P : real;
Begin
write (' a = '); read (a);
write (' b = '); read (b);
P : = (a + b) * 2;
S : = a*b ;
write (' chu vi hinh chu nhat la ', P );
write (' dien tich hinh chu nhat la',S);
Readln;
End.
2.
Var a : integer;
P , S : real;
Begin
write (' a = '); read (a);
P : = a * 4 ;
S : = a*a;
write (' chu vi hinh vuong la ', P );
write (' dien tich hinh vuong la',S);
Readln ;
End .
Còn lại tự làm nha
Chúc bạn học tốt
Bài dễ quá mà ko bt làm sao
var R: real;
begin
write('Nhap ban kinh hinh tron R = '); readln(R);
writeln('Chu vi hinh tron la: ',R*2*Pi);
writeln('Dien tich hinh tron la: ',R*R*Pi);
readln;
end.
4.
Program hotrotinhoc;
var a,b,c: integer;
p,s: real;
begin
write('Nhap canh a='); readln(a);
write('Nhap canh b='); readln(b);
write('Nhap canh c='); readln(c);
p:=a+b+c;
writeln('Chu vi tam giac la :',p:2:2);
p:=p/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('Dien tich tam giac la :',s:2:2);
readln
end.
5.
Program hotrotinhoc;
var a,b,c: integer;
begin
write('Nhap canh a='); readln(a);
write('Nhap canh b='); readln(b);
write('Nhap canh c='); readln(c);
if ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then write('Day la 3 canh cua tam giac ') else wite('Khong phai 3 canh cua tam giac');
readln
end.
nếu muốn biết 3 câu còn lại thì nhắn tin cho mình mình làm cho
Câu 1:
var dai, rong: integer;
P,S: real;
begin
write('Nhap chieu dai hinh chu nhat: '); readln(dai);
write('Nhap chieu rong hinh chu nhat: '); readln(rong);
while a<b then
begin
write('Nhap lai chieu dai: '); readln(dai);
write('Nhap lai chieu rong: '); readln(rong);
end;
P:= (a+b)*2;
S:= a*b;
writeln('Chu vi hinh chu nhat la: ',P);
writeln('Dien tich hinh chu nhat la: ',S);
readln;
end.
Câu 2:
var a: integer;
begin
write('Nhap canh hinh vuong a = '); readln(a);
writeln('Chu vi hinh vuong la: ',a*4);
writeln('Dien tich hinh vuong la: ',a*a);
readln;
end.
Câu 1:
Program Dientich_va_Chuvi_Hinhchunhat;
uses crt;
Var a, b, p, s integer;
Begin;
Write ('Nhap chieu dai CD'); Readln (a);
Write ('Nhap chieu rong CR'); Readln (b);
p:= (a+b)*2
S:= a*b
Writeln ('Chu vi hinh chu nhat:' ,p);
Writeln ('Dien tich hinh chu nhat:' ,S);
Readln;
End.
P/s: Theo mình thì là như vậy nhé!!! Có j sai sót thì thoai vại!!!~
bài 1
var a,b:interger;
begin
writeln ('nhap 2 anh hinh vuong');
readln (a,b);
writeln ('chu vi hinh chu nhat:',(a+b)*2);
writeln ('dien tich hinh chu nhat:',a*b);
readln;
end.
phần đầu integer hoặc real mình không chắc 
