Question

Viết chương trình sử dụng chươmg trình con kiểm tra 3 số a, b, c có phải ba cạnh của 1 tam giác?

Answer 1

program tg;

uses crt;

var x,y,z:real;

begin

clrscr;

readln(x,y,z);

if not((x+y>z) and (x+z>y) and (y+z>x)) then write('NO') else write('YES');

readln;

end.

Answer 2

USES crt;

VAR a,b,c:integer;

PROCEDURE xet(x,y,z:integer);

Begin

if (x+y>z) or (y+z>x) or (z+x>y) then

writeln('Do la ba canh cua tam giac')

else writeln('Ba canh do khong phai ba canh tam giac');

End;

{.------------------------------------}

BEGIN

clrscr;

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

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

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

xet(a,b,c);

readln;

END.

Answer 3

Program Tam_giac;
Var a,b,c,cv,dt,p:real;
Begin
write(' Nhap a=');readln(a);
write(' Nhap b=');readln(b);
write(' Nhap c=');readln(c);
if (a+b)<=c or (a+c)<=b or (b+c)>a then
write(' A,b,c khong phai 3 canh tam giac')
else
cv:=a+b+c;
p:=cv/2;
dt:sprt((P*(P-a)*(P-b)*(P-c));
write(' Dien tich tam giac',Dt:7:3);
write(' Chu vi tam giac:', Cv:7:3);
readln;
End.
Gõ vào rồi kiểm tra kết quả xem