Блог учителя Информатики

Решение задачи ExamBegin21


Условие задачи:

На вход подаются три числа: целое число N (> 1) и вещественные числа A и D — соответственно первый член и знаменатель геометрической прогрессии (каждое число вводится с новой строки). Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D2, A·D3, … . Каждое число выводить на новой строке.


uses PT4Exam;

const
  R = 100;

var
  m: array[1..R] of real;
  n, i: integer;
  a, d: real;

begin
  Task('ExamBegin21');
  Read(n, a, d);
  for i := 1 to n do
  begin
    m[i] := a;
    Writeln(m[i]:4:2);
    a := a * d;  
  end;
end.

Так же возможное решение 21 задачи.

uses PT4Exam;

var
  n, i: integer;
  a, d: real;

begin
  Task('ExamBegin21');
  Read(n, a, d);
  for i := 1 to n do
  begin
    Writeln(a:4:2);
    a := a * d;  
  end;
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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