Форум программистов, компьютерный форум, киберфорум
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. Показов 13226. Ответов 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
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 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
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru