Tin học viết chương trình pascal

[Huỳnh Nam Huy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
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.

1) Viết chương trình tính diện tích tam giác
2) Viết chương trình tính chu vi tam giác
3) Viết chương trình tính diện tích hình chữ nhật
4) Viết chương trình tính chu vi hình chữ nhật

 

[namnam06]

1) Viết chương trình tính diện tích tam giác
2) Viết chương trình tính chu vi tam giác
3) Viết chương trình tính diện tích hình chữ nhật
4) Viết chương trình tính chu vi hình chữ nhật

Cho đề rõ chút, có bó bột không?

 

[Huỳnh Nam Huy]

Cho đề rõ chút, có bó bột không?

từng câu ấy

 

[Lục Vân Tiên]

1) Viết chương trình tính diện tích tam giác
2) Viết chương trình tính chu vi tam giác
3) Viết chương trình tính diện tích hình chữ nhật
4) Viết chương trình tính chu vi hình chữ nhật

Cho công thức tính đi, mình quên rùi

 

[namnam06]

từng câu ấy

Ý là cho cái gì của từng đề, có yêu cầu từ cạnh hay là có đường cao... Kiểu như thế!

 

[ĐứcNhật!]

1) Viết chương trình tính diện tích tam giác
2) Viết chương trình tính chu vi tam giác
3) Viết chương trình tính diện tích hình chữ nhật
4) Viết chương trình tính chu vi hình chữ nhật

Bài 1 và bài 2 mình gộp luôn nhé!

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.

Bài 3 và bài 4:

Program Hinh_chu_nhat;
Uses crt;
Var a,b,s,p:real;
Begin
Writeln('Nhap chieu dai va chieu rong cua hinh chu nhat: '); readln(a,b);
s:=a*b;
p:=(a+b)*2;
Write('Dien tich cua hinh chu nhat la ',s,' va chu vi hinh chu nhat la ',p);
Readln
End.

 

[Huỳnh Nam Huy]

Bài 1 và bài 2 mình gộp luôn nhé!

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.

Bài 3 và bài 4:

Program Hinh_chu_nhat;
Uses crt;
Var a,b,s,p:real;
Begin
Writeln('Nhap chieu dai va chieu rong cua hinh chu nhat: '); readln(a,b);
s:=a*b;
p:=(a+b)*2;
Write('Dien tich cua hinh chu nhat la ',s,' va chu vi hinh chu nhat la ',p);
Readln
End.

bạn ơi tách phần cuối đi mik ko hiểu

 

[ĐứcNhật!]

bạn ơi tách phần cuối đi mik ko hiểu

Bài 1:

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);
Readln
End.

Bài 2:

Program Tam_giac;
Uses crt;
Var a,b,c,p:real;
Begin
Writeln('Nhap do dai ba canh: '); readln(a,b,c);
p:=a+b+c;
Write('Chu vi tam giac la: ',p:6:2);
Readln
End.

Bài 3:

Program Hinh_chu_nhat;
Uses crt;
Var a,b,s:real;
Begin
Writeln('Nhap chieu dai va chieu rong cua hinh chu nhat: '); readln(a,b);
s:=a*b;
Write('Dien tich cua hinh chu nhat la ',s:6:2);
Readln
End.

Bài 4:

Program Hinh_chu_nhat;
Uses crt;
Var a,b,p:real;
Begin
Writeln('Nhap chieu dai va chieu rong cua hinh chu nhat: '); readln(a,b);
p:=(a+b)*2;
Write('Chu vi hinh chu nhat la: ',p:6:2);
Readln
End.