Ассемблерные вставки в Virtual Pascal

@Student7196 · Регистрация: 25.04.2015

Author24 — интернет-сервис помощи студентам

Для массива 32-х битных целых чисел определить количество элементов больших заданного числа, меньших его и равных ему.

Вот, собственно, сам код.

Pascal

var
  mas: array [1..100] of longint;
  n, i, num, great, less, equal: longint;
begin
 great:=0;
 less:=0;
 equal:=0;
 write('Размерность*: ');
 readln(n);
 writeln('Введите элементы.');
 for i:=1 to n do readln(mas[i]);
 write('Введите число: ');
 readln(num);
  asm
   mov esi, offset mas
   mov ecx, n
  one :
   lodsd
   cmp eax, num
   jg two
   jz three
   inc less
   jmp next
  two :
   inc great
   jmp next
  three :
   inc equal
  next :
   loop one
  end;
 writeln('Больше: ', great);
 writeln('Меньше: ', less);
 writeln('Равно: ', equal);
end.

Код написан в Virtual Pascal. Почему-то ругается на метки. Может кто подсказать в чем дело?

@Ethereal · 18.06.2015, 20:44

Между именем метки и двоеточием пробела не ставь.
one:
two:
three:
next:

@Student7196 · 18.06.2015, 20:56 **[ТС]**

Нашел ответ. Оказывается, надо было везде перед названиями меток поставить символ @

@Ethereal · 18.06.2015, 21:07

Virtual Pascal такой виртуальный. Собачки перед меткой ему подавай

Charles Kludge · 18.06.2015, 21:18

Сообщение от Ethereal

Собачки перед меткой ему подавай

Всё верно - как признак локальной (для текущей ф-ции/процедуры) метки.

@Ethereal 6770 / 2739 / 384 Регистрация: 17.02.2013 Сообщений: 4,047
	18.06.2015, 20:44	2
	Между именем метки и двоеточием пробела не ставь. one: two: three: next: 2

@Student7196 0 / 0 / 0 Регистрация: 25.04.2015 Сообщений: 52
	18.06.2015, 20:56 [ТС]	3
	Нашел ответ. Оказывается, надо было везде перед названиями меток поставить символ @ 0

@Ethereal 6770 / 2739 / 384 Регистрация: 17.02.2013 Сообщений: 4,047
	18.06.2015, 21:07	4
	Virtual Pascal такой виртуальный. Собачки перед меткой ему подавай 1

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	18.06.2015, 21:18	5
	Сообщение от Ethereal Собачки перед меткой ему подавай Всё верно - как признак локальной (для текущей ф-ции/процедуры) метки. 0