Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.50/54: Рейтинг темы: голосов - 54, средняя оценка - 4.50
 Аватар для Ixmil
19 / 187 / 0
Регистрация: 17.06.2013
Сообщений: 2,163

Подскажите про оператор IF THEN END IF

23.11.2021, 19:51. Показов 15240. Ответов 161
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Тема: Подскажите про оператор IF THEN END IF
Ограничено ли число команд выполняемых при соблюдении его условия или же это может быть любое число комманд?

Потому что в Паскале если пишут подобным образом: if then то это означает что в случае выполнения условия оператора может выполняться только одна инструкция следующаяя сразу за словом then. А следующая команда уже не будет относится к оператору. А если нужно чтобы количество комманд внутри условного оператора было любым нужно писать как:
if then begin end;. Я заинтересован в использовании только универсального варианта условного оператора Бейсика у которого число комманд внутри оператора может быть любым. Если же оператор IF THEN END IF как то переделывается в более уневерсальный вариант то не могли бы вы подсказать как это делать?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.11.2021, 19:51
Ответы с готовыми решениями:

Excel 2013 32-bit URLDownloadToFile пишет "Compile error: only comment may appear after End Sub End Function or End Prop
Добрый день! перепробовал все варианты и не вызывается функция URLDownloadToFile: пишет "Compile error: only comment may appear...

Оператор Try . Except . Finally . End; при работе с ресурсами
Здравствуйте. Задача такая. Есть текстовый файл в ресурсах, который считывается и записывается в Memo. Требуется предусмотреть...

Оператор for. Для чего в коде дополнительные begin-end
Program DimanRu; Var name, surname: string; i:integer; Begin; Writeln('Введите имя...'); Readln(name); Writeln('Введите...

161
Модератор
10068 / 3913 / 886
Регистрация: 22.02.2013
Сообщений: 5,863
Записей в блоге: 79
30.12.2021, 16:23
Студворк — интернет-сервис помощи студентам
CoderHuligan, ты противопоставляешь такую систему современной со стеком и утверждаешь что старая система - тормоз, но кроме беспочвенных высказываний ничего нет. Про какую-то экономию памяти непонятную, про то что тогда это работало, а сейчас нет. Это все твои слова. Вот я тебе и говорю реализуй такую систему и покажи ее преимущества, пока я даже отдаленно не могу понять в чем фишка.
0
Кормпилятор
 Аватар для Quiet Snow
5044 / 1718 / 409
Регистрация: 25.04.2010
Сообщений: 4,827
Записей в блоге: 2
30.12.2021, 18:51
Цитата Сообщение от locm Посмотреть сообщение
Зачем? У каждого потока свой стек. Локальные переменные в стеке. Функции в потоках выполняются независимо и ничего синхронизировать не нужно.
locm, человек ни разу не программировал мультитред, он пока не понимает что происходит, думает что можно
из одного потока работающего прямиком передать управление в другой поток.
На деле же это просто два совершенно разных подхода к архитектуре и мыслить одинаковыми категориями
у него не получится.


CoderHuligan, тебе нужно понять, что мультитред модель ПРЕДПОЛАГАЕТ разбиение задачи на
НЕЗАВИСИМЫЕ блоки. И чем более они независимые, тем качественнее и быстрее алгоритм для мульти.
У каждого потока свои регистры и стек, потоки могут писать в общую память, результаты получишь в зависимости
от полосы пропускания шины(т.е. наглеть не надо). Синхронизация происходит на уровне системы (mutex-ы),
это всё руками делается. И нет никакого "одна часть падает, остальное работает", если процесс(и соответственно
любой его поток) производит некорректную операцию то система прибивает его сразу же.

Цитата Сообщение от CoderHuligan Посмотреть сообщение
Учитывалось, но только с точки зрения создателей компиляторов, то есть тех, кто реально контачил с железом.
Если ты про самые первые железяки и инжей, то эти знания устарели сразу, как только появились микропроцессоры. Т.к. это повлекло развитие всей периферии. И под машинные коды пришлось переписывать все компиляторы\интерпретаторы. Каркас конечно определённый был, но по развитию железа там был швах
и как только оно пошло, пошло и развитие компиляторов.
Тут нужно ещё уточнить, BASIC довольно поздно вклинился и поздно развился, в отличие от Pascal'я.
Сейчас вообще нет смысла обсуждать весь этот допотопный дроч на перфолентах и перфокартах с прокалыванием дыр,
всякие тумблеры и прочее.
Это был каменный век вычислений, 80-е и 90-е можно считать "золотым веком" IT, потому что было сделано
больше всего, а сейчас мы имеем "постмодернизм" со всеми вытекающими. Тогда люди знали как делать
но не всегда знали зачем они это делают, сейчас же более менее знают зачем, но не знают как.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.12.2021, 18:51

Оператор условия не открывает ветвь then begin end, несмотря, на то, что условие выполняется
Учусь по самоучителю "Песни о Паскале". Код программы предложенный автором не кидать, и ваши коды тоже т.к. сам хочу разобраться. Условие...

Про оператор IF
Добрый вечер. Переменная а получила значение а = "Иванов Иван", нужно найти в списке этого "Иванов Иван" Запускаем цикл и...

Не могу поставить end. после else – пишет "ожидался оператор"
uses crt; var a:integer; k:string; begin; randomize; repeat clrscr; a:=random(4); if a=1 then begin

Подскажите случаи, когда количество begin и end в программе не совпадают
подскажите случаи когда кол-во begin & end в прграмме не совпадают :swoon: вот первый : case .. of ..... end;

Простая задачка про тернарный оператор
Переписал с учебника простую задачку, однако на 10 и 12 строке показывает ошибки. Что тут не так? #include<iostream> ...


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

Или воспользуйтесь поиском по форуму:
162
Ответ Создать тему
Новые блоги и статьи
Генератор паролей (вариант №4)
Maks 01.11.2026
После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков | 1 l I;. . .
Генератор паролей (вариант №3)
Maks 30.10.2026
Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .
Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени)
zorxor 30.10.2026
Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ)
zorxor 30.10.2026
Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени)
zorxor 30.10.2026
Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .
Генератор паролей (вариант №2)
Maks 30.10.2026
Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .
Генератор паролей (вариант №1)
Maks 29.10.2026
Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .
Установка ChatGPT (Codex) на Windows без использования Microsoft Store
Fabien159 28.10.2026
Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru