Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
4 / 4 / 0
Регистрация: 02.11.2013
Сообщений: 55
1

Как записать функцию, которая возвращает целочисленный массив

18.03.2014, 23:23. Просмотров 539. Ответов 1
Метки нет (Все метки)

Добрый вечер. Требуется вернуть целочисленный массив. Ниже код, который должен возвращать отсортированный массив по возрастанию. Как переписать код, чтобы он возвращал этот отсортированный массив, который позже будет выводится отдельной функцией?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
unit SortMassive;
 
interface
procedure SortOfMassive(arr: array of Byte);
 
 
implementation
 
 
procedure SortOfMassive(arr: array of Byte);
var
  i: integer;
  j: integer;
  min: Integer;
  buf: Integer;
  x: integer;
 
begin
  min:=arr[1];
  for i:=0 to Length(arr)-1 do begin  //begin of loop FOR
      if arr[i] < min then
          min:= arr[i];    
      end; //end of loop FOR
 
    for i:= 0 to Length(arr) do begin
      for j:=0 to Length(arr)-1 do
        if arr[j] > arr[j+1] then
          begin
           x:= arr[j+1];
           arr[j+1]:= arr[j];
           arr[j]:= x;
          end;
    end;
  end;
 
 
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2014, 23:23
Ответы с готовыми решениями:

. Написать функцию, которая по двум заданным одномерным массивам (A размера m и B размера n) вычисляет двумерный массив c(ij)=a(i)*b(j) и возвращает
Написать функцию, которая по двум заданным одномерным массивам (A размера m и B размера n)...

Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр
1)Напишите функцию, которая возвращает объем сферы, радиус которой передается как параметр. ...

Написать функцию которая возвращает True, если есть пара чисел, которая удовлетворяет условие
Есть массив: arr : array of Integer; Заполненный случайными числами от -32,768 до 32,767. ...

Напишите функцию, которая возвращает наименьшее из значений
Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

1
Модератор
7930 / 3981 / 2793
Регистрация: 17.08.2012
Сообщений: 12,716
19.03.2014, 01:19 2
Pascal
1
2
3
4
5
//...
procedure SortOfMassive(var arr: array of Byte);
//...
min:=arr[0]; //ошибка, кажись
//...
И замените везде Length(arr)-1 на high(arr), так корректней. Допустим, в случае of integer Вам бы пришлось написать Length(arr) div sizeof(integer) - 1, а мне - то же самое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2014, 01:19

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать функцию, которая возвращает N правых символов в виде строки
Помогите пожалуйста с программой: Функция - RIGHT(C:STRING;n:INTEGER):STRING - возвращает N...

Описать функцию, которая возвращает сумму наибольших цифр из числа
Описать функцию, которая возвращает сумму наибольших цифр входящих в запись числа типа Longint...

Описать функцию, которая возвращает количество знаков препинания в строке
Люди добрые помогите плз не могу написать проги: 1. Описать функцию, которая возвращает...

Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел
Напишите рекурсивную функцию, которая возвращает среднее из n элементов массива чисел. помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.