Câu 1:Chương trình sau có kết quả gì?
Program vd;
Var a,b,: real; x,: integer;
Begin readln (a,b);
If a>b then x:=a else x:=b;
Write (x);
End.
Câu 2:Viết chương trình tính tổng tích và hiệu của hai số được nhập từ bàn phím
Program vd;
Var a,b,: real; x,: integer;
Begin readln (a,b);
If a>b then x:=a else x:=b;
Write (x);
End.
Chương trình này cho phép nhập 2 số a và b
Nếu a>b thì in ra kết quả x=a
Nếu b>a thì in ra kết quả x=b
Câu 2:Viết chương trình tính tổng tích và hiệu của hai số được nhập từ bàn phím
Program Hotboy ;
Uses crt;
Var a,b : real;
Begin
Write(‘nhap so a’);
Readln(a);
Write(‘nhap so b’);
Readln(b);
Writeln(‘tong la’,a+b,’ hieu la’,a-b,’tich la’,a*b,’ thuong la’,a/b);
Readln
End.
Câu 1:
Chương trình in ra số lớn nhất trong 2 số a và b (Được gán vào biến x)
Câu 2:
Program FNG;
Uses crt;
Var tong,hieu,tich,a,b: longint;
thuong: extended;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
Write(‘Nhap b: ‘); Readln(b);
tong:=a+b;
hieu:=abs(a-b);
tich:=a*b;
thuong:=a/b;
Writeln(‘Tong: ‘,tong);
Writeln(‘Hieu: ‘,hieu);
Writeln(‘Tich: ‘,tich);
Write(‘Thuong: ‘,thuong:0:2);
Readln
End.