KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình con để kiểm tra tính chất của tam giác ?
By Alice
Viết chương trình con để kiểm tra tính chất của tam giác ?
uses crt; var a,b,c:extended; {—Kiem-tra—} function check(a,b,c:extended):boolean; begin if (a>0) and (b>0) and (c>0) and ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then begin check:=true; write(‘3 canh vua nhap la 3 canh tam giac’); end else begin check:=false; write(‘3 canh vua nhap khong phai la 3 canh tam giac’); exit; end; end; {—Chuong-trinh-chinh—} BEGIN clrscr; write(‘Nhap 3 canh tam giac: ‘); readln(a,b,c); check(a,b,c); readln; END.
uses crt;
var a,b,c:extended;
{—Kiem-tra—}
function check(a,b,c:extended):boolean;
begin
if (a>0) and (b>0) and (c>0) and ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
begin
check:=true;
write(‘3 canh vua nhap la 3 canh tam giac’);
end
else begin
check:=false;
write(‘3 canh vua nhap khong phai la 3 canh tam giac’);
exit;
end;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap 3 canh tam giac: ‘); readln(a,b,c);
check(a,b,c);
readln;
END.
program tam_giac;
uses crt;
var a,b,c:integer;
{—Chuong-trinh-con—}
function kt(a,b,c:integer):boolean;
begin
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)
then kt:=true
else kt:=false;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap so dai canh thu nhat: ‘); readln(a);
write(‘Nhap so dai canh thu hai: ‘); readln(b);
write(‘Nhap so dai canh thu ba: ‘); readln(c);
if kt(a,b,c) then write(‘La ba canh cua tam giac’)
else write(‘Khong phai la ba canh cua tam giac’);
readln;
end.