Viết chương trình nhập hai số thực. Sau đó hỏi phép tính cần thực hiện và in kết quả của phép tính đó.
Nếu là “+”, in kết quả của tổng lên màn hình.
Nếu là “-”, in kết quả của hiệu lên màn hình.
Nếu là “/”, in kết quả của thương lên màn hình.
Nếu là “*”, in kết quả của tích lên màn hình.
Program May_tinh;
Uses Crt;
Var a, b, T: Real;
Pt: Char;
BEGIN
Clrscr;
Write (' a = '); Readln( a );
Write (' b = '); Readln( b );
Write (' Phep tinh thuc hien la (+ - * /): ');
Readln( Pt );
If Pt = '+’ Then T:=a + b;
If Pt = '-’ Then T:=a - b;
If Pt = '*’ Then T:=a * b;
If Pt = '/’ Then T:=a / b;
Write ( a, pt, b, ' = ', T );
Readln;
End.
