В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через n лет?

@jack the ripper · Регистрация: 19.01.2011

Author24 — интернет-сервис помощи студентам

Циклы
1). В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через n лет?
2). Дано натуральное n, действительные a1, a2...an. Получить: a1+a2+a2+a3,...,an-1+an.
3) Найти с точностью 0.001 корни уравнений на указанных отрезках: 0,9x-sin√x-0,1=0,[0,15].

@Gelo · 02.06.2011, 22:09

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FloatToStr(0.03*StrToFloat(Edit2.Text)*StrToFloat(Edit1.Text)+StrToFloat(Edit1.Text));
end;

@Gelo · 02.06.2011, 22:23

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
sum:real;
a:array of real;
begin
sum:=0;
n:=StrToInt(Edit1.Text);
SetLength(a,n);
for i:=0 to n-1 do begin
a[i]:=random(100)-50;
stringgrid1.ColCount:=stringgrid1.ColCount+1;
stringgrid1.Cells[i,0]:=FloatToStr(a[i]);
sum:=sum+a[i];
end;
Edit2.Text:=FloatToStr(sum);
end;

@jack the ripper 1 / 1 / 0 Регистрация: 19.01.2011 Сообщений: 31
		1
	В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через n лет? 02.06.2011, 21:10. Показов 2638. Ответов 2 Метки нет (Все метки) Циклы 1). В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через n лет? 2). Дано натуральное n, действительные a1, a2...an. Получить: a1+a2+a2+a3,...,an-1+an. 3) Найти с точностью 0.001 корни уравнений на указанных отрезках: 0,9x-sin√x-0,1=0,[0,15]. 0

	02.06.2011, 22:23

В сберкассу на трехпроцентный вклад положили S рублей. Какой станет сумма вклада через n лет?

Решение