Giúp mình với. Chương trình tính diện tích tam giác với độ dài ba cạnh a,b,c hoặc chiều cao h ( là các số thực được nhập từ bàn phím ).In ra màn hình kết quả đó. Kiểm tra xem nếu diện tích của hình tam giác lớn hơn diện tích của hình chữ nhật Shcn=50m² thì đưa ra kết quả là diện

kimlan23112005

2 năm trước

Giúp mình với. Chương trình tính diện tích tam giác với độ dài ba cạnh a,b,c hoặc chiều cao h ( là các số thực được nhập từ bàn phím ).In ra màn hình kết quả đó. Kiểm tra xem nếu diện tích của hình tam giác lớn hơn diện tích của hình chữ nhật Shcn=50m² thì đưa ra kết quả là diện tích tam giác lớn hơn diện tích hình chữ nhật và ngược lại. Thanks

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

trinhthaophuong

*Tính diện tích tam giác với 3 cạnh

program dientich;

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

p:=(a+b+c)*0.5;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:2:2);

if s>50 then write('Lon hon dien tich hinh chu nhat')

else if s=50 then write('Bang dien tich hinh chu nhat')

else if s<50 then write('Nho hon dien tich hinh chu nhat');

readln

end.

*Tính diện tích bằng đường cao

program dientichl

uses crt;

var a,h,s:real;

begin

clrscr;

write('Nhap canh day: '); readln(a);

write('Nhap duong cao: '); readln(h);

s:=a*h*0.5;

writeln('Dien tich tam giac la: ',s:2:0);

if s>50 then write('Lon hon dien tich hinh chu nhat')

else if s=50 then write('Bang dien tich hinh chu nhat')

else if s<50 then write('Nho hon dien tich hinh chu nhat');

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

hohong2003

uses crt;

var a,h,s: real;

begin

clrscr;

write ('nhap canh day: '); readln (a):

write ('nhap chieu cao: '); readln (h);

s:=a*h/2;

writeln ('dien tich la: ',s);

if s>50 then writeln ('dien tich tam giac lon hon dien tich hinh chu nhat');

if s<50 then writeln ('dien tich tam giac nho hon dien tich hinh chu nhat');

if s=50 then writeln ('dien tich tam giac bang dien tich hinh chu nhat');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Viết đoạn văn 200 chữ trình bày suy nghĩ về ý nghĩa của việc tìm ra đam mê thực sự của chính mình trong cuộc sống.

Viết 3-5 câu nói về công tác phòng dịch của gia đình chúng ta. $\text{Bn nào hay hơn mk cho ctlhn}

Nguyên nhân và ý nghĩa lịch sử của 3 lần chống quân Mông- Nguyên

Giúp mik đi mấy bn hứa cho 5 vote và ctrlhn

Tìm giá trị lớn nhất của A= $\frac{2x+6}{ x ³+27}$ với x $\neq$ -3

Cho tam giác ABC vuông tại A (AB > AC), vẽ AD là tia phân giác của góc BAC (D thuộc BC). Trên đoạn AC lấy điểm H sao cho AH = AB. a) Chứng minh góc ABD = góc AHD b) Tia HD cắt tia AB tại E. Chứng minh tam giác AHE = tam giác ABC

tinh dien tich xung quanh cua hinh hop chu nhat co chu vi day la 18cm chieu cao=3cm

đây là đề bài và hướng dẫn giải! mọi người trình bày chi tiết lại thôi ạ

cho Δ ABC CÓ góc A=90 độ,đường trung trực của AB cắt AB Tại E,BC tại F a\C/m FA=FB b/Từ F vẽ FH ⊥ AC (H ∈ AC) Chứng minh FH ⊥EF c\C/m FH=AE d/ C/m EH // BC và EH= BC phần 2 Giúp mình với ạ

Mọi người giúp em với. Em cảm ơn ạ

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến