Почему нужно 2 раза писать readln?

@keml · Регистрация: 12.03.2009

Студворк — интернет-сервис помощи студентам

Почему нужно 2 раза писать readln? Читайте комментарий. Спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
end;
var
  c:chelovek;
begin
  c:=new chelovek;
  writeln('Привет, представься пожалуйста!');
  write('Имя: ');
  readln(c.imya);
  write('Фамилия: ');
  readln(c.familiya);
  write('Отлично ', c.imya,' ', c.familiya, ' очень приятно!');
  writeln('А сколько тебе лет?');
  write('Возраст: ');
  read(c.let);
  
    if (c.let<18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
    else
    writeln('Я в твои годы вагоны разгружал, а ты....');
    readln(c.otvet); // почему работает только с двумя "readln(c.otvet)"
    write(c.imya, ': ');
    readln(c.otvet); // убрать одну из "readln(c.otvet)" и программа до конца не работает. Почему?
    
    
    if (c.otvet='а че я') then
    writeln('Ты капец(')
    else
    writeln(')))');
end.

@Puporev · 05.07.2015, 17:31

Не по теме:

Очень уж текст содержательный, даже жаль программу портить...

@keml · 05.07.2015, 17:34 **[ТС]**

Не по теме:

ну это так просто))) Уважаемые, на тексте внимание не заостряем!)

@Alexey2014 · 05.07.2015, 17:35

keml,

Pascal
1
2
3
4
5
6
7
if (c.let<18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
    else
    writeln('Я в твои годы вагоны разгружал, а ты....');
//    readln(c.otvet); // почему работает только с двумя "readln(c.otvet)"
    write(c.imya, ': ');
    readln(c.otvet); // убрать одну из "readln(c.otvet)" и программа до конца не работает. Почему

@keml · 05.07.2015, 17:49 **[ТС]**

простите не сначала код программы написал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
type
  chelovek=class
    public
      imya:string;
      familiya:string;
      let:integer;
      otvet:string;
 
end;
var
  c:chelovek;
begin
  c:=new chelovek;
  writeln('Привет, представься пожалуйста!');
  write('Имя: ');
  readln(c.imya);
  write('Фамилия: ');
  readln(c.familiya);
  write('Отлично ', c.imya,' ', c.familiya, ' очень приятно!');
  writeln('А сколько тебе лет?');
  write('Возраст: ');
  read(c.let);
  
    if (c.let<18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
    else
    writeln('Я в твои годы вагоны разгружал, а ты....');
    readln(c.otvet); // почему работает только с двумя "readln(c.otvet)"
    write(c.imya, ': ');
    readln(c.otvet); // убрать одну из "readln(c.otvet)" и программа до конца не работает. Почему?
    
    
    if (c.otvet='а че я') then
    writeln('Ты капец(')
    else
    writeln(')))');
end.

Если в таком виде

Pascal
1
2
3
4
5
6
7
if (c.let<18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
    else
    writeln('Я в твои годы вагоны разгружал, а ты....');
//    readln(c.otvet); // почему работает только с двумя "readln(c.otvet)"
    write(c.imya, ': ');
    readln(c.otvet); // убрать одну из "readln(c.otvet)" и программа до конца не работает. Почему

то получается так

Привет, представься пожалуйста!
Имя: asd
Фамилия: asd
Отлично asd asd очень приятно!А сколько тебе лет?
Возраст: 22
Я в твои годы вагоны разгружал, а ты....
asd: )))

а должно быть так

Привет, представься пожалуйста!
Имя: asd
Фамилия: asd
Отлично asd asd очень приятно!А сколько тебе лет?
Возраст: 22
Я в твои годы вагоны разгружал, а ты....
asd: asdasd
)))

но почему чтобы все было верно мне приходится 2 раза писать readln я не понимаю

@nikhrom · 05.07.2015, 19:06

Вот так работает (поставил оператор readln, который считывает возраст):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
type
  chelovek = class
  public 
    imya: string;
    familiya: string;
    let: integer;
    otvet: string;
  
  end;
 
var
  c: chelovek;
 
begin
  c := new chelovek;
  writeln('Привет, представься пожалуйста!');
  write('Имя: ');
  readln(c.imya);
  write('Фамилия: ');
  readln(c.familiya);
  write('Отлично ', c.imya, ' ', c.familiya, ' очень приятно!');
  writeln('А сколько тебе лет?');
  write('Возраст: ');
  readln(c.let);
  
  if (c.let < 18) then
    writeln('Такая маленькая, зачем ты зашла на порно сайт?')
  else
    writeln('Я в твои годы вагоны разгружал, а ты....');
    write(c.imya, ': ');
    readln(c.otvet);
  
  
  if (c.otvet = 'а че я') then
    writeln('Ты капец(')
  else
    writeln(')))');
end.

@Cyborg Drone · 09.07.2015, 09:02

Сообщение от keml

почему чтобы все было верно мне приходится 2 раза писать readln я не понимаю

Всё просто. Оператор read не считывает из буфера ввода символы перевода строки и возврата каретки. И, при следующем вызове оператора read считывается пустая строка (собственно, символы перевода строки и возврата каретки). Отсюда и "непонятное" поведение программы. Для того, чтобы считать данные из буфера ввода и очистить буфер ввода, предназначен оператор readln. Примеры:

Входные данные, числа:
1 2 3

Неверно:

Pascal
1
2
3
read(a);
read(b);
read(c);

Pascal
1
read(a, b, c)

Конец строки не был считан, и остался в буфере. Отсюда и берутся "лишние" readln.

Верно:

Pascal
1
2
3
4
read(a);
read(b);
read(c);
readln;

Pascal
1
2
3
read(a);
read(b);
readln(c);

Pascal
1
readln(a, b, c)

В этих примерах буфер ввода после ввода будет пуст (сорри за вынужденный каламбур).

Просто примите за правило всегда считывать данные, содержащие конец строки, оператором readln. Если данных в строке несколько, то считывайте их опрератором read, все, кроме последнего: его нужно считывать оператором readln. Однако, readln не панацея, пример для упомянутых входных данных:

Pascal
1
2
3
readln(a);
readln(b);
readln(c);

Здесь будет считано только a = 1. После чего первый readln почистит буфер, и остаток строки (2 3) в буфере ввода будет уничтожен. И программа будет честно ждать ещё два readln'а, когда же Вы введёте в неё данные, которые Вы уже ввели, а она их уничтожила.

Рекомендую Вам повнимательнее изучать теоретические материалы. Языки программирования (а паскаль - в особенности) неточности и разночтения "понимают" превратно. В программе важен каждый символ, в том числе, и непечатный (которого вроде как и не видно).

Новые блоги и статьи Все статьи Все блоги /
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это дополнительная запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .

@Puporev
	05.07.2015, 17:31
	Не по теме: Очень уж текст содержательный, даже жаль программу портить... 0

@keml
	05.07.2015, 17:34 [ТС]
	Не по теме: ну это так просто))) Уважаемые, на тексте внимание не заостряем!) 0

Почему нужно 2 раза писать readln?

Решение