Câu 8 trang 51 SGK Tin học 11
Một người gửi tiết kiệm không kì hạn với số tiền A đồng với lãi suất 0,2% mỗi tháng. Hỏi sau bao nhiêu tháng, người đó rút tiền thì sẽ nhận được số tiền là bao nhiêu. Biết rằng tiền gửi tiết kiệm không ki hạn không được tính cộng vào vốn.
Chương trình tính lãi suất tiết kiệm
PROGRAM Gui_tiet_kiem;
USES crt;
CONST laisuat = 0.002;
VAR tiengui, tienrutve, luu: real;
thang: integer;
BEGIN
clrscr;
write ('Nhap vao so tien gui:'),
readln(tiengui);
luu:= tiengui;
write('So tien co khi rut ve:');
readln(tienrutve);
thang: = 0 ;
WHILE Tiengui < tienrutve DO
BEGIN
tiengui:= tiengui + tiengui * laisuat;
thang:= thang + 1;
END;
write('Gui', luu:0 : 0, ' dong, sau thang, thang');
writeln('se nhan duoc so tien',tienrutve:0 : 0,' dong');
readln;
END;
Khi chạy chương trình, với số tiền gửi ban đầu là 20,000,000 đồng. Muốn có được số tiền sau khi rút về là 25,000,000 đồng thì phải mất 112 tháng.
Được tài trợ