Найти ошибку в программе

@Dariya_99 · Регистрация: 17.11.2017

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

В чем именно ошибка? Не понимаю. Пишет Sintax error, ";" expected but "Else" found (8 строчка):

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program nomer15;
var x: integer;
    R,L : real;
BEGIN
writeln(' Введите число, x' );
read(x);
if x>pi/4 then begin
L:=exp((1+sqr(x))/4) else
L:=-exp((1+sqr(x))/4)
end;
R:=Sin((1+sqr(x))/4)*L;
readln(R);
END.

@Vyacheslav99 · 17.11.2017, 13:59

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program nomer15;
var x: integer;
R,L : real;
BEGIN
write(' Введите число, x: ' );
read(x);
if x>pi/4 then 
L:=exp((1+sqr(x))/4) else
L:=-exp((1+sqr(x))/4);
R:=Sin((1+sqr(x))/4)*L;
Write(' R = ',R);
readln(R);
END.

Так может быть?

@Cyborg Drone · 17.11.2017, 22:26

Vyacheslav99, в 12 строке достаточно просто readln. Зачем ни для чего читать что-то?

@Vyacheslav99 · 17.11.2017, 23:36

Cyborg Drone, зачем он там вообще? Пусть программа сразу и завершается..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program nomer15;
var x: integer;
R,L : real;
BEGIN
write(' Введите число, x: ' );
read(x);
if x>pi/4 then 
L:=exp((1+sqr(x))/4) else
L:=-exp((1+sqr(x))/4);
R:=Sin((1+sqr(x))/4)*L;
Writeln(' R = ',R);
END.

@Cyborg Drone · 17.11.2017, 23:54

Vyacheslav99, пусть будет. Не надо сразу завершать программу. Здесь общий раздел паскаля, поэтому желательно, чтобы код работал корректно на любом диалекте паскаля. Если не остановить программу перед её завершением, то, например, во Free Pascal, консольном приложении Delphi или Lazarus, да и в Turbo Pascal тоже, программа закроется сразу после вывода R, и чему там было равно R, за время закрытия окна вряд ли удастся успеть увидеть. Тот, кто об таком подлом поведении программы не подозревает, может прийти к ложному выводу, что программа нерабочая. Ну, сами подумайте: Ввели x, что-то там мелькнуло в последней строчке, и всё... Программа закрылась. А чего это она закрылась? Да, наверное, ошибка в ней, вот она и вылетела, а программист, который её писал, ясное дело, неграмотный...

@кот Бегемот · 18.11.2017, 00:02

Да ладно, бред какой. Что, в Turbo Pascal и Free Pascal отменили user screen ?
К тому же можно сразу добавить окно вывода debug output и всё будет видно без лишних команд

@Vyacheslav99 · 18.11.2017, 00:26

Cyborg Drone, используя дедуктивный метод, смотря что в коде автора темы нет "Uses crt", можно сделать вывод что он использует Pascal ABC(Net) в котором собственно то данный модуль использовать не обязательно, в отличии от Turbo или Free Pascal. Так что у него все будет работать хорошо, и если необходимо - допишет readln.

@Cyborg Drone · 18.11.2017, 00:38

кот Бегемот, ну и... Многие ли троечники об этом хотя бы подозревают? С их стороны в ответ Вам прозвучит: "Какой такой uses? Где он в приведённых выше программах? Какой ещё debug screen? Ты не умничай, ты лучше скажи, почему программа не работает!" А с readln ничего лишнего ленивому неучу объяснять не потребуется. Ему это всё равно не нужно.

Добавлено через 8 минут
Vyacheslav99, те, которые знают, почему нужно дописать readln, редко задают простенькие вопросы.

@Vyacheslav99 · 18.11.2017, 00:47

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

Здесь общий раздел паскаля, поэтому желательно, чтобы код работал корректно на любом диалекте паскаля.

Тогда всегда надо писать в программе Uses crt, кроме разделов где Pascal ABC.NET, однако вы почему то здесь Древняя рукопись Graff например так не сделали, и в Turbo или Free Pascal уже выбило бы ошибку.

@Cyborg Drone · 18.11.2017, 01:06

