Программа перехода с последовательного выполнения действий

@Petro29 · Регистрация: 30.04.2016

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

Программа перехода с последовательного выполнения действий
на выбор действия по условию.
Книжная программа:

QBasic/QuickBASIC
1
2
3
4
CLS
INPUT “ Мальчик, как тебя зовут? “, A$
IF A$ = “” THEN PRINT “ Введите имя “ ELSE PRINT “  Привет “; A$; 
                                                                                  “ . Я компьютер”

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
При 1-м запуске:      Мальчик, как тебя зовут?  Петя
                                   Привет Петя. Я компьютер
При 2-м запуске:      Мальчик, как тебя зовут?
                                   Введите имя
Программа завершилась. Имя невозможно ввести.

И как её привести в рабочее состояние с оператором ELSE.
У меня не получилось. Эту программу я переделал без ELSE
и получил нужный результат.
Переделанная программа с циклом FOR (один запуск):

QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
    FOR I = 1 TO 2
INPUT “ Мальчик, как тебя зовут? “, A$
IF A$ = “” THEN INPUT “ Введите имя “ , A$
PRINT “ Здравствуй “ ; A$; “ . Я компьютер”
    PRINT
   NEXT i

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
6
Мальчик, как тебя зовут? Петя
Здравствуй Петя. Я компьютер.
 
Мальчик, как тебя зовут?
Введите имя Петя (имя можно другое ввести)
Здравствуй Петя. Я компьютер.

Но как книжную программу сделать работающей
с оператором ELSE.

@кот Бегемот · 21.04.2019, 21:04

А вы можете по-русски объяснить что вы вводите и что должно получаться на выходе, потому что то, что получается у вас никому не интересно

@Petro29 · 05.05.2019, 10:38 **[ТС]**

При запуске программы – если не забыли сразу ввести имя –
никаких проблем.

QBasic/QuickBASIC
1
2
3
4
CLS
         INPUT “ Мальчик, как тебя зовут? “, A$
           IF A$ = “” THEN PRINT “ Введите имя “ ELSE PRINT “  Привет “; A$; 
                                                                                  “ . Я компьютер”

А вот если забыл сразу ввести имя и щёлкнул на ENTER, то на
выходе имеем
мальчик, как тебя зовут?
Введите имя
Работа программы закончилась. Но ведь мне напомнили, что надо
ввести имя. А как его ввести, если работа программы закончилась?
Вот и возник вопрос.
Заменил фрагмент текста:

QBasic/QuickBASIC
1
PRINT “ Введите имя “ на текст

QBasic/QuickBASIC
1
  INPUT “ Введите имя. “, A$

получил такой выход:

QBasic/QuickBASIC
1
2
  Мальчик, как тебя зовут?
                       Введите имя. Петя

А продолжения программы то нет?
В книге написано так: забыли ввести имя, а просто нажали на
ENTER. Выполнение программы пойдёт по ветке THEN (Да),
поскольку условие A$ = “” выполнится (переменная «пустая»),
и на экране появится сообщение:
Введите имя
А как его ввести, если программа завершилась?
Вот и вопрос.

@кот Бегемот · 06.05.2019, 10:07

Нет ничего проще, вставьте INPUT в цикл, который будет возвращать вас на ввод пока переменной A$ не присвоится какое-то значение

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	21.04.2019, 21:04
	А вы можете по-русски объяснить что вы вводите и что должно получаться на выходе, потому что то, что получается у вас никому не интересно 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	06.05.2019, 10:07
	Нет ничего проще, вставьте INPUT в цикл, который будет возвращать вас на ввод пока переменной A$ не присвоится какое-то значение 0