Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngọc Phương
Xác định input ,output của bài toán viết chương trình nhập số đo thỏa mãn tính chất ba cạnh của một tam giác cho biết đó là tam giác cân ,đều ,vuông, thường
Nguyễn Lê Phước Thịnh
18 tháng 12 2020 lúc 21:51

1: Xác định bài toán

-Input: Nhập ba cạnh của tam giác

-Output: Xác định dạng của tam giác đó

2: Viết chương trình

uses crt;

var a,b,c,kt:integer;

begin

clrscr;

repeat  

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

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

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

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then    

begin      

kt:=0;      

if (a=b) and (a<>c) and (b<>c) then kt:=1;      

if (b=c) and (b<>a) and (c<>a) then kt:=1;      

if (a=c) and (a<>b) and (c<>b) then kt:=1;      

if (a=c) and (b=c) then kt:=2;      

if sqr(a)=sqr(b)+sqr(c) then kt:=3;      

if sqr(b)=sqr(a)+sqr(c) then kt:=3;      

if sqr(c)=sqr(a)+sqr(b) then kt:=3;      

if kt=0 then writeln('Day la tam giac thuong');      

if kt=1 then writeln('Day la tam giac can');      

if kt=2 then writeln('Day la tam giac deu');      

if kt=3 then writeln('Day la tam giac vuong');      

if (kt=1) and (kt=3) then writeln('Day la tam giac vuong can');    

end

else writeln('Day khong la ba canh trong mot tam giac'); readln;

end.


Các câu hỏi tương tự
Ngọc Phương
Xem chi tiết
misha
Xem chi tiết
Phạm Vũ Hoài Châu
Xem chi tiết
Hoàng Hải Yến
Xem chi tiết
misha
Xem chi tiết
Nguyễn Đăng Khoa
Xem chi tiết
Phùng Việt Anh
Xem chi tiết
Lệ Hờ
Xem chi tiết
Cao Mỹ Ngọc Đoàn
Xem chi tiết