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
...
Đọc tiếp
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
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.
B1.Rất hâm
B2.Rất đơ