Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
huhttt
27.12.2021 04:35 •
Информатика
C=max(a,b,min(2a,x))+5 разработайте программу для вычисления значения выражения (basic).
Показать ответ
Ответ:
ГригорийСвинатович13
03.10.2020 03:18
Microsoft QBasic
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION
0,0
(0 оценок)
Популярные вопросы: Информатика
KarinATseGeLnyK
23.11.2021 04:56
Вывести на экран рисунок из букв с паскаль ж hh hh...
alinavolk93ozs1oc
03.03.2022 08:29
Расшифровать ипксое_тсмначи_оен_гдела с шифра столбцовой перестановки...
Aina2006
03.03.2022 08:29
Файл размером 2000 кбайт передаётся через некоторое соединение в течение 210 секунд. определи размер файла (в кбайт), который можно передать через это соединение за 84 сек....
bondarsofia
16.04.2020 00:00
Сколько символов содержит сообщение записанное с 8 символьного алфавита если объём его составит 120 бит...
Сметана011
16.04.2020 00:00
Дан массив из 10 чисел. найти произведение всех нулевых элементов этого массива....
matv
05.12.2022 12:41
Ввести три числа. если сумма чисел положительная, то вывести на печать первое число, иначе - третье. (c#)...
QureAdmiral
11.02.2023 18:14
Составить логическую схему и найти решение при следующих данные: a=1, b=0, c=1...
darialitvinenko
07.11.2020 09:37
Дайте определение термину файловая структура . Опишите известные вам виды файловых структур....
tylkerwest
27.12.2020 01:01
Тильні проекти власної структури нанок створить папку лініі. 3. Відкрийте середовище Lazarus, створіть новий проект. Змініть значеннявластивості Caption об єкта Forml на малювання...
jorik9
07.12.2022 15:23
1. Какие вы знаете маски имен файлов? 2.Что может располагаться в корневом каталоге?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
DECLARE FUNCTION max# (a#, b#)
DECLARE FUNCTION min# (a#, b#)
INPUT "a=", a#
INPUT "b=", b#
INPUT "x=", c#
c# = max#(max#(a#, b#), min#(2 * a#, x#)) + 5
PRINT "c="; c#
FUNCTION max# (a#, b#)
IF a# > b# THEN
max# = a#
ELSE
max# = b#
END IF
END FUNCTION
FUNCTION min# (a#, b#)
IF a# < b# THEN
min# = a#
ELSE
min# = b#
END IF
END FUNCTION