Закрывается программа после нажатия Enter

@iiwanc · Регистрация: 04.03.2013

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

Здравствуйте!
Простите за наивный вопрос. Впервые использую Паскаль.
После компиляции программы, запускаю ее. После ввода входных значений и нажатия на Enter, чтобы произвести расчет, программа закрывается.
Как сделать, чтобы она не закрывалась?
Вот код:

Pascal

PROGRAM PODKORYTOV;
VAR A,B,S,P:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ДВА ЧИСЛА ');
READ (A,B);
P:=2*(A+B);
S:=A*B;
WRITELN ('ПЕРИМЕТР = ',P);
WRITE ('ПЛОЩАДЬ = ',S);
readln;
END.

Буду благодарен помощи!
Использую PascalABC. Версия 3.3
Windows 7

@Mike_Boone · 03.02.2019, 17:09

Pascal

1 2	uses crt;//в заголовок программы readkey();//в конце перед end

@iiwanc · 03.02.2019, 17:17 **[ТС]**

Спасибо!
Выручили

@Cyborg Drone · 06.02.2019, 23:12

Mike_Boone, это Вы костыль написали. Никак нельзя такое советовать. Прочитайте про работу операторов ввода, рекомендую.

Программа закрывается потому, что после нажатия <Enter> при вводе (в строке 5) процедура read, прочитав A и B, не удаляет из буфера ввода этот самый <Enter> (просто потому, что read этого не делает), а в строке 10 процедура readln как раз и ждёт <Enter> из буфера ввода. И она его получает, и программа тут же завершается. Нужно всего лишь заменить read на readln:

Pascal

5	READLN(A,B);

Тогда <Enter> будет удалён из буфера ввода уже в строке 5. И не придётся вышибать из буфера ввода оставшийся от read этот чёртов <Enter> с помощью readkey или, например, ещё одного readln в конце программы...

@Mike_Boone · 07.02.2019, 10:37

Не по теме:

Cyborg Drone, главное чтобы работало. ;DD

@iiwanc · 07.02.2019, 16:04 **[ТС]**

Теперь у меня такой код.
Добавил в 5 строку READLN(A,B); но программа закрывается после нажатия Enter.
Подскажите, пожалуйста, что делаю не так.

Pascal

PROGRAM PODKORYTOV;
VAR A,B,S,P:INTEGER;
BEGIN
WRITE('ВВЕДИТЕ ДВА ЧИСЛА ');
READLN(A,B);
P:=2*(A+B);
S:=A*B;
WRITELN ('ПЕРИМЕТР = ',P);
WRITE ('ПЛОЩАДЬ = ',S);
END.

@Puporev · 07.02.2019, 16:11

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

WRITE('ВВЕДИТЕ ДВА ЧИСЛА ');

Вводите 1 число-> Enter, 2 число-> Enter.

@iiwanc · 07.02.2019, 16:32 **[ТС]**

Все равно закрывается

@Puporev · 07.02.2019, 16:38

Да ну Вас нафиг, у меня не закрывается.

@Cyborg Drone · 09.02.2019, 04:25

iiwanc, Вы "делаете не так" следующее: зачем-то убрали readln перед end. Естественно, Вы ввели числа, был выдан ответ, и тут же программа закрылась, не притормозив, потому что нет команды, которая дожидается нажатия клавиши.

Не по теме:

Mike_Boone, я с Вами не согласен. К примеру, если я Вам посоветую, что при езде на велосипеде нужно тормозить с помощью падения, это как, нормально? А почему нет, это же вполне рабочий способ затормозить.

@Puporev · 09.02.2019, 07:37

Сообщение от Cyborg Drone

потому что нет команды, которая дожидается нажатия клавиши.

Да в АВС это и не нужно. Или у ТС не АВС и он пудрит мозг в этом разделе?

@Cyborg Drone · 09.02.2019, 11:23

Puporev, естественно, у ТС не ABC, это стало ясно ещё из сообщения #1.

@iiwanc · 10.02.2019, 12:23 **[ТС]**

Обновил до 3.4.2

@iiwanc · 10.02.2019, 12:26 **[ТС]**

Скрин

@iiwanc · 10.02.2019, 12:29 **[ТС]**

Cyborg Drone, спасибо за разъяснение.
Теперь работает, как надо

@Cyborg Drone · 11.02.2019, 04:04

iiwanc, на будущее: Pascal ABC и Pascal ABC.NET, несмотря на их общее происхождение, совершенно разные диалекты паскаля.

ABC - диалект паскаля, в котором ампутировано всё, что можно, и ещё вдобавок немножко того, что нельзя. Он даже исполняемого файла (без танцев с бубном) создать не способен. Предназначен исключительно для обучения, ни на что бОльшее он не годится. Поддержка и дальнейшее развитие этого диалекта паскаля давным-давно прекращены.

