Viết chương trình : Nhập N bất kì
a) Tìm a,b,c sao cho a,b,c là các cạnh của tam giác mà a+ b+c=N. Nếu không thỏa mãn in ra "Khong thoa man".
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
An ơi, viết 5 con Pokemon mà, của cậu mới được 2 con Pikachu và Eevee thôi
Máy tính không thể trả lời những câu hỏi mang tính chất tích luỹ kiến thức thực tế của con người nhằm tạo ra tri thức mới.
- Máy tính không thể nhận biết dạng thông tin mùi vị.
- Những vấn đề tình cảm, cảm xúc.
- Yếu tố “linh cảm” của con người.
_ Đúng như ày ko ạ... tớ hiểu câu hỏi là vậy.. nếu sai thì thôi ạ
Cái này tùy vào nội dung, mục đích của nhóm thì bn đặt tên nhe :)
PROGRAM DIEN H TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien h tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien h S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.
* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)