Bài 9: Cấu trúc rẽ nhánh

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lee Are Young
Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác
Nguyễn Lê Phước Thịnh
14 tháng 12 2020 lúc 22:25

uses crt;

var a,b,c:real;

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 (b+c>a) and (a+c>b) then 

begin

if sqr(a)=sqr(b)+sqr(c) then writeln('Vuong')

else if sqr(b)=sqr(a)+sqr(c) then writeln('Vuong')

else if sqr(c)=sqr(a)+sqr(b) then writeln('Vuong')

else writeln('La tam giac khong vuong');

end

else writeln('Khong la ba canh trong mot tam giac');

readln;

end.


Các câu hỏi tương tự
Tờ Nờ Dờ
Xem chi tiết
Nguyễn Diệu Linh
Xem chi tiết
Văn Trần Đình
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
Trần Thị Trà My
Xem chi tiết
Hàn Nhật Hạ
Xem chi tiết
Tâm Phạm
Xem chi tiết
duyên my
Xem chi tiết
Nga Diệu
Xem chi tiết