Ý tưởng xây dựng thuật toán:
Gọi số tiền bố Phan phải chi để mua xăng theo giá mới là y. ta có số tiền x, y tỉ lệ thuân với giá xăng 17500, 19000. Suy ra y = 19000x1750019000x17500. Từ đó duy ra số tiền bố Phan phải chi thêm là a=y-x.
a) Thuật toán
INPUT: x
OUTPUT: a (số tiền chi thêm mua xăng với giá mới).
Bước 1. Nhập x.
Bước 2. y <- 19000x/17500; a <- y - x
Bước 3. In a. Kết thúc thuật toán.
b, Chương trình
Program Mua_xang;
Var x, y: real;
Begin
write ('So tien bo mua xang voi gia cu la: '); readln(x);
y:=19000x/17500;
writeln('So tien bo mua xang voi gia moi la: ', y:15:0);
writeln('So tien bo phai chi them mua xang la: ', y-x:15:0);
readln