viết ct : bằng thủ tục kiểm tra xem 3 số nguyên dương x y z có tạo thành tam giác vuôn g k
viết ct : bằng thủ tục kiểm tra xem 3 số nguyên dương x y z có tạo thành tam giác vuôn g k
By Amaya
By Amaya
viết ct : bằng thủ tục kiểm tra xem 3 số nguyên dương x y z có tạo thành tam giác vuôn g k
program TG_vuong;
uses crt;
var x,y,z:integer;
{—Thu-tuc—}
procedure tg(x,y,z:integer);
var kt:boolean;
begin
kt:=true;
if (x<=0) or (y<=0) or (z<=0) then kt:=false;
if (x+y<=z) or (x+z<=y) or (y+z<=x) then kt:=false;
if kt=false then
begin
write(‘Khong phai tam giac’);
exit;
end;
kt:=false;
if (x*x+y*y=z*z) or (x*x+z*z=y*y) or (y*y+z*z+x*x) then kt:=true;
if kt=false then write(‘Khong phai tam giac vuong’)
else write(‘La tam giac vuong’);
end;
{—CT-chinh—}
BEGIN
clrscr;
write(‘Nhap x: ‘); readln(x);
write(‘Nhap y: ‘); readln(y);
write(‘Nhap z: ‘); readln(z);
tg(x,y,z);
readln;
end.
uses crt;
var x,y,z:extended;
{—Thu-tuc-kiem-tra—}
procedure check(x,y,z:extended);
var check:boolean;
begin
if (x<=0) or (y<=0) or (z<=0) then
begin
check:=false;
write(‘Khong tao thanh tam giac’); exit;
end;
if (sqr(x)=sqr(y)+sqr(z)) or (sqr(y)=sqr(x)+sqr(z)) or (sqr(z)=sqr(x)+sqr(y)) then
begin
check:=true;
write(‘Co tao thanh tam giac vuong’);
end
else begin
check:=false;
write(‘Khong tao thanh tam giac’); exit;
end;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap 3 canh tam giac: ‘); readln(x,y,z);
check(x,y,z);
readln;
END.