OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Вторник, 23 Октябрь, 2018 16:49

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




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: Не могу ввести строку
СообщениеДобавлено: Понедельник, 10 Март, 2014 23:45 
Аватара пользователя

Зарегистрирован: Среда, 19 Февраль, 2014 21:15
Сообщения: 18
При попытке ввести массива литер в массив получаю пустой массив. Помогите понять, где у меня ошибка.
Код:
МОДУЛЬ  X1Пример03;
   ПОДКЛЮЧИТЬ Ввод := i21eduВвод, Вывод := i21eduВывод;
   ТИП
      СтрокаПоСловам = УКАЗАТЕЛЬ НА МАССИВ ИЗ МАССИВОВ ИЗ ЛИТЕР;
      ОднаСтрока = УКАЗАТЕЛЬ НА МАССИВ ИЗ ЛИТЕР;    
   ПЕРЕМЕННЫЕ 
      заготовка : ОднаСтрока;
      сюжет: СтрокаПоСловам;
   
   ПРОЦЕДУРА Получить;
      ПЕРЕМЕННЫЕ однаЛитера : ЛИТЕРА; номерЛитеры : ЦЕЛОЕ;
   НАЧАЛО
      НОВАЯ( заготовка, 100); номерЛитеры:=1;
      Ввод.Открыть; УБЕДИТЬСЯ( Ввод.сделано );
      Ввод.Литера(однаЛитера);
      ПОКА Ввод.сделано ДЕЛАТЬ
         заготовка [номерЛитеры]:=однаЛитера;
         Вывод.Цел(номерЛитеры); Вывод.Цепочка(заготовка); Вывод.Литера(однаЛитера);             Вывод.НовСтрока;
         INC(номерЛитеры);
         Ввод.Литера(однаЛитера);
      КОНЕЦ;
      Вывод.Цепочка('Прочитана строка: '); Вывод.Цепочка(заготовка);Вывод.НовСтрока;
   КОНЕЦ Получить;
   
   ПРОЦЕДУРА СочинитьСюжет*;
      ПЕРЕМЕННЫЕ
   НАЧАЛО
      Получить;
   КОНЕЦ СочинитьСюжет;
НАЧАЛО
   
КОНЕЦ  Х1Пример03.

(!)Х1Пример03.СочинитьСюжет Однажды {зимой/летом/осенью/весной} случился {пожар/наводнение/землетрясения} в одном {селе/городе/становище}.
(!)Х1Пример03.СочинитьСюжет Однажды {зимой.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не могу ввести строку
СообщениеДобавлено: Вторник, 11 Март, 2014 00:24 
Модератор
Аватара пользователя

Зарегистрирован: Понедельник, 14 Ноябрь, 2005 18:39
Сообщения: 9011
Откуда: Россия, Орёл
Проще использовать Ввод.Строка, беря во входном потоке последовательность символов в кавычки.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не могу ввести строку
СообщениеДобавлено: Вторник, 11 Март, 2014 13:30 
Аватара пользователя

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7861
Откуда: Троицк, Москва
Ввод.Цепочка

"заготовка" должна каждый раз содержать в конце терминальный символ 0X, чтобы правильно печататься.

Опыт: в учебной ситуации новичкам нужен ровно один способ открытия, и, видимо, самый удобный для такого контекста -- выделять мышкой и нажимать Shift+F1.
Вместо Ввод.Открыть тогда нужно Ввод.Сначала (встать в начало потока ввода).

А Вы прочли документацию про ввод?
Хочу понять -- может, там нужно радикально переписывать? :)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не могу ввести строку
СообщениеДобавлено: Среда, 12 Март, 2014 16:11 
Аватара пользователя

Зарегистрирован: Среда, 19 Февраль, 2014 21:15
Сообщения: 18
На самом деле, я пробую разные варианты ввода большого и наверное структурированного набора данных. Какой из них легче объяснять ребятам. :? (все привлекательные задачи, даже не будучи сложны требуют большого набора данных)
Что проще (с меньшими умолчаниями) объяснить реализацию ввода из строки или работу с формами?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Не могу ввести строку
СообщениеДобавлено: Четверг, 13 Март, 2014 00:02 
Аватара пользователя

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7861
Откуда: Троицк, Москва
tvorimvsevmeste писал(а):
Что проще (с меньшими умолчаниями) объяснить реализацию ввода из строки или работу с формами?
Я вообще работу с формами не объясняю, т.к. это не относится к универсальной алгоритмике.

Но формы и труднее объяснять.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

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


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

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


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

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2018, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB