Оберон-клуб «ВЄДАsoft»
https://zx.oberon.org/forum/

Передача пременной-аргумента в процедуру CHR
https://zx.oberon.org/forum/viewtopic.php?f=79&t=398		 Страница 1 из 1
Автор:  Len [ 14 сен 2018, 16:46 ]
Заголовок сообщения:  Передача пременной-аргумента в процедуру CHR
В описании языка сказано, что процедура CHR принимает целый тип, результат - литера с порядковым номером, c типом CHAR. Если аргумент этой процедуры - целочисленная константа, то всё идёт без проблем, а если пременная, но тоже целочисленная, то почему-то ошибка.
Код: "OBERON"
Expand Code | Выделить всё
  1. VAR a: ARRAY 2 OF CHAR;
  2. 	i: INTEGER;
  3. BEGIN
  4. 	i := 0;
  5. 	a := CHR(0);
  6. 	a := CHR(i);(*здесь ошибка: несовместимое присваивание*)
  7.  
Автор:  ivan_denisov [ 14 сен 2018, 18:29 ]
Заголовок сообщения:  Re: Передача пременной-аргумента в процедуру CHR
Вы присваиваете массиву литер, литеру. Из-за этого беда. Сканер разрешает присваивать массиву литеру 0X например, тогда она записывается в первую позицию и считается пустая строка. А то, что вы делаете, это неправильно присваивание по большому счету.
Надо так, например:

Код: "OBERON"
Expand Code | Выделить всё
  1. VAR a: ARRAY 2 OF CHAR;
  2. 	i: INTEGER;
  3. BEGIN
  4. 	i := 0;
  5. 	a[0] := CHR(0);
  6. 	a[1] := CHR(i);
Страница 1 из 1 Часовой пояс: UTC + 2 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/