Решаем задачи Абрамян на Паскале. Array4

Array4. Дано целое число $N (\gt 1)$ , а также первый член $A$ и знаменатель $D$ геометрической прогрессии. Сформировать и вывести массив размера $N$ , содержащий $N$ первых членов данной прогрессии:

$A, A*D, A*D^2, A*D^3, …$ .

Решение:

program Array4;

var

a:array[1..10] of integer;

Pow,D,N,i:Integer;

begin

Write('N:');

Readln(N);

Write('A_1:');

Readln(a[1]);

Write('D:');

Readln(D);

Pow:=D;

for i:=2 to N do

begin

a[i]:=a[1]*Pow;

Pow:=Pow*D;

end;

for i:=1 to N do writeln(i,' : ',a[i]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 4

olegst1975

08.03.2016 в 13:43

Массив должен быть вещественный, но главное, сейчас степени в прогрессии — 1, 2, 4, 8…вместо 1, 2, 3, 4

Ответить

Ввёл ещё одну переменную:
Было:

program Array4;

var

a:array[1..10] of integer;

D,N,i:Integer;

begin

Write('N:');

Readln(N);

Write('A_1:');

Readln(a[1]);

Write('D:');

Readln(D);

for i:=2 to N do

begin

a[i]:=a[1]*D;

D:=D*D;

end;

for i:=1 to N do writeln(i,' : ',a[i]);

end.

Стало:

program Array4;

var

a:array[1..10] of integer;

Pow,D,N,i:Integer;

begin

Write('N:');

Readln(N);

Write('A_1:');

Readln(a[1]);

Write('D:');

Readln(D);

Pow:=D;

for i:=2 to N do

begin

a[i]:=a[1]*Pow;

Pow:=Pow*D;

end;

for i:=1 to N do writeln(i,' : ',a[i]);

readln;

end.

Ответить

Bronislav

28.04.2018 в 11:43

у вас бы и первый вариант заработал если a[i]:=a[i-1]*D;
А так как-то запутано все получилось. И pow, и a[1], и отсчет цикла с двойки…

Ответить
Bronislav

29.04.2018 в 12:02

begin var n:=10; var a:=1; var d:=2; var ar:=SeqGen(n,a,i->i*d).ToArray; ar.Println; end.

1
2
3
4
5
6
7

begin
  var n:=10;
  var a:=1;
  var d:=2;
  var ar:=SeqGen(n,a,i->i*d).ToArray;
  ar.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Array4

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