- 17 Tháng mười một 2017
- 1,525
- 3,788
- 529
- Quảng Nam
- Trung Học Phổ Thông Chuyên Nguyễn Bỉnh Khiêm
Chắc suất Đại học top - Giữ chỗ ngay!! ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.
Bài 1: Tính chu vi và diện tích hình chữ nhật
Bài 2: Tính chu vi và diện tích hình tam giác
Bài 3: Chu vi và diện tích hình vuông
Bài 4: Tính chu vi và diện tích hình tròn
@Tống Huy @Bùi Thị Diệu Linh @Asuna Yuuki @Mart Hugon ...
Tab thêm giúp em với nạ )
Tối em đăng tiếp!
Mã:
Program Hinh_chu_nhat;
Uses crt;
Var a,b,s,p: real;
Begin
clrscr;
Write('Nhap chieu dai va chieu rong cua hinh: '); readln(a,b);
s:=a*b;
p:=(a+b)/2;
Write('Chu vi va dien tich hinh chu nhat lan luot la: ',p:6:2,' va ,s:6:2);
Readln
End.
Mã:
Program Tam_giac;
Uses crt;
Var a,b,c,p,s:real;
Begin
Writeln('Nhap do dai ba canh: '); readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('Dien tich tam giac la: ',s:6:2);
Write('Chu vi tam giac la: 2*p:6:2);
Readln
End.
Mã:
Program Hinh_vuong;
Uses crt;
Var a,p,s: real;
Begin
clrscr;
Write('Nhap do dai canh: '); readln(a);
p:=a*4;
s:=a*a;
Write('Chu vi hinh vuong la ',p:6:2,' va dien tich hinh chu nhat la ',s:6:2);
Readln
End.
Mã:
Program Hinh_tron;
Uses crt;
Var r,p,s: real;
Const pi=3.14;
Begin
clrscr;
Write('Nhap ban kinh hinh tron: '); readln(r);
s:=r*r*pi;
p:=2*r*pi;
Write('Chu vi la ',p:6:2,' va dien tich la ',s:6:2);
Readln
End.
Tab thêm giúp em với nạ )
Tối em đăng tiếp!
Last edited: