IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Проблеы с процедурой Read, При вводе строки в переменную
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Денис

Репутация: -  -1  +


Код

Program a;
Uses Crt;
Var
  i:Integer;
  s:String;

Begin
  For i:=1 To 5 Do
    Begin
      GotoXY(1,i);
      Read(s);  {Выполняется 1 раз ане 5}
    End;
End.


Почему процедура Read выполняется в циклах 1 раз.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Потому, что "перевод строки" мешает... Делай или так:
For i:=1 To 5 Do Begin
GotoXY(1,i);
ReadLn(s);
End;

или так:
For i:=1 To 5 Do Begin
GotoXY(1,i);
Read(s);

ReadLn;
End;

, но признак перевода строки из буфера ты прочесть должен. Иначе в 4 последних итерациях значение S присвоится пустой строке...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской
Реальное имя: Денис

Репутация: -  -1  +


Спасибо volvo.
Всё работает правильно.
Вопрос исчерпан.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 1:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name