Страница 1 из 1
Paskal - циклы
Добавлено: 02 апр 2007, 13:02
Digi
Стоимость акций растёт на протяжений 6 месяцев, каждый месяц на 0.6%. Наити среднюю стоимость акции за эти полгода, если известно, что начальная стоимость их была К$
задачка элементарная, ...одна проблема - Паскаль. что, куда, как ...непонятно:-(
Re: Paskal - циклы
Добавлено: 02 апр 2007, 13:14
Absurd
Зачем тебе циклы? Набежавшие деньги вычисляются по формуле C * exp (r * t), где C - начальная стоимость, r - процент в виде 0.06, t - время.
Re: Paskal - циклы
Добавлено: 02 апр 2007, 13:26
Digi
возможно так было бы проще, но мне нужно решить с помошью циклов.
Re: Paskal - циклы
Добавлено: 02 апр 2007, 15:21
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.
Re: Paskal - циклы
Добавлено: 03 апр 2007, 13:21
Digi
somewhere,
это Паскаль? ..какие то незнакомые слова
оффтопик (я в шоке)
Добавлено: 03 апр 2007, 14:18
BBB
Digi писал(а):somewhere,
это Паскаль? ..какие то незнакомые слова
фигассе....
(может, Digi пишет на
русифицированном Паскале?
или... [см.внимательно сабж] на языке Pas
kal ?)
Re: Paskal - циклы
Добавлено: 04 апр 2007, 14:52
Calioka
цикл далжен выглядеть следующим образом:
for i:=1 to 6 do
K:=K+0,006*K;
И всё вроде должен работать
Re: Paskal - циклы
Добавлено: 04 апр 2007, 17:52
Хыиуду
Ага, а среднее считать кто будет? А вот насчет массива согласен, вряд ли он тут нужен.
Короче, берем среднее арифметическое из двух кодов
Код: Выделить всё
K:=50;
avg:=0;
for i:=0 to 6 do
begin
avg:=avg+k;
k:=k*1.006;
end;
writeln(avg/7);