Question

Как ввести массив в PascalABC.net при помощи Function, не через Procedure

Answer 1

function input_array(n:integer):array of integer;

begin

 var arr:=ReadArrInteger(n);

 Result:=arr;

end;

Begin

 var n:=ReadInteger('Введите количество элементов в массиве');

 var arr:=input_array(n);

 arr.Println;

end.

Answer 2

В PascalABC.NET можно ввести массив с помощью функции, используя параметры функции для передачи массива и возвращая этот массив из функции. Вот пример кода:

pascalCopy code
program InputArrayExample;

function InputArray(size: Integer): TArray<Integer>;
var
  arr: TArray<Integer>;
  i: Integer;
begin
  SetLength(arr, size);
  
  for i := 0 to size - 1 do
  begin
    Write('Введите элемент ', i + 1, ': ');
    ReadLn(arr[i]);
  end;
  
  Result := arr;
end;

var
  myArray: TArray<Integer>;
  i: Integer;
begin
  Write('Введите размер массива: ');
  ReadLn(i);
  
  myArray := InputArray(i);
  
  // Вывод элементов массива
  for i := 0 to Length(myArray) - 1 do
    WriteLn('Элемент ', i + 1, ': ', myArray[i]);
end.

В этом примере функция InputArray принимает размер массива в качестве параметра size и возвращает массив типа TArray<Integer>. Внутри функции мы создаем массив arr нужного размера с помощью SetLength. Затем мы используем цикл for для ввода элементов массива с помощью ReadLn и сохраняем их в arr. В конце функции мы возвращаем массив arr с помощью ключевого слова Result.

Затем в основной части программы мы считываем размер массива с помощью ReadLn и вызываем функцию InputArray, передавая ей размер массива. Результат, возвращаемый функцией, сохраняется в переменную myArray. Затем мы выводим элементы массива с помощью цикла for.

Обратите внимание, что в PascalABC.NET используется динамический массив TArray<T>, который автоматически масштабируется в зависимости от его размера.