Компилятор ругается на функцию.Что делать?

Question

[Владислав]

Товарищи!
Компилятор ругается на функцию, которая должна вернуть массив целых чисел.
Неужели в Turbo Pascal функция может вернуть только стандартный тип данных??

function NewMassive(a:mass;x,y:integer):array [1..100] of integer;
var
	i,c:integer;
	b:mass;
begin
	c := 1;
	for i := x to y do begin
		b[c]:= a[i];
		c:=c+1;
	end;
	NewMassive := b;
end;

Answer 1

[Everything_is_not_so_bad]

Когда имеются две сложных структуры, нужно задавать параметры в процедуре, а не функции. Потому что функции используются для возврата простых типов.
Правильно так:

procedure Some(a: mass; var b: mass)
begin
end;

Параметр a - входной массив. b - формируемый для выхода.

Answer 2

[zed]

Чтобы вернуть какой-то тип данных, его надо объявить. Судя по всему, у вас уже объявлен тип динамического массива - mass, вот его и нужно возвращать:
function NewMassive(a:mass;x,y:integer):mass;
И у вас массив b не инициализируется. Ему надо сперва задать размер, а уже потом что-то в него писать.

Comments

[Владислав]

да хрен с массивом b. я пробывал возвращать mass, но мне выдается invalid type result или как-то так.

[zed]

Владислав: Покажите как определён mass и что конкретно пишет компилятор.

[Владислав]

type
    T1 = array [1..5] of integer;
var
   a:T1;
function test(i:integer): T1;
begin

end;
begin

end.

Ошибка
Invalid function result type

Забыл сказать, что TP запущен в dosbox на lubuntu

[zed]

Гугл подсказывает, что в Turbo Pascal нету динамических массивов. Если это так, то нужно извращаться с указателями и выделением памяти: www.programmersclub.ru/%D0%B4%D0%B8%D0%BD%D0%B0%D0...

[zed]

Можете попробовать переписать свою функцию как procedure test(i:integer; out m: T1); если у вас статический массив.

[Владислав]

zedxxx: наверно это выход