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

@Ixmil · Регистрация: 17.06.2013

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

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

Потому что в Паскале если пишут подобным образом: if then то это означает что в случае выполнения условия оператора может выполняться только одна инструкция следующаяя сразу за словом then. А следующая команда уже не будет относится к оператору. А если нужно чтобы количество комманд внутри условного оператора было любым нужно писать как:
if then begin end;. Я заинтересован в использовании только универсального варианта условного оператора Бейсика у которого число комманд внутри оператора может быть любым. Если же оператор IF THEN END IF как то переделывается в более уневерсальный вариант то не могли бы вы подсказать как это делать?

@locm · 01.12.2021, 16:08

Сообщение от Замабувараев

В языке где есть тип данных Boolean — оператор побитового And можно называть тем же словом And, чем он собственно и является, а не в виде закорючек, потому что компилятор знает какой из типов операторов And применять в конкретном случае.

Как по вашему должен компилятор понимать эту строку?

PureBasic
1
If x And 1 And y=4

Как он узнает что первый And побитовый, а второй логический?

Сообщение от Замабувараев

С тем же успехом можно брать кроссплатформенную библиотеку и подёргивать её за функции.

Приведите пример кроссплатформенной библиотеки охватывающей весь спектр функций (графика, файлы, базы данных, GUI, сеть, многопоточность, работа с железом, аудио, видео, 3D и др.) и чтобы ни в коем случае не было Bloatware ПО.
Потому что на словах у вас все легко и просто. А как на деле? Сколько кроссплатформенных приложений вы написали и какие библиотеки использовали?

@Замабувараев · 01.12.2021, 16:41

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

Как по вашему должен компилятор понимать эту строку?

В худшем случае компилятор выбросит Warning: Implicit conversion, и попытается преобразовать что‐то во что‐то, в лучшем случае неявное приведение типа должно быть запрещено, и программист обязан самостоятельно из Boolean получить число.

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

Приведите пример кроссплатформенной библиотеки охватывающей весь спектр функций

В настоящем мире так никто не делает, в нормальном мире делают для каждого класса функций отдельную библиотеку. Например, OpenGL не работает с сетью, а функции чтения USB не работают с XML.

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

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

If x And 1 And y=4

Предположим, что 0 — это False, тогда True — это Not False, то есть Not 0. Как известно, операция NOT — это обращение всех бит числа в единицу, следовательно получаем для 32‐числа FFFFFFFF. Но ведь FFFFFFFF = -1, следовательно True — это минус единица.
А что будет если в x не минус единица, а единица? Или двойка? Как вообще PureBasic это разруливает?

@locm · 01.12.2021, 17:02

Сообщение от Замабувараев

В настоящем мире так никто не делает

То есть у вас нет решения?
У вас нет предложений как легко и просто писать кроссплатформенный код не ища кучу разных библиотек, изучать их документацию и др. что отнимает много времени и сил? PB хорош тем что имеет кроссплатформенную библиотеку и вся необходимая документация в справке из дистрибутива.

Сообщение от Замабувараев

Как вообще PureBasic это разруливает?

Элементарно. Я выкладывал код, разве не видели Подскажите про оператор IF THEN END IF

Сообщение от Замабувараев

А что будет если в x не минус единица, а единица? Или двойка?

Какая разница что будет в переменной? Первый And побитовый и его задача обнулить все биты кроме нулевого.

@The trick · 01.12.2021, 17:24

В vb6 операторы And, Or и т.д. являются побитовыми и ни у кого особо это проблем не вызывает.

@locm · 01.12.2021, 18:00

Сообщение от The trick

В vb6 операторы And, Or и т.д. являются побитовыми

Как решена неоднозначность в условиях?
То есть как на VB выглядит этот код

PureBasic
1
If x & 1 And y=4

который проверяет чтобы в x был установлен 0 бит и чтобы в y было число 4.

@Quiet Snow · 01.12.2021, 18:47

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

Как решена неоднозначность в условиях?

Скобки надо ставить для приоритета. Это вся разница.
Условие всё считается побитово. Сам принцип другой. Целочисл. переменную можно использовать
как результат условия, т.е. условие можно сделать в виде выражения.
Например

