Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/64: Рейтинг темы: голосов - 64, средняя оценка - 4.92
0 / 0 / 1
Регистрация: 02.11.2017
Сообщений: 5

Как поставить условие при Да или Нет

22.01.2018, 21:15. Показов 12933. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program yesno;
var
label 1,2,3;
y:char;
n:char;
yesno:char;
begin
writeln('Хотите продолжить? y/n');
readln(yesno);
if yesno=n then
writeln('Выход');
exit;
if yesno=y then
writeln('Продолжение следует');
exit;
end.
Что я неправильно сделал ?
При удалении Exit-ов остаётся белый скрин.
Даже если скомпилировался в конце белый(
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.01.2018, 21:15
Ответы с готовыми решениями:

Как грамотно сформировать условие, проверяющее, существует ли лист с таким-то названием или нет?
Как грамотно сформировать условие, проверяющее, существует ли лист с таким-то названием или нет?

Поставить условие при выборе определенного значения
Доброго времени суток, я в программировании 1с практически полный ноль (понимаю работу программы только в общих чертах). Суть проблемы в...

Как поставить условие?
как поставить услови, что если фраза не начинается на "http://" то тогда переписать эту перепенную, но тобы в начале уже была эта...

6
11 / 14 / 12
Регистрация: 20.03.2017
Сообщений: 182
22.01.2018, 21:44
Вместо if yesno=y then (13 строка), поставь else и точку с запятой перед exit убери
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
23.01.2018, 06:10
Во-первых, „n“ и „y“ должны быть символьными константами, а не переменными.

Во-вторых, вы напрочь забыли про операторные скобки в составных операторах.

В-третьих, label не должен относится к разделу описания переменных. Да и вообще, не приветствуется его использование в паскале!
0
Модератор
10409 / 5696 / 3401
Регистрация: 17.08.2012
Сообщений: 17,348
23.01.2018, 11:17
Ещё одно: yesno у Вас и имя программы, и имя переменной.
0
0 / 0 / 1
Регистрация: 02.11.2017
Сообщений: 5
23.01.2018, 19:59  [ТС]
Получается вот это
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
y: char;
n: char;
yesno: char;
begin
writeln('Хотите продолжить? y/n');
readln(yesno);
writeln(yesno);
if yesno=n then
writeln('Выход');
exit
else
writeln('Продолжение следует');
exit
end.
Ошибка в строке 13: встречено 'else', а ожидалось ';'
0
0 / 0 / 1
Регистрация: 02.11.2017
Сообщений: 5
23.01.2018, 20:03  [ТС]
Всё равно не получается

Добавлено через 30 секунд
Проблема не в этом
0
Модератор
10409 / 5696 / 3401
Регистрация: 17.08.2012
Сообщений: 17,348
23.01.2018, 21:46
ДА ладно. Чтобы решить эти Ваши мелкие проблемы, прочитайте с полсотни страниц любой книжки по любому паскалю. Вы пока что очень плохо знаете синтаксис паскаля. Да кого я обманываю... Совсем не знаете.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  y: char;
  n: char;
  yesno: char;
begin
  writeln('Хотите продолжить? y/n');
  readln(yesno);
  writeln(yesno); //с какой целью печать?
  //переменные y и n не вводились, следовательно, не определены
  if yesno = n then //переменная n ничему не равна
  writeln('Выход'); //после then перед else 2 оператора, а должен быть один
  exit //это второй оператор, else оторвана от if этим оператором
  else
  writeln('Продолжение следует');
  exit //здесь exit не нужен, программа и без него кончается
  //и, кстати к else этот exit не относится
end.
Добавлено через 9 минут
Не знаю, что именно Вы хотите от Вашей программы... Может, так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  yesno: char;
begin
  writeln('Хотите продолжить? y/n');
  readln(yesno);
  if yesno = 'n'
    then writeln('Выход')
    else if yesno = 'y'
      then writeln('Продолжение следует')
      else writeln('Что бы вы ни нажали, всё равно выход')
end.
Бестолковая программа, но ничего, вроде весёлая. Вы уже полезли в интернет читать книжку по паскалю?

Добавлено через 2 минуты

Не по теме:

Да, и скрины не выкладывайте... Фотографии текста запрещены.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.01.2018, 21:46
Помогаю со студенческими работами здесь

Как поставить условие
Есть переменные: x1, x2, y1, y2. И нужно сделать следующее: Прибавить к x1 единицу (++x1) в том случае если выполняется одно из условий: ...

Как при открытии или печати отчета вывести "Нет данных", если в источнике нет записей?
Как при открытии или печати отчета вывести 'НЕТ ДАННЫХ' если в источнике нет записей ? Если нет записей, то отчет пустой, а на месте...

В цикле разбора результата поставить условие и break при $num > 100 ?
Здравствуйте! Подскажите пожалуйста, как в цикле разбора результата поставить условие и break при $num > 100 ? ...

Как в запросе поставить условие ?
День добрый. Запутался. Есть запрос в запросе получаем даты когда человек ушел в отпуск ...

Как правильно поставить условие?
Сделал для бота функцию для управления компом через консоль, задумка была такая: отсылаешь ему команду, например !cmd start write.exe, и на...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
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
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами 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
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru