Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
11 / 11 / 2
Регистрация: 17.02.2014
Сообщений: 947

Паскаль. Условный оператор - программа не компилируется

14.07.2014, 13:45. Показов 1570. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
var res,otv: real;
begin
writeln('Сколько будет 11*11?');
writeln('Введите ответ и нажмите <Enter>');
write('-> '); readln(otv);
res:=121;
if otv <> res then write('Вы ошиблись. 11*11=121');
esle write('Вы ответили правильно');
end.
Подскажите, пожалуйста, почему не компилируется программа?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
14.07.2014, 13:45
Ответы с готовыми решениями:

программа на условный оператор
как записать условие для решения следующего уравнения а*x*x*x+b*x=0 с произвольными a и b

Условный оператор и оператор множественного выбора
Много заданий написал, но я уверен, что решить их не составит вам труда (не то что мне), хоть решите те, которые понравяться №1 ...

Условный оператор. Оператор выбора
Помогите пожалуйста с задачей, то я в поскале чайник)! Определить , пересекает ли парабола y=ax + b прямоугольник с координатами...

6
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
14.07.2014, 13:56
Лучший ответ Сообщение было отмечено jestero как решение

Решение

В конце строки 7 убери точку с запятой
В строке 8 замени esle на else
1
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
14.07.2014, 14:03
и я бы ещё тип real заменил на Integer (или LongInt)
1
11 / 11 / 2
Регистрация: 17.02.2014
Сообщений: 947
14.07.2014, 14:29  [ТС]
Puporev, а почему точка с запятой не ставится после оператора вывода?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
14.07.2014, 14:32
Точка с запятой не ставится перед оператором else
0
11 / 11 / 2
Регистрация: 17.02.2014
Сообщений: 947
14.07.2014, 15:41  [ТС]
Puporev, понял, после первого оператора ведь не ставится. Можно ещё одни вопрос?:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const a=5;
var S,min,d:real;
begin
writeln('Вычисление стоимости разговора по телефону.');
writeln('Введите исходные данные:');
write('Длительность разговора (целое кол-во минут) ->'); readln(min);
write('День недели (1-пон., ... 7-воср.)'); readln(d);
if (d=6) or  (d=7) then
 begin
S:=min*a*0.8; writeln('Предоставляется скидка 20%.');
writeln('Стоимость разговора: ',S:0:2,' руб.');
 end
else 
 begin
S:=min*a;  writeln('Стоимость разговора: ',S:0:2,' руб.'); 
  end;
end.
Почему здесь после второго end можно поставить ";", а после первого нельзя. С чем это связано?
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
14.07.2014, 15:44
Цитата Сообщение от jestero Посмотреть сообщение
Почему здесь после второго end можно поставить ";", а после первого нельзя.
В операторе if ... then ... else ...; точка с запятой перед else является ошибкой. С этим и связано.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
14.07.2014, 15:44
Помогаю со студенческими работами здесь

условный оператор
помогите решить пожалуйста буду длагодарна!!! условный оператор : 7 вариант

Условный оператор
http://keep4u.ru/imgs/b/2010/03/26/4f/4fecd4f8bb330d81b0e7749fcc7b008f.png Добавлено через 15 часов 27 минут Помогите мне её...

Условный оператор
http://keep4u.ru/imgs/b/2010/03/26/dc/dcb6766ec0b02007012b035f48dc2b95.png

Условный оператор
Помогите пожалуйста.. x=1, если A=B , C&lt;D x=2, если А=В,C&gt; или равно D x=3, если A&lt;&gt;B Спасибо!))

Условный оператор
Заданы площади круга R и квадрата S. Определить, поместится ли квадрат в круге. Задачу решить при следующих значениях: 1) R = 70, S =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru