ai giỏi Tin học giúp mình với
viết chương trình pascal:
1/gửi vào ngân hàng 1 số tiền, sau x tháng thì nhận được bao nhiêu ?
2/gửi vào ngân hàng 1 số tiền, A muốn nhận số tiền B thì cần bao nhiêu tháng.
Biết lãi suất là 2%/tháng và không tính lãi gộp( tức là mỗi tháng đều lấy tiền gốc làm mốc cộng lãi)
ai giỏi Tin học giúp mình với viết chương trình pascal: 1/gửi vào ngân hàng 1 số tiền, sau x tháng thì nhận được bao nhiêu ? 2/gửi vào ngân hàng 1 số
By Clara
program bai1;
uses crt;
var tien,x:longint;
t:real;
begin
clrscr;
write(‘Nhap so tien: ‘); readln(tien);
write(‘Nhap thang: ‘); readln(x);
t:=tien;
for i:=1 to x do
t:=tien*(102/100);
write(‘So tien nhan duoc la: ‘,t:2:2);
readln
end.
program bai2;
uses crt;
var tien,t,n,tien2:longint;
begin
clrscr;
write(‘Nhap so tien ban dau: ‘); readln(tien1);
write(‘Nhap so tien muon nhan: ‘); readln(tien2);
n:=0; t:=tien1;
while t<tien2 do
begin
n:=n+1;
t:=t*(102/100);
end;
write(‘Can ‘,n,’ thang’);
readln
end.
1/
uses crt;
var n,x,i:longint; t:real;
begin
clrscr;
write(‘So tien, x: ‘);readln(n,x);
t:=n;
for i:=1 to x do t:=t+(n/100)*2;
writeln(t:0:2);
readln
end.
2/
uses crt;
var n,x,i,b:longint; t:real;
begin
clrscr;
write(‘So tien, so tien b: ‘);readln(n,b);
t:=n;
while t<b do begin inc(i); t:=t+(n/100)*2; end;
writeln(‘Can ‘,i,’ thang’);
readln
end.