Viết chương trình cho bài toán:
Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
Gợi ý: Sử dụng câu lệnh lặp for….do
Viết chương trình cho bài toán:
Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
Gợi ý: Sử dụng câu lệnh lặp for….do
program tientietkiem;
uses crt;
var i,n: longint; a,s:real;
begin
clrscr;
n:=100000; s:=n;
for i:=1 to 12 do begin a:=s;
s:=a+s*0.5/100; end;
write(‘ so tien do la : ‘,s*1000);
readln
end.
program laisuat;
uses crt;
var s,tien:real;
i:byte;
begin
clrscr;
tien:=100000000; s:=tien;
for i:=1 to 12 do
s:=s+s*0.5/100;
writeln(‘So tien co trong tai khoan sau 12 thang la: ‘,s);
readln;
end.