Версия для печати темы

Автор: chad1s 21.12.2010 21:40

задание: Использовать директиву absolute, отсортировать по убыванию с помощью одной подпрограммы векторы из 10 и 14 вещественных компонент.

текст программы:

Program Lab13;
const
 x:array[1..10] of real=(1,2,3,4,5,6,7,8,9,10);
 y:array[1..14] of real=(1,2,3,4,5,6,7,8,9,10,11,12,13,14);
procedure sort(var z,n:byte);
var
 w:array[1..maxint div size of real]of real absolutez;
 i:byte;
 k:byte;
 t:real;
begin
 writeln;
 for i:=1 to n do
  begin
   for k:=i+1 to n do
    begin
     t:=w[i];
     w[i]:=w[k];
     w[k]:=t;
    end;
   end;
  end;
 procedure vivod(var z,n:byte);
 w:array[1..maxint div size of real] of real absolutez;
 i:byte;
 begin
  for i:=1 to n do
  write('',w[i]:4);
  writeln;
 end;
begin
 writeln('Сортировка');
 sort(x,10);
 sort(y,14);
 writeln('Вывод:');
 vivod(x,10);
 vivod(y,14);
end.
 

ошибка вот в чем, в лекциях на подобном примере написана такая строка

w:array[1..maxint div size of real]of real absolutez;

собственно на неё и ругается паскаль, подскажите?

Автор: volvo 21.12.2010 21:56

w:array[1..maxint div sizeof(real)] of real absolute z;

(у тебя в одном месте - лишние пробелы, в другом пробела не хватает)

Ну, и ко всему:

procedure vivod(var z; n:byte); { После Z - точка с запятой, а не запятая }

, иначе получишь ошибку в другом месте, при попытке передать массив, когда процедура ждет byte.

Кстати, причем тут массивы открытого типа? Их тут нет. У тебя вообще бестиповые параметры.

Автор: chad1s 21.12.2010 23:01

спасибо

ну это просто общая тема на несколько лаб, в моей нету просто)

Добавлено через 9 мин.
блин все ровно ошибку выдает

перед

sizeof

выдает что ожидался идентификатор

Автор: volvo 21.12.2010 23:43

Не знаю, что у тебя там ошибку выдает - я не телепат твои ребусы разгадывать. У меня не выдает:


Мне что, еще несколько компиляторов проверить, в надежде, что где-то не сработает?

Автор: chad1s 22.12.2010 0:24

Да все я разобрался, мой косяк спасибо за помощь)