Viết chương trình Pascal nhập từ bàn phím 3 số nguyên dương a, b,c rồi: +Kiểm tra xem đây có phải độ dài ba cạnh của tam giác không, nếu không đưa thông báo ra màn hình +Nếu có đưa thông báo ra màn hình rồi tính chu vi, diện tích của tam giác đó.

tadaquan2kk

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 12 xem

1 trả lời

Thích Trả lời

daisudaukhac

program bai_giai;
uses crt;
var a,b,c:integer;
P:real;
begin
clrscr;
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Chu vi: ',a+b+c);
P:=(a+b+c)/2;
writeln('Dien tich: ',sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
end
else write('Khong tao thanh tam giac');
readln;
end.

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

hungxautrai2005

var a,b,c:longint;
p,s:real;
begin
write('Nhap vao 3 so a b c = ');readln(a,b,c);
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
p := (a+b+c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi = ',2*p:0:2);
writeln('Dien tich = ',s:0:2);
end
else write('Do dai khong hop le');
readln;
end.

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

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

1 nhà trẻ nếu chia 6 cháu 1 cô thì thừa 4 cháu.Nếu 8 cháu 1 cô thì thừa 1 cô.Tính số cô? số cháu ?

Hết điểm rùi , mong các bn giúp mk vs ạ 1)Tính số đo x, y, z trong hình vẽ sau

3 mủ 6 : 3 mủ 2 + 2 mủ 3 . 2 mủ 2 - 3 mủ 3 . 3 tính nhanh nếu có thể nâng lên lũy thừa khi tính

giúp mk đyyyy hứa vote sao và cthn

Viết phân số 75/120 thành phân số có mẫu số nhỏ nhất có thể ta đc phân số có tử số là:........

Viết các biểu thức sau đây dưới dạng biểu thức pascal

Hãy viết đoạn văn (khoảng 20 dòng) nêu cảm nhận của em về nhân vật Thúy Kiều qua đoạn trích “ Chị em Thúy Kiều” của Nguyễn Du.

Đề cương ôn thi mong mọi người giúp đỡ cảm ơn ạ

is/ your/ What/ school/ at/ subject/ favourite? What your favourite subject at school is? What your favourite school subject at is? What is your favourite subject at school?

giúp em với ạ em cảm ơn nhiều ạ

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