Vyacheslav99, вовсе нет. Вы пробовали запускать эту программу? Рубль за сто, что нет. С чего Вы взяли, что использовать модуль crt обязательно? Если в программе не используется ничего из этого модуля, например, какие-нибудь readkey или clrscr, то и не надо его использовать.

Ещё замечу, что, судя стилистике вопроса упомянутой Вами темы, нужна программа для сдачи на "олимпийский" (или "обучающий") сайт, поэтому я написал программу с учётом идиотских требований к текстам программы, бытующими на таких сайтах. К примеру, поэтому в программе нет readln перед end. Иначе робот на сайте посчитает программу ошибочной из-за превышения максимально допустимого времени выполнения.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Cyborg Drone Модератор 10409 / 5696 / 3400 Регистрация: 17.08.2012 Сообщений: 17,342
	17.11.2017, 22:26
	Vyacheslav99, в 12 строке достаточно просто readln. Зачем ни для чего читать что-то? 0

@Cyborg Drone Модератор 10409 / 5696 / 3400 Регистрация: 17.08.2012 Сообщений: 17,342
	17.11.2017, 23:54
	Vyacheslav99, пусть будет. Не надо сразу завершать программу. Здесь общий раздел паскаля, поэтому желательно, чтобы код работал корректно на любом диалекте паскаля. Если не остановить программу перед её завершением, то, например, во Free Pascal, консольном приложении Delphi или Lazarus, да и в Turbo Pascal тоже, программа закроется сразу после вывода R, и чему там было равно R, за время закрытия окна вряд ли удастся успеть увидеть. Тот, кто об таком подлом поведении программы не подозревает, может прийти к ложному выводу, что программа нерабочая. Ну, сами подумайте: Ввели x, что-то там мелькнуло в последней строчке, и всё... Программа закрылась. А чего это она закрылась? Да, наверное, ошибка в ней, вот она и вылетела, а программист, который её писал, ясное дело, неграмотный... 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.11.2017, 00:02
	Да ладно, бред какой. Что, в Turbo Pascal и Free Pascal отменили user screen ? К тому же можно сразу добавить окно вывода debug output и всё будет видно без лишних команд 0

@Vyacheslav99 15 / 16 / 15 Регистрация: 10.11.2017 Сообщений: 187
	18.11.2017, 00:26
	Cyborg Drone, используя дедуктивный метод, смотря что в коде автора темы нет "Uses crt", можно сделать вывод что он использует Pascal ABC(Net) в котором собственно то данный модуль использовать не обязательно, в отличии от Turbo или Free Pascal. Так что у него все будет работать хорошо, и если необходимо - допишет readln. 0

@Cyborg Drone Модератор 10409 / 5696 / 3400 Регистрация: 17.08.2012 Сообщений: 17,342
	18.11.2017, 00:38
	кот Бегемот, ну и... Многие ли троечники об этом хотя бы подозревают? С их стороны в ответ Вам прозвучит: "Какой такой uses? Где он в приведённых выше программах? Какой ещё debug screen? Ты не умничай, ты лучше скажи, почему программа не работает!" А с readln ничего лишнего ленивому неучу объяснять не потребуется. Ему это всё равно не нужно. Добавлено через 8 минут Vyacheslav99, те, которые знают, почему нужно дописать readln, редко задают простенькие вопросы. 0

@Cyborg Drone Модератор 10409 / 5696 / 3400 Регистрация: 17.08.2012 Сообщений: 17,342
	18.11.2017, 01:06
	Vyacheslav99, вовсе нет. Вы пробовали запускать эту программу? Рубль за сто, что нет. С чего Вы взяли, что использовать модуль crt обязательно? Если в программе не используется ничего из этого модуля, например, какие-нибудь readkey или clrscr, то и не надо его использовать. Ещё замечу, что, судя стилистике вопроса упомянутой Вами темы, нужна программа для сдачи на "олимпийский" (или "обучающий") сайт, поэтому я написал программу с учётом идиотских требований к текстам программы, бытующими на таких сайтах. К примеру, поэтому в программе нет readln перед end. Иначе робот на сайте посчитает программу ошибочной из-за превышения максимально допустимого времени выполнения. 0