Xây dựng CTC tính diện tích của tam giác khi biết độ dài 3 cạnh. Viết chương trình nhập 3 số nguyên dương từ bàn phím và sử dụng CTC đã xây dựng để tính diện tích tam giác.

0868964026

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 16 xem

1 trả lời

Thích Trả lời

nhatu08032003

program dien_tich;

uses crt;

var a,b,c:integer;

{---Dien-tich---}

function S(a,b,c:integer):real;

var P:real;

begin

P:=(a+b+c)/2;

S:=sqrt(P*(P-a)*(P-b)*(P-c));

end;

{---CT-Chinh---}

BEGIN

clrscr;

write('Nhap do dai canh thu nhat: '); readln(a);

write('Nhap do dai canh thu hai: '); readln(b);

write('Nhap do dai canh thu ba: '); readln(c);

writeln('Dien tich tam giac la: ',S(a,b,c));

readln;

end.

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

thuyng18022001

program Hello;
uses crt;
var a,b,c,p:real;
function area(a,b,c:real): real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
clrscr;
read(a,b,c);
writeln('Dien tich tam giac: ', area(a,b,c));
end.

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

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

vẽ anime/chibi/mầm.......... buồn đi

Ai vẽ mầm đi Đặt câu mầm đi xem nào mọi người chán quá rồi

Please giúp mk câu 3,4 vs 😥 mk cảm ơn❤

helpppppppppppppppppppppppppppppppppppppppp

Giup tui vs mn: cartoons/often/he/tv/on/watches shouldn't/things/heavy/you/carry stove/are/ith/you/the/what/doing more/expected/I/than/it's/beautiful

Vẽ anime/chiibi NL:Bn thấy ai béo hơn bà trà ko=))

Giúp mình với mình đang cần gấp ạ

....................................🥺🥺🥺

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