Заполнение массива арифметической прогрессией

Заполнение массива арифметической прогрессией

Исходник программки на Паскаль, которая заполняет массив арифметической прогрессией и выводит его на экран пользователя. Есть пояснительные комментарии. Скачать исходник или просмотреть исходный код программы, Вы можете ниже.

Исходный код программы:


const 
  Sz = 100;
  a0 = 5; // Первый элемент арифметической прогрессии
  d = 3;  // Разность арифметической прогрессии
 
var 
  a: array [1..Sz] of integer;
  N: integer; // Количество элементов в массиве
 
begin
  N := 20;
  a[1] := a0;
  for var i:=2 to N do //Заполнение массива
    a[i] := a[i-1] + d;
  writeln('Арифметическая прогрессия: '); //Вывод результата
  for var i:=1 to N do
    write(a[i],' ');
end.


Скачать исходник: zapolnenieap.pas
Дата: 2012-06-04 15:31:34   Просмотров: 12068

Теги: Паскаль исходник исходники Pascal FOR массивы