Сформировать и вывести массив, содержащий N первых членов геометрической прогрессии

@Londally · Регистрация: 11.11.2017

Author24 — интернет-сервис помощи студентам

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

A, A × D, A × D², A × D³...

Спасибо заранее, задание нужно сделать с помощью массива.

@Cyborg Drone · 14.02.2018, 14:20

Pascal

const
  m = 100;
 
var
  a: array[1..m] of real;
  d: real;
  i, n: integer;
 
begin
  repeat
    write('N в диапазоне [1..', m, '];  N = ');
    readln(n)
  until n in [1..m];
  write('A = ');
  readln(a[1]);
  write('D = ');
  readln(d);
  for i := 2 to n do a[i] := a[i - 1] * d;
  writeln('Геометрическая прогрессия:');
  for i := 1 to n do writeln(a[i])
end.

@Londally 0 / 0 / 0 Регистрация: 11.11.2017 Сообщений: 24
		1
	Сформировать и вывести массив, содержащий N первых членов геометрической прогрессии 13.02.2018, 22:09. Показов 4632. Ответов 1 Метки нет (Все метки) Данное целое число N (> 1), а также первый член А и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов этой прогрессии: A, A × D, A × D², A × D³... Спасибо заранее, задание нужно сделать с помощью массива. 0

	14.02.2018, 14:20

Сформировать и вывести массив, содержащий N первых членов геометрической прогрессии

Решение