Tin học Lớp 9: ( viết chương trình trong free pascal ) Viết chương trình yêu cầu người sử dụng nhập 2 số tự nhiên và 1 trong 4 phép tính : cộng trừ nhân chia . Thực hiện phép tính và in ra kết quả màn hình ( lấy 2 chữ số lẻ ) Vd : số tự nhiên thứ nhất là :12 số tự nhiên thứ hai là :6 Phép tính là / Kết quả in ra là 2, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
var res ,a, b :real;
o : char;
begin
write(‘a= ‘);
readln(a);
write(‘b= ‘);
readln(b);
write(‘Nhap phep tinh: ‘);
readln(o);
if ( o = ‘+’) then
writeln(‘Ket qua: ‘, round(a+b))
Else if ( o = ‘-‘) then
writeln(‘Ket qua: ‘, round(a-b))
Else if ( o = ‘*’) then
writeln(‘Ket qua: ‘, round(a*b))
Else if ( o = ‘/’) then
writeln(‘Ket qua: ‘, round(a/b))
Else
write(‘Nhap sai phep tinh ( +, -, *, / )’);
end.