Paskal - циклы

[Digi]

Стоимость акций растёт на протяжений 6 месяцев, каждый месяц на 0.6%. Наити среднюю стоимость акции за эти полгода, если известно, что начальная стоимость их была К$

задачка элементарная, ...одна проблема - Паскаль. что, куда, как ...непонятно:-(

[Absurd]

Зачем тебе циклы? Набежавшие деньги вычисляются по формуле C * exp (r * t), где C - начальная стоимость, r - процент в виде 0.06, t - время.

[Digi]

возможно так было бы проще, но мне нужно решить с помошью циклов.

[somewhere]

Код: Выделить всё

Uses Crt;

Const
Monthes  = 12;

var
Prices   : Array [1..Monthes] of Real;
Cost     : Real;
Course   : Real;
Avg      : Real;
X        : Integer;

begin
ClrScr;
Cost := 50;
Course := 0.6;
Prices[1] := Cost;
Avg := Cost;
For x:=2 to Monthes do
   begin
   Prices[x] := Prices[X-1]*(1+Course/100);
   Writeln('Month ',X,': ',Prices[X]:6:2);
   Avg := Avg + Prices[X];
   end;
Writeln('Average : ', Avg/Monthes:6:2);
end.

[Digi]

somewhere,

это Паскаль? ..какие то незнакомые слова

[BBB]

somewhere,

это Паскаль? ..какие то незнакомые слова

фигассе....

(может, Digi пишет на русифицированном Паскале?
или... [см.внимательно сабж] на языке Paskal ?)

[Calioka]

цикл далжен выглядеть следующим образом:

for i:=1 to 6 do
K:=K+0,006*K;

И всё вроде должен работать

[Хыиуду]

Ага, а среднее считать кто будет? А вот насчет массива согласен, вряд ли он тут нужен.
Короче, берем среднее арифметическое из двух кодов

Код: Выделить всё

K:=50;
avg:=0;
for i:=0 to 6 do
begin 
  avg:=avg+k;
  k:=k*1.006;
end;
writeln(avg/7);