Pascal: Проверь себя (одномерные массивы)

Авторadmin / Опубликовано

Решенные задачи Pascal: одномерные массивы

К оглавлению
Array 1: Дано целое число N(>1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:
A, A+D, A+2∗D, A+3∗D, … .

Фрагменты решения:

var
  a:array[1..10] of integer; {объявление целочисленного массива из 10 элементов}
  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 
        ...
  for i:=1 to N do 
        {вывод результирующего массива}
end.

Видео-разбор данного задания:
youTube

Array 2: Даны целые числа A и B. Сформировать и вывести целочисленный массив размера N (N>2), первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

Фрагменты решения:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

var
  a:array[1..10] of integer;
  N,i,i2:Integer;
begin
  Write('N:');
  Readln(N);
  Write('A:');
  Readln(a[1]);
  Write('B:');
  Readln(a[2]);
 
  for i:=??? to N do
   begin
     ... 
     ... {сложение от 1 до предыдущего элемента (в текущий элемент)}
   end;
  for i:=1 to N do writeln(i,' : ',a[i]);
end.

Видеоразбор задания:
youTube

Array 3: Дано целое число N>1, а также первый член A и знаменатель D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:
решенные задачи Паскаль массивы

Фрагменты решения:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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:=??? to N do
   begin
    a[i]:=...*...; {формирование каждого i-ого элемента}
    Pow:=....; {степень для текущего элемента: степень для предыдущего элемента*степень}
   end;
 
  for i:=1 to N do 
      {вывод элементов}
end.

Видеоразбор задания:
youTube

К оглавлению