Tin học 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 g 24/07/2021 By Margaret 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. Trả lời
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 Trả lời