ABC.NET - мощнейшая среда программирования, основанная на Pascal (а именно: на том самом Pascal ABC), скрещенным с C#, и, как следствие, с микрософтовсой платформой .NET. То есть, заточен этот паскаль исключительно под виндовс, но, в принципе, это недостатком можно и не считать. Его синтаксис, вообще-то, очень сильно отличается от синтаксиса прочих диалектов паскаля, хотя, позволительно писать программы и в "классическом" стиле. В нём столько всего понапихано, что мама не горюй. Одно плохо: разработчикам, судя по всему, доведение этого отличного диалекта паскаля до идеала совершенно по барабану. БОльшая часть того, что им в багтрек написали, они, похоже, исправлять и не собираются. Поэтому, из-за его "забагованности", многие программисты, поначалу "влюбившиеся" в этот диалект, "пересаживаются" с него на микрософтовский "первоисточник" C#, из которого, собственно, все "плюшки" Pascal ABC.NET и понадёрганы.

@iiwanc · 12.02.2019, 16:18 **[ТС]**

Большое спасибо за разъяснение.
Простите, что ввел в заблуждение.

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	10.02.2019, 12:26 [ТС]	14
	Сообщение было отмечено ZX Spectrum-128 как решение Решение Скрин Миниатюры 0

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	10.02.2019, 12:29 [ТС]	15
	Cyborg Drone, спасибо за разъяснение. Теперь работает, как надо 0

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	03.02.2019, 17:17 [ТС]	3
	Спасибо! Выручили 0

@Mike_Boone
	07.02.2019, 10:37 #5
	Не по теме: Cyborg Drone, главное чтобы работало. ;DD 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2019, 16:11	7
	Сообщение от iiwanc WRITE('ВВЕДИТЕ ДВА ЧИСЛА '); Вводите 1 число-> Enter, 2 число-> Enter. 0

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	07.02.2019, 16:32 [ТС]	8
	Все равно закрывается 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.02.2019, 16:38	9
	Да ну Вас нафиг, у меня не закрывается. Миниатюры 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	09.02.2019, 04:25	10
	Сообщение было отмечено iiwanc как решение Решение iiwanc, Вы "делаете не так" следующее: зачем-то убрали readln перед end. Естественно, Вы ввели числа, был выдан ответ, и тут же программа закрылась, не притормозив, потому что нет команды, которая дожидается нажатия клавиши. Не по теме: Mike_Boone, я с Вами не согласен. К примеру, если я Вам посоветую, что при езде на велосипеде нужно тормозить с помощью падения, это как, нормально? А почему нет, это же вполне рабочий способ затормозить. 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	09.02.2019, 07:37	11
	Сообщение от Cyborg Drone потому что нет команды, которая дожидается нажатия клавиши. Да в АВС это и не нужно. Или у ТС не АВС и он пудрит мозг в этом разделе? 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	09.02.2019, 11:23	12
	Puporev, естественно, у ТС не ABC, это стало ясно ещё из сообщения #1. 0

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	10.02.2019, 12:23 [ТС]	13
	Обновил до 3.4.2 0

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	11.02.2019, 04:04	16
	iiwanc, на будущее: Pascal ABC и Pascal ABC.NET, несмотря на их общее происхождение, совершенно разные диалекты паскаля. ABC - диалект паскаля, в котором ампутировано всё, что можно, и ещё вдобавок немножко того, что нельзя. Он даже исполняемого файла (без танцев с бубном) создать не способен. Предназначен исключительно для обучения, ни на что бОльшее он не годится. Поддержка и дальнейшее развитие этого диалекта паскаля давным-давно прекращены. ABC.NET - мощнейшая среда программирования, основанная на Pascal (а именно: на том самом Pascal ABC), скрещенным с C#, и, как следствие, с микрософтовсой платформой .NET. То есть, заточен этот паскаль исключительно под виндовс, но, в принципе, это недостатком можно и не считать. Его синтаксис, вообще-то, очень сильно отличается от синтаксиса прочих диалектов паскаля, хотя, позволительно писать программы и в "классическом" стиле. В нём столько всего понапихано, что мама не горюй. Одно плохо: разработчикам, судя по всему, доведение этого отличного диалекта паскаля до идеала совершенно по барабану. БОльшая часть того, что им в багтрек написали, они, похоже, исправлять и не собираются. Поэтому, из-за его "забагованности", многие программисты, поначалу "влюбившиеся" в этот диалект, "пересаживаются" с него на микрософтовский "первоисточник" C#, из которого, собственно, все "плюшки" Pascal ABC.NET и понадёрганы. 1

	12.02.2019, 16:18

@iiwanc 29 / 26 / 10 Регистрация: 04.03.2013 Сообщений: 853
	12.02.2019, 16:18 [ТС]	17
	Большое спасибо за разъяснение. Простите, что ввел в заблуждение. 0

Закрывается программа после нажатия Enter

Решение

Решение

Решение