Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

fan thi blub channal thi

Viết chương trình vào bộ ba a,b,c là các số nguyên dương in ra màn hình bộ ba này lập thành tam giác gì(cân,đều, thường)

Viết chương trình vào bộ ba a,b,c là các số nguyên dương in ra màn hình bộ ba này lập thành tam giác hay không

Nguyễn Lê Phước Thịnh
1 tháng 12 2020 lúc 16:32

1:

uses crt;

var a,b,c:real;

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 (b<>c) and (a<>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=b) and (b=c) then kt:=2;

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

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

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

end

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

readln;

end.

2:

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 (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')

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

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Mỹ Uyên
Xem chi tiết
Nguyễn băng băng
Xem chi tiết
Mai Phương
Xem chi tiết
Lý Tâm Như
Xem chi tiết
Mon_LAK
Xem chi tiết
Diệp Tiên
Xem chi tiết
ly ly
Xem chi tiết
Mai Phương
Xem chi tiết
ly ly
Xem chi tiết
Phương Thảo
Xem chi tiết