PureBasic
1
2
3
4
A = B > 10
IF A THEN
 PRINT "ok"
END IF

При этом если переменная не целочисленная, она будет автоматически приведена к целочисленной
для проверки условия.

@Замабувараев · 01.12.2021, 19:47

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

То есть у вас нет решения?

Я не верю в серебряные пули и волшебные палочки соломоновых решений. Вы не сможете объять необъятное и запихнуть в одну библиотеку ВСЁ. То есть вообще всё как вы хотите.
Даже корпорация Микрософт не справилась с этой задачей, когда создала .Net Framework, прямые вызовы торчат то тут, то там.
Пример «90% тем на PureBasic‐форуме посвящены WinAPI» подтверждает это. Если бы могли сделать универсальное решение, то все сидели бы в рамках единого универсального решения, и не вызывали бы функции системы напрямую. И была бы тогда одна ОС, один компилятор, один редактор, один язык, один народ, одна страна…

@Quiet Snow · 01.12.2021, 19:52

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

А теперь представьте что код написан полностью на WinAPI. Сколько времени потребовалось чтобы переписать около 10 тысяч строк с WinAPI на функции Linux?

Дофига времени, и время тут ещё косвенный фактор, в отличии от знания разных архитектур ОС и их API.
Когда без API на API, тупо алгоритмика портируется очень быстро при знании двух ЯП
и рекомендаций которые давно ещё давал по коду, т.е. простой процедурный стиль без
т.н. "синтаксического сахара".
И никаких проблем с чисто вычислительной стороны диалектов не возникало никогда.

А вот с лажей в библиотеках сталкиваться пришлось. И если в приличных библиотеках,
завязанных на WinAPI ещё можно было что-то сделать, почитав MSDN, то с теми,
где вообще разгрестись сложно - уже нет. Ожидания по поводу библиотек и дальнейшей
разработки в перспективе, как правило, всегда завышенные.
Касаемо встроенного функционала, там с лажей тоже сталкивался, тот же LibGfx FB-шный,
когда с альфа каналом там поработаешь, сразу понимаешь какой это костыль. Но если
так, без альфы - классная библиотека, поэтому первое впечатление не всегда верное.

@Замабувараев · 01.12.2021, 19:53

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

Элементарно. Я выкладывал код, разве не видели

А могли бы сделать перегрузку оператора и ввести тип данных Boolean.
В си раньше тоже не было Boolean, зачем же усложнять, всем же понятно что 0 — это ложь, а 1 — это истина, но потом пришлось ввести из‐за чехарды с интерпретацией числа (пример с двойкой и минус единицей) как логического типа данных.

@Quiet Snow · 01.12.2021, 20:06

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

При этом если переменная не целочисленная, она будет автоматически приведена к целочисленной
для проверки условия.

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

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

Сообщение от Замабувараев

А могли бы сделать перегрузку оператора и ввести тип данных Boolean.

Так оно всё равно лежит в байте. По факту тип булеан нужен лишь чтобы программист видел, что это логика.
Но к нему нужно приводить, если мы что-то вычисляем не посредством условий. А просто значение как в QB
и FB приводить не нужно, компилятор делает это автоматически по значению.

@Замабувараев · 01.12.2021, 20:14

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

Но к нему нужно приводить

Я бы убрал из языка автоматическое приведение типов, любое, даже из Byte в Integer. Сразу бы стали видны все мины замедленного действия и потенциальные ошибки.

@Quiet Snow · 01.12.2021, 20:43

Сообщение от Замабувараев

Я бы убрал из языка автоматическое приведение типов, любое, даже из Byte в Integer. Сразу бы стали видны все мины замедленного действия и потенциальные ошибки.

Я бы не убирал, а просто рекомендовал людям попрогать на Паскале. Это проблема программиста, не языка.
Если сразу все типы учитывать и определять, проблема уходит.

@The trick · 01.12.2021, 20:51

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

Как решена неоднозначность в условиях?

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

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

If x & 1 And y=4

либо так:

Visual Basic
1
If CBool(x And 1) And y = 4

