Illegal assignment

[mmx358]

procedure Setup(var llimx, rlimx : byte);
var
  a : byte;
begin
  gotoxy(20,10);
  writeln('Width of field:');
  gotoxy(20,30);
  repeat read(a); until (a>9) and (a<21);
{---------------------------------------}  
  llimx:=((80-(a*2))/2)-1; {Устанавливаем границы, одновременно центрируем}
  rlimx:=(llimx+(a*2))+1; {Устанавливаем границы, одновр. центр.}
end;

Компилятор ставит курсор в конец строки

llimx:=((80-(a*2))/2)-1;

и говорит "Illegal assignment.
Я же вроде прописал все типы...

[puporev]

llimx:=((80-(a*2))/2)-1;

Если используете вещественное деление для целых типов, то следует написать llimx:=round(((80-(a*2))/2)-1);

[Stilet]

А Until для Репита где?
И вообще llimx у тебя байт (целочисленный) а ты к нему деление для плавающих точек применил, пробуй так:

llimx:=((80-(a*2)) div 2)-1;

[mmx358]

Спасибо! Получилось.

[mmx358]

а что значит "Ошибка в операторе"?

if fcnt>0 then
    begin
      fail := true;
	  if down then
	    begin
	      plus:=true;
	      case pos of
	        1 : pos_1(sx,sy);
	        2 : pos_2(sx,sy);
	        3 : pos_3(sx,sy);
	        4 : pos_4(sx,sy);
		  end;
	    end;
	end;	
  else fail := false;

компайлер ставит курсор под букву

else fail := false;

[puporev]

Перед else нельзя ставить точку с запятой, уберите.

[mmx358]

puporev, спасибо!

У меня еще вот такая штука:

  
for a:=1 to 24 do 
  begin
     field[a,5]:=1;
     field[a,10]:=1;
  end;  	
for a:=1 to 22 do
   begin
     field[25, a]:=1;
   end;

field : array [1..25, 1..22] of byte

В первом цикле мне надо заполнить единицей только 5ю и 10ю позиции в каждой строке массива field. Но он заполняет каждую строку полностью.

[puporev]

Я не знаю, что Вы делаете, но у меня все нормально заполняет, вот пример.

uses crt;
var
field : array [1..25, 1..22] of byte;
a,b:byte;
begin
clrscr;
for a:=1 to 24 do
  begin
     field[a,5]:=1;
     field[a,10]:=1;
  end;  	
for a:=1 to 22 do
   begin
     field[25, a]:=1;
   end;
for a:=1 to 25 do
 begin
  for b:=1 to 22 do
  write(field[a,b]:3);
  writeln;
 end;
readln
end.