Паскаль форева!
помоему, нужно так:
>>Procedure Massiveresize(Ain:array of real, Aout:array of real);
>>Procedure Massiveresize(Ain:array of real, Aout:array of real);
Это всё хорошо, но я хочу размерности массивов разные и именно такие как написано.
ну дык создай в теле процедуры массивы, которые тебе нужны (с нужными границами) и сделай, чтоб они указывали на ain и aout
Хм. А разве при компиляции этой процедуры Ain и Aout сразу не создадутся одномерными по умолчанию? Или я глючу...
Мне к сожалению проверить пока никак. Программа здоровенная, ломает писать ещё и проверялку для процедуры.
Мне к сожалению проверить пока никак. Программа здоровенная, ломает писать ещё и проверялку для процедуры.
дык они все одномерные.
и многомерные - тоже одномерные
я уже паскаля не помню, но можешь еще попробовать создать два новый типа для этих двух массивов и передавать в функцию указатели на них.
тогда с ними можно будет работать как надо.
и многомерные - тоже одномерные
я уже паскаля не помню, но можешь еще попробовать создать два новый типа для этих двух массивов и передавать в функцию указатели на них.
тогда с ними можно будет работать как надо.
Надо type definition в начале программы сделать.
program Programname;
uses crt;
type ar=array [1..10,1..10] of integer;
.....
function FuncName(a:ar):longint;
.....
program Programname;
uses crt;
type ar=array [1..10,1..10] of integer;
.....
function FuncName(a:ar):longint;
.....
Ааааа, а менее геморно низзя? А то я созданием типов никогда не занимался, а ботать маны неохота.
Куль. Всё так просто? Сейчас проверю...
вот, товарищ gimli это тебе и сделал
Менее геморрно нельзя. Пример возьми из предыдущего поста Гыма
type
big=array[1..3,1..3,1..10] of real;
resize=array[1..3,1..30] of real;
.......
Procedure Massiveresize(Ain:big,Aout:resize);
Error 89: ")" expected.
big=array[1..3,1..3,1..10] of real;
resize=array[1..3,1..30] of real;
.......
Procedure Massiveresize(Ain:big,Aout:resize);
Error 89: ")" expected.
вместо запятой между переменными - ;
Thanx. Третий час геморроя пошел. Совсем глюки уже...
ЗЫ. А случайно в Massiveresize(Ain:array[1..3, 1..3, 1..10] of real, Aout:array[1..3,1..30] of real); не надо было точку с запятой ставить?
ЗЫ. А случайно в Massiveresize(Ain:array[1..3, 1..3, 1..10] of real, Aout:array[1..3,1..30] of real); не надо было точку с запятой ставить?
Надо было, но все равно не помогло бы
Всё равно big thnx!
Оставить комментарий
logan00108
Напомните человеку, 4 года назад забывшему Паскаль, почему BP7 на такую строчкуProcedure Massiveresize(Ain:array[1..3, 1..3, 1..10] of real, Aout:array[1..3,1..30] of real);
ругается
Error 54: OF expected.
Я уже 2 года фортраном занимаюсь, прошу извинить за ламерство.