либо так

Visual Basic
1
If (x and 1) = 1 And y = 4

@locm · 01.12.2021, 20:58

Сообщение от Замабувараев

Я не верю в серебряные пули и волшебные палочки

Как говорится - слив засчитан!

Сообщение от Замабувараев

Пример «90% тем на PureBasic‐форуме посвящены WinAPI» подтверждает это.

Вы вообще читаете что я пишу. Отвечал на этот вопрос. Подскажите про оператор IF THEN END IF

@Замабувараев · 01.12.2021, 21:16

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

Как говорится - слив засчитан!

Тогда почему вы ещё не на дотнетах? Библиотека дотнетов намного более универсальна и поддерживает больше архитектур.
По сравнению с библиотекой дотнетов, библиотека PureBasic — это просто какой‐то набор из десяти функций.

@bormant · 02.12.2021, 09:14

Сообщение от The trick

либо так

Visual Basic
1
If (x and 1) = 1 And y = 4

Но обычно практичнее сравнивать с 0

Visual Basic
1
If (x and 1) <> 0 And y = 4

@locm · 02.12.2021, 11:33

Сообщение от Замабувараев

Тогда почему вы ещё не на дотнетах?

Не подходит управляемый код. Легко декомапилировать. Требует больше ресурсов для исполнения и т. д. К тому же .NET только для тех платформ, на которые его портировала микрософт. Mono это сторонняя разработка как и вайн и нет гарантий что любой код будет нормально работать.

А вот почему вы до сих пор не на C/C++?

@The trick · 02.12.2021, 12:04

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

Но обычно практичнее сравнивать с 0

В данном примере разницы нет никакой. Вот если бы там нужно было бы проверить несколько битов то, да, и то практичнее применить CBool как я написал выше, а не сравнение с нулем.

@bormant · 02.12.2021, 12:47

Сообщение от The trick

В данном примере разницы нет никакой.

Человеку свойственно ошибаться.

Visual Basic
1
If (x and 1) = 1 And y = 4

А завтра плюс месяц выяснилось, что в номере флага ошиблись, и вот оно, долгожданное исправление:

Visual Basic
1
If (x and 2) = 1 And y = 4

Да-да, конечно так не бывает и это все фантазии...

Но сравнение с 0 этого недостатка лишено:

Visual Basic
1
If (x and 2) <> 0 And y = 4

Вот поэтому практичнее сравнивать с 0.
Да-да, знаю, CBool именно это и делает, сравнивает с нулём

@Замабувараев · 02.12.2021, 13:14

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

А вот почему вы до сих пор не на C/C++?

1. Не люблю синтаксисы где конец строки надо дублировать точками с запятой.
2. На FreeBASIC могу делать всё то же самое что и на Си, нет таких вещей которые можно сделать только на Си и нельзя на FreeBASIC.
3. Полностью управляю процессом создания исполняемого файла.
4. Получаю быстрые и маленькие программы.

Новые блоги и статьи Все статьи Все блоги /
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 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@Ixmil 19 / 187 / 0 Регистрация: 17.06.2013 Сообщений: 2,163

	Подскажите про оператор IF THEN END IF 23.11.2021, 19:51. Показов 13200. Ответов 161 Метки нет (Все метки) Тема: Подскажите про оператор IF THEN END IF Ограничено ли число команд выполняемых при соблюдении его условия или же это может быть любое число комманд? Потому что в Паскале если пишут подобным образом: if then то это означает что в случае выполнения условия оператора может выполняться только одна инструкция следующаяя сразу за словом then. А следующая команда уже не будет относится к оператору. А если нужно чтобы количество комманд внутри условного оператора было любым нужно писать как: if then begin end;. Я заинтересован в использовании только универсального варианта условного оператора Бейсика у которого число комманд внутри оператора может быть любым. Если же оператор IF THEN END IF как то переделывается в более уневерсальный вариант то не могли бы вы подсказать как это делать? 0

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 79
	01.12.2021, 17:24
	В vb6 операторы And, Or и т.д. являются побитовыми и ни у кого особо это проблем не вызывает. 0