Оберон-клуб «ВЄДАsoft» • Просмотр темы - Передача пременной-аргумента в процедуру CHR

Сообщения без ответов | Активные темы

Список форумов » Оберон-темы » Вопросы и ответы по Оберон-технологиям

Часовой пояс: UTC + 2 часа

Передача пременной-аргумента в процедуру CHR

Страница 1 из 1

[ Сообщений: 2 ]

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

Пред. тема | След. тема

Автор

Сообщение

Len

Заголовок сообщения: Передача пременной-аргумента в процедуру CHR

Добавлено: 14 сен 2018, 16:46

Сообщения: 116
Откуда: Каменск-Уральский

В описании языка сказано, что процедура CHR принимает целый тип, результат - литера с порядковым номером, c типом CHAR. Если аргумент этой процедуры - целочисленная константа, то всё идёт без проблем, а если пременная, но тоже целочисленная, то почему-то ошибка.

Код: "OBERON"

Expand Code | Выделить всё

VAR a: ARRAY 2 OF CHAR;
	i: INTEGER;
BEGIN
	i := 0;
	a := CHR(0);
	a := CHR(i);(*здесь ошибка: несовместимое присваивание*)

Вернуться к началу

ivan_denisov

Заголовок сообщения: Re: Передача пременной-аргумента в процедуру CHR

Добавлено: 14 сен 2018, 18:29

Администратор

Сообщения: 108

Вы присваиваете массиву литер, литеру. Из-за этого беда. Сканер разрешает присваивать массиву литеру 0X например, тогда она записывается в первую позицию и считается пустая строка. А то, что вы делаете, это неправильно присваивание по большому счету.
Надо так, например:

Код: "OBERON"

Expand Code | Выделить всё

VAR a: ARRAY 2 OF CHAR;
	i: INTEGER;
BEGIN
	i := 0;
	a[0] := CHR(0);
	a[1] := CHR(i);

Вернуться к началу

Страница 1 из 1

[ Сообщений: 2 ]

Список форумов » Оберон-темы » Вопросы и ответы по Оберон-технологиям

Часовой пояс: UTC + 2 часа

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти: