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

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


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

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


uses PT4Exam;

const
  R = 100;

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

begin
  Task('ExamBegin20');
  Read(n, a, d);
  for i := 1 to n do
  begin
    m[i] := a;
    Write(m[i]:7:2);
    a := a + d;  
  end;
end.

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

uses PT4Exam;

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

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

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