Помогите решить задачку

[Хома]

Помогите решить задачку

Дано целое число N(>1), а также первый член А и знаменатель D геометрической прогрессии. Сформулировать и вывести массив размера N содержащий N первых членов данной прогрессии.
A,A*D,A*D1,A*D3... .
A=-2.27;
N=2;
D=-1.33
Ответ должен получиться:-2,27;3,03

 

[Хома]

:tehnari_ru_121:ПОМОГИТЕ

 

[Vladimir_S]

Поскольку Вы не считаете нужным указать даже язык программирования, то получите совет: вооружитесь калькулятором, карандашом и бумагой и выписывайте элементы массива, умножая каждый предыдущий элемент на D. И продолжайте, пока не навыпишете N штук.

 

[Хома]

Любой в принципе Pascal или Delphi

 

[Vladimir_S]

Любой в принципе Pascal или Delphi

Вот спасибо, мил человек, за бесценную информацию. И что - в чем проблема? Два числа не перемножить?

 

[Vladimir_S]

Да ладно, получите:

Var
 A,D:Real;
 N,i:Byte;
 W:Array[1..255] of Real;
Begin
 Write('A = ');
 Readln(A);
 Write('D = ');
 Readln(D);
 Write('N = ');
 Readln(N);
 W[1]:=A;
 For i:=2 to N do W[i]:=W[i-1]*D;
 For i:=1 to N do Write(W[i]:16:2);
 Readln
End.

 

[Хома]

Спасибочки большое!!!Да перемножить проблемы бы не составило,а вот как правильно програмку оформить вот это да...хм...программирование это не моё(((Спасибо за помощь=)))