Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 137139
16.05.2008, 20:36
0.00 руб.
0 2 2
Компьютеры Программирование
Сберегательная касса начисляет 120% годовых, т.е. через год вклад увеличивается без участия вкладчика. Какой станет сумма равная К рубней, положенная в кассу на N лет?

Обсуждение

Неизвестный
16.05.2008, 21:42
общий
это ответ
Здравствуйте, Saske!
Программка простая и лежит в приложении.
З.Ы. А адрес сберкассы, где 120% дают, подскажете? ;)

Приложение:
program kassa;var v:real; i,N:byteBEGINwriteln(‘Сколько вложили?‘);readln(v);for i:=1 to N do v:=v*2.2;writeln(‘Накопилось ‘,v);readln;end.
Неизвестный
17.05.2008, 13:16
общий
это ответ

<i>Здравствуйте, <b>Saske</b>!</i>

Задачу можно решить и без циклов.

<code><b>for</b> i:=1 <b>to</b> N <b>do</b>
  v:=v*2.2;</code>

можно записать так:
<code>v:= v*2.2<sup>N</sup></code>

как известно, <i>x<sup>y</sup> = e<sup>y*ln(x)</sup></i>
Получаем, что
<code>v*2.2<sup>N</sup> = v*e<sup>N*ln(2.2)</sup></code>

Т.е. получаем выражение
<code>v:= v*exp(N*ln(2.2));</code>

<em>Удачи!</em>

Приложение:
program Q137139;uses Crt;var v: Real; N: Integer;begin {Очистка экрана} ClrScr; {Запрашиваем у пользователя диапазон поиска} write(‘Сумма вклада: ‘); readln(v); write(‘На сколько лет?: ‘); readln(N); {Вычисляем сумму через N лет} v:= v * exp(N*ln(2.2)); {Вывод результата} writeln; writeln(‘Ответ: ‘, v:1:2, ‘ руб.‘); {Ожидание нажатия пользователем любой кнопки} WriteLn; WriteLn(‘Press any key...‘); ReadLn;end.
Форма ответа