Question

(Паскаль) написать программы, которые заполняют массив числами с арифметической прогрессией и числами фибаначи

Answer 1

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Ряд натуральных чисел:');
For i:= 1 to N do
    Begin
    A[i]:=i;
    Write(' ',A[i])
    End;
End.



Const
   N = 13;
Var
   A,B,C:longint;
   i:integer;
   M:array[1..N] of longint;
Begin
A:=0;
B:=1;
M[1]:=1;
For i:= 2 to N do
    Begin
    A:=B+A;
    M[i]:=A;
    C:=A;
    A:=B;
    B:=C;
    End;
For i:= 1 to N do
    Write(M[i],' ');
End.

Answer 2

Для написания программы на языке Паскаль, которая заполняет массив числами с арифметической прогрессией и числами Фибоначчи, можно использовать следующий код:

program ArrayFill;

const
  SIZE = 10; // размер массива

procedure FillArithmeticProgression(var arr: array of Integer; start, step: Integer);
var
  i: Integer;
begin
  for i := 0 to SIZE - 1 do
  begin
    arr[i] := start + i * step;
  end;
end;

procedure FillFibonacciSequence(var arr: array of Integer);
var
  i: Integer;
begin
  arr[0] := 0;
  arr[1] := 1;
  
  for i := 2 to SIZE - 1 do
  begin
    arr[i] := arr[i-1] + arr[i-2];
  end;
end;

var
  arithmeticArr: array[0..SIZE-1] of Integer;
  fibonacciArr: array[0..SIZE-1] of Integer;
  i: Integer;
begin
  FillArithmeticProgression(arithmeticArr, 1, 2);
  FillFibonacciSequence(fibonacciArr);
  
  // Выводим массивы на экран
  writeln('Массив с арифметической прогрессией:');
  for i := 0 to SIZE - 1 do
  begin
    write(arithmeticArr[i], ' ');
  end;
  writeln;
  
  writeln('Массив с числами Фибоначчи:');
  for i := 0 to SIZE - 1 do
  begin
    write(fibonacciArr[i], ' ');
  end;
  writeln;
end.

В этом примере используются две процедуры: `FillArithmeticProgression` для заполнения массива числами с арифметической прогрессией и `FillFibonacciSequence` для заполнения массива числами Фибоначчи. Затем массивы выводятся на экран.

Примечание: В данном примере размер массива задан константой `SIZE`, которая равна 10. Вы можете изменить эту константу в соответствии с вашими требованиями.

Надеюсь, это поможет вам написать программу на Паскале для заполнения массива числами с арифметической прогрессией и числами Фибоначчи! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.