Question

hãy mô tả thuật toán và viết chương trình pasacal để thực hiện các công việc sau đây

nhập từ bàn phím 3 số thực a, b, c có giá trị bất kì

nếu a, b, c là các số dương thì kiểm tra a, b, c có phải độ dài tam giác , chương trình cần thông báo đó là tam giác thường , tam giác vuông , tam giác cân hay tam giác đều

Answer 1

Mô tả thuật toán

-Bước 1: nhập a,b,c

-Bước 2: kt:=0;

-Bước 3: Nếu ((a=b) và (a<>c)và (b<>c)) hoặc ((b=c)và (b<>a)và (b<>c)) hoặc ((a=c)và (a<>b)và (c<>b)) thì kt:=1;
-Bước 4:Nếu (a=b) và (b=c) thì kt:=2;
-Bước 5:Nếu (sqr(a)=sqr(b)+sqr(c)) hoặc (sqr(b)=sqr(a)+sqr(c)) hoặc (sqr(c)=sqr(a)+sqr(b)) thì kt:=3;
-Bước 6: Nếu kt=0 thì xuất('Day la tam giac thuong');
Nếu kt=1 thì xuất('day la tam giac can');
Nếu kt=2 thì xuất('day la tam giac deu');
Nếu kt=3 thì xuất('day la tam giac vuong');

-Bước 7: Nếu (a>0) và (b>0) và (c>0) và (a+b>c) và (a+c>b) và (b+c>a) thì quay lại bước 2

Không thì xuất('day khong la ba canh trong mot tam giac');

-Bước 8: Kết thúc

Viết chương trình

uses crt;
var a,b,c,kt:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
write('nhap c='); readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
write('day la tam giac ');
kt:=0;
if ((a=b)and(a<>c)and(b<>c)) or ((b=c)and(b<>a)and(b<>c)) or ((a=c)and(a<>b)and(c<>b)) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b)) then kt:=3;
if kt=0 then write('thuong');
if kt=1 then write('can');
if kt=2 then write('deu');
if kt=3 then write('vuong');
end
else writeln('day khong phai la tam giac');
readln;
end.

Answer 2

B1.Rất hâm

B2.Rất đơ

Answer 3

https://i.imgur.com/edYMTwE.png