Câu 1 hãy sửa lỗi chương trình sau (nếu có) và cho biết kết quả khi chạy chương trình :
program tong
var tong: real, so1,so2:integer;
begin
Clrscr
So1=5;
So2=4;
Tong:=so1+so2
Write(tong 2 so =,'tong');
Readln;
end.
Câu 2
Hãy xác định bài toán (Input_Output) và viết mô tả thuật toán, sau đó dựa vào thuật toán để viết chương trình cho bài toán sau: " Một gia đình mỗi tháng phải chi trả n tiền gạo với giá 8000đ/1kg. khi giá tăng 1000đ/1kg thì mỗi tháng gia đình này phải chi thêm cho tiền gạo là bao nhiêu?"
Câu 1:
Sửa lỗi:
program tong;
uses crt;
var tong:real;
so1,so2:integer;
begin
clrscr;
so1:=5;
so2:=4;
tong:=so1+so2;
write('tong 2 so=',tong:4:2);
readln;
end.
Kết quả sau khi chạy chương trình là: 9.00
