Версия для печати темы

Автор: Nfsmaster 17.01.2006 21:51

помогите решить:
вы сделали вклад в банк, ежегодно банк начисляет вам 7% годовых, каков будет размер вклада через 5 лет?
и сделайте пожалуйста с екселем.
конечно извиняюсь за ОФФ. но я прошу именно здесь потому что не могу писать сразу на 2 фоурмах. очень прошу решить...

Автор: Nfsmaster 17.01.2006 23:59

ну просто ОЧЕНЬ надо... я знаю вы можете решить! помогите пожалуйста до пятницы

Автор: klem4 18.01.2006 0:05

Тебе формула нужна или что ?

Автор: Nfsmaster 18.01.2006 0:08

мне бы решение задачи по паскалю ну и по екселю не моглибы послать на ящик <...>

Эмейл оставлять запрещено

Автор: klem4 18.01.2006 0:18

{$n+}
var
   n,s : single;
   i : byte;
begin

   write('n = '); readln(n);

   s := n;

   for i := 1 to 5 do begin
       s := s + s/100 * 7;
   end;

   writeln(s:3:2);
end.

Автор: volvo 18.01.2006 0:21

klem4, а разве проценты на проценты начисляются? У нас, по крайней мере - нет...

Автор: Nfsmaster 18.01.2006 0:24

большое спасибо. а вот зачем в самом начале {$n+} что это?
и вот можно сделать с real или integer или longint?. а то мы с single не проходили, и учительница засомневается..

Автор: klem4 18.01.2006 0:29

Нутак я понял что положил 100, в первый год добивалось 7% то есть в данном случае 7, в следующий год уже 7% от 107 .. ну если не так то вот :

var
   n,temp : single;
   i : byte;
begin

   write('n = '); readln(n);

   temp := n/100*7;

   for i := 1 to 5 do begin
       n := n + temp;
   end;

   writeln(n:3:2);
end.

Автор: Nfsmaster 18.01.2006 0:31

если честно то я окончательно запутался. какой вариант правильный? и не могли бы с екселем решить еще пожалуйста?

Автор: Altair 18.01.2006 1:02

У нас проценты на процент идет.
Вклад если есть, то каждый год будет добавляться процент от имеющийся на счету суммы.

Автор: Тём@ 18.01.2006 6:22

Nfsmasterb
Определись с условием:
если каждый год начисляется 7% от всей накопивщейся суммы, то 1-е решение;
если же 7% от первоначального вклада, то 2-е.

Подключение математического сопроцессора (не спрашивай...) Необходимо для single. Но тебе это не нужно, если вы с учительницей не миллионеры и не собираетесь вкладывать в этот самый банк ужасающие по своему количеству цифр суммы. Заменяем single на real и всё.
Хм... а вот Writeln(<переменная>:3:2) может лучше заменить на Writeln(<переменная>:0:0)?

Автор: volvo 18.01.2006 15:15

Тём@

А может, лучше сначала подумать, и только потом написать?

x := 5.69;
Writeln(x: 0: 0);

напечатает тебе 6... Возможно, тебе это и понравится. Но если будет

x := 5.49;
Writeln(x: 0: 0);

то распечатается 5. Вообще :0:0 - это округление. А печатать надо точную сумму, а не округленную...

Автор: Тём@ 19.01.2006 5:37

volvo
Угу, ошибся С кем не бывает...