Решение задач. Array1-6


array1-6

Приветствуем читателей нашего сайта! Сегодня мы с вами решим задачи Array1-6.

Array1-6. (Одномерные массивы: формирование)

При выполнении заданий на формирование массива можно считать, что размер результирующего массива не превосходит 10.
Array1. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, ….

program array1;

var
  a: array[1..10] of integer;
  N, i: integer;

begin
  write('Введите N: ');
  readln(N);
  a[1] := 1; 
  for i := 2 to N do
    a[i] := a[i - 1] + 2; 
  for i := 1 to N do write(a[i],' ')
end.

Array2. Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий степени двойки от первой до N-й: 2, 4, 8, 16, ….

program array2;

var
  a: array[1..10] of integer;
  N, i: integer;

begin
  write('Введите N: ');
  readln(N);
  a[1] := 2; 
  for i := 2 to N do
    a[i] := a[i - 1] * 2; 
  for i := 1 to N do write(a[i],' ')
end.

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

program array3;

var
  arr: array[1..10] of integer;
  N, A, D, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите A, D: ');
  readln(A, D);
  arr[1] := A; 
  for i := 2 to N do
    arr[i] := arr[i - 1] + D; 
  for i := 1 to N do write(arr[i],' ')
end.

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

program array4;

var
  arr: array[1..10] of integer;
  N, A, D, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите A, D: ');
  readln(A, D);
  arr[1] := A; 
  for i := 2 to N do
    arr[i] := arr[i - 1] * D; 
  for i := 1 to N do write(arr[i],' ')
end.

Array5. Дано целое число N (> 2). Сформировать и вывести целочисленный массив размера N, содержащий N первых элементов последовательности чисел Фибоначчи FK:
F1 = 1, F2 = 1, FK = FK−2 + FK−1, K = 3, 4, ….

program array5;

var
  arr: array[1..10] of integer;
  N, i: integer;

begin
  write('Введите N: ');
  readln(N);
  arr[1] := 1; 
  arr[2] := 1;
  for i := 3 to N do
    arr[i] := arr[i - 1] + arr[i - 2]; 
  for i := 1 to N do write(arr[i], ' ')
end.

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

program array6;

var
  arr: array[1..10] of integer;
  N, A, B, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите A, B: ');
  readln(A, B);
  arr[1] := A; 
  arr[2] := B;
  arr[3] := A + B;
  for i := 4 to N do
    arr[i] := 2 * arr[i - 1]; 
  for i := 1 to N do write(arr[i], ' ')
end.

На сегодня всё! Если у вас возникли вопросы, задавайте их в комментариях. И не забывайте рассказывать о нашем сайте своим друзьям!

Learn Pascal » Решение задач на Паскале » Массивы / Array
1 Star2 Stars3 Stars4 Stars5 Stars (1 оценок, среднее: 5,00 из 5)
Загрузка...

Добавить комментарий

Ваш e-mail не будет опубликован.