Числа возрастают или в беспорядке

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

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

«Числа возрастают или в беспорядке».

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
INPUT  “ A = “; A
   FOR I = 1 TO 3
      B = A
INPUT “ A = “; A
    IF A < = B THEN
PRINT “  Числа в беспорядке “
    GOTO 800
     END IF
   NEXT 
PRINT “ Числа возрастают”
   800

При первом запуске:

QBasic/QuickBASIC
1
2
3
А = ?  8
А = ?  4
Числа в беспорядке

При втором запуске:

QBasic/QuickBASIC
1
2
3
4
5
А = ? 4
А ? = 7
А ? = 12
А ? = 15
Числа возрастают

Почему то при первом запуске выполняется два цикла,
а при втором – надо делать четыре цикла. Почему же так.
Но главная проблема не решена – чтобы Числа в бес-
порядке и Числа возрастают, выходили бы при одном
запуске, а не при двух.
Чтобы было так, как при двух циклах:

QBasic/QuickBASIC
1
2
3
4
Ввести число:   4
Ввести числа:    7
Ввести число:   12
Числа возрастают

QBasic/QuickBASIC
1
2
3
4
Ввести число:   8
Ввести число:   4
Ввести число:   12
Числа в беспорядке

И та же проблема с циклом WHILE. Можно это сделать
в одной программе. В двух отдельных программах это
было сделано.

@Usaga · 06.08.2019, 12:34

Сообщение от Quiet Snow

Напиши проект на 5-10k строк по своей парадигме. Прикладуху, не игру. Тогда будет разговор.

Для истории: персонаж взялся писать консольный "Морской Бой" используя свою поехавшую парадигму, да так и пропал. Уже два с половиной месяца, а то и больше.

Я так понимаю, что когда он вернётся, то продолжит себя пяткой в переднюю грудь бить, мол, он лучше всех знает как правильно разработку вести. Ещё один плавучий мост, короче.

@Useringo · 06.08.2019, 13:07

Сообщение от кот Бегемот

Ещё раз настойчиво призываю Вас вместо того, чтобы огрызаться, учить матчасть. Тогда Вы не будете писать ересь с кучей SLEEPов.

Зачем Вы критикуете мой код не по делу? SLEEPы необходимы, так как я работаю во FreeBasic и, если их не поставить, то программа закроется сразу после выполнения и пользователь не успеет рассмотреть ответы.

Сообщение от кот Бегемот

при записи условия в одну строку END IF не пишется, потому что условие кончилось вместе со строкой

Если записывать условие в одну строку, без END IF, то получается не очень читабельный код. Если же Вы захотите увеличить кол-во операторов, что сработают после условия, Вам все равно придется ставить END IF.
P.S: Полностью поддерживаю Ваше мнение насчет GOTO. Использование этой команды превращает код в SPAGETTY. (Для любопытных: гуглим "критика BASIC" либо смотрим Википедию).

@Quiet Snow · 07.08.2019, 08:24

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

Для истории: персонаж взялся писать консольный "Морской Бой" используя свою поехавшую парадигму, да так и пропал. Уже два с половиной месяца, а то и больше.
Я так понимаю, что когда он вернётся, то продолжит себя пяткой в переднюю грудь бить, мол, он лучше всех знает как правильно разработку вести. Ещё один плавучий мост, короче.

Не слежу за этой темой и за этим дядькой. В закреплённой теме Раптор это написал за один вечер.
Если людям хочется просирать время, - это их личное дело. Никого переубеждать смысла нет.
Кому шашечки, а кому ехать. Главное не реагировать на теоретиков слишком остро, их если и слушать
избирательно.

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

Использование этой команды превращает код в SPAGETTY.

https://youtu.be/FDN-9148FPs?t=16

@Useringo · 07.08.2019, 09:06

Сообщение от Quiet Snow

https://youtu.be/FDN-9148FPs?t=16

Я не понял прикола.

@Usaga · 07.08.2019, 09:08

Не по теме:

Сообщение от Quiet Snow

Не слежу за этой темой и за этим дядькой.

Это было в его блоге, где он "обучал" людей как правильно вести разработку.

@Useringo · 07.08.2019, 09:08

Сообщение от Quiet Snow

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

Насколько мне известно, в школе детям запрещают использовать goto.

@Quiet Snow · 07.08.2019, 09:42

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

Я не понял прикола.

Другого и не ожидалось.

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .