Bạn Tuấn viết chương trình bằng ngôn ngữ Pascal để tính trung bình cộng 2 số nguyên a và b (a,b được nhập vào từ bàn phím) như sau: Program Tinh_trungbinhcong;
Uses CRT;
Var a,b: Byte; TBC: Realn
Begin
Clrscr;
Write('Nhap gia tri a = ');Readln(a);
Write('Nhap gia tri b = ');Radln(b);
TBC := (a + b)/2;
Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2); Readln;
End.
Bạn Tuấn chạy chương trình với bộ dữ liệu (a,b) tương ứng là (325,350) nhưng chương trình báo lỗi. Em hãy giải thích vì sao và nêu hướng sửa chương trình để bạn Tuấn chạy được bộ dữ liệu trên. Giúp mink vs ạ mình đang cần gấp
Program Tinh_trungbinhcong;
Uses CRT;
Var a,b: Byte; TBC: Realn -> SỬA: Var a,b: Byte; TBC: Real;
Begin
Clrscr;
Write('Nhap gia tri a = ');Readln(a);
Write('Nhap gia tri b = ');Radln(b);
TBC := (a + b)/2;
Writeln('Trung binh cong cua ',a, 'va',b, ' = ', TBC:4:2); Readln;
End.