1)Viết chương trình nhập 3 số thực a,b,c từ bàn phím và xuất ra bàn phím 3 số đó
2)Viết chương trình nhập từ bàn phím 2 số thực a,b và xuất ra màn hình theo thứ tự tăng dần
3)Viết chương trình nhập từ bàn phím 3 số thực dương và thông báo ra màn hình 3 số đó có là 3 cạnh của tam giác hay ko.Nếu có hãy cho biết tam giác đó là tam giác vuông,cân,đều hay thường
Mn ơi giúp mik vs.Mik đang cần lắm.Mong đc các bn giúp...
Đọc tiếp
1)Viết chương trình nhập 3 số thực a,b,c từ bàn phím và xuất ra bàn phím 3 số đó
2)Viết chương trình nhập từ bàn phím 2 số thực a,b và xuất ra màn hình theo thứ tự tăng dần
3)Viết chương trình nhập từ bàn phím 3 số thực dương và thông báo ra màn hình 3 số đó có là 3 cạnh của tam giác hay ko.Nếu có hãy cho biết tam giác đó là tam giác vuông,cân,đều hay thường
Mn ơi giúp mik vs.Mik đang cần lắm.Mong đc các bn giúp tại mik dở tin lắm
1:
uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c):
writeln('so a la: ',a:4:2);
writeln('so b la: ',b:4:2);
writeln('so c la: ',c:4:2);
readln;
end.
2:
uses crt;
var a,b,tam:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then write(a,' ',b);
if a=b then write(a,' ',b);
if a<b then write(b,' ',a);
readln;
end.
3:
uses crt;
var a,b,c:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a+b>c) and (a+c>b) and (c+b>a) then
begin
if (a=b) and (b=c) then writeln('day la tam giac deu');
if ((b=c) and (b<>a) and (c<>a)) or ((a=c) and (a<>b) and (c<>b)) or ((a=b) and (a<>c) and (b<>c)) then writeln('day la tam giac can');
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('day la tam giac vuong')
else writeln('day la tam giac thuong');
end
else writeln('ba canh vua nhap khong phai la tam giac');
readln;
end.