bài 1
Code:
uses crt; var a,b,c: real; begin clrscr; write('Nhap 3 so a, b, c: ');readln(a,b,c); if (a+b>c)and(a+c>b)and(b+c>a) then begin write('3 canh vua nhap la tam giac'); if (a=b)or(b=c)or(a=c) then begin if(a=b)and(b=c) then write(' deu') else write(' can'); end; if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=a*a+b*b) then write(' vuong'); end else write('3 canh vua nhap ko phai la tam giac'); readln; end.
bài 2
Code:
uses crt; var t,l,h,v,ta,tb: real; begin clrscr; write('Nhap diem Toan: ');readln(t); write('Nhap diem Ly: ');readln(l); write('Nhap diem Hoa: ');readln(h); write('Nhap diem Van: ');readln(v); write('Nhap diem tieng Anh: ');readln(ta); tb:=(v*2+t*3+h+l+ta*2)/9; write('Diem trung binh: ',tb:0:2); readln; end.
bài 3
Code:
uses crt; var a,b,kq: real; pt: char; begin clrscr; write('Nhap 2 so a, b: '); readln(a,b); writeln ('Nhap phep tinh can thuc hien: '); readln(pt); case pt of '+' : kq:=a+b; '-' : kq:=a-b; '*' : kq:=a*b; '/' : kq:=a/b; end; write('Ket qua: ',kq:0:2); readln ; end.
Hãy cùng chia sẻ kiến thức và kinh nghiệm nhé
Trả lờiXóa