Bài 1: Viết chương trình đổi chổ 2 số nguyên x, y theo thứ tự tăng dần
Bài 2: Viết chương trình nhập vào số a, b, c có lập thành tam giác không? Tam giác đó là tam giác gì?
Bài 1: Viết chương trình đổi chổ 2 số nguyên x, y theo thứ tự tăng dần
Bài 2: Viết chương trình nhập vào số a, b, c có lập thành tam giác không? Tam giác đó là tam giác gì?
1.
program phuongt;
uses crt;
var x, y, t: integer;
begin
clrscr;
write(‘Nhap x = ‘); readln(x);
writeln(‘Nhap y = ‘); readln(y);
t:=x;
x:=y;
y:=t;
writeln(‘Gia tri x, y khi doi cho la: ‘);
write(‘x = ‘, x, ‘; y = ‘, y);
readln
end.
2.
program phuongt;
uses crt;
var a, b, c: real;
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(‘Lap thanh tam giac’);
if (a=b) or (b=c) or (a=c) then write(‘Day la tam giac can’);
if (a=b) and (b=c) then write(‘Day la tam giac deu’);
if (a*a+b*b=c*c) and (a*a+c*c=b*c) and (b*b+c*c=a*a) then write(‘Day la tam giac vuong’);
readln
end
else
write(‘Khong lap thanh tam giac’);
end.
1, Program hai_so_nguyen_x_y;
USES CRT:
Var: x, y: integer;
Begin
Write (‘Nhap x= ‘); Readln (x);
Write (‘Nhap y= ‘); Readln (y);
x<-z;
y<-y;
z<-x;
Readln
End.
2. Program tam_giac;
USES CRT;
Var a, b, c: integer;
Begin
Write (‘Nhap a= ‘); Readln(a);
Write (‘Nhap b= ‘); Readln(b);
Write (‘Nhap c= ‘); Readln(c);
If a+b>c or a+c>b or b+c>a then write (a,b,c la ba canh cua mot tam giac) else write (a,b,c khong la ba canh cua mot tam giac);
Readln
End.
Chúc bn hc tốt, cho mk xin hay nhất, 5 sao và cảm ơn nha^^
#English and Maths
#Alex_Armanto_Siro :3