Решаем задачи Абрамян на Паскале. 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.

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;

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.

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

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