Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Мария05m
22.01.2023 00:42 •
Информатика
Язык: qbasic составить программу, вычисляющую значение переменной у по следующему правилу: у = х+3, если 0 < = х < =3 y = |x|+3, если х < 0 (y=abs(x), присваивает переменной y значение, равное модулю числа х)у = x2-3, если х > 3.
Ответ:
AlifZnanija
07.07.2020 10:38
CLS
FOR x = -6 TO 6
n = n + 1
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3 THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT n; x, y
NEXT x
INPUT "X =", x
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3
THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT y
0,0
(0 оценок)
Популярные вопросы: Информатика
Fhftt3
08.05.2020 08:47
Доступ к файлу com.pas, находящемуся на сервере net.ru, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите...
dlimfam
02.06.2023 18:18
Подскажите почему ошибка: const x=0.2; y : array[1..9]of real=(0.1,0.2,-0.3,-0.04,5,6,-7.03,8,9); function t(u: real): real; begin t: =sin(u)+cos(u); end; function p(a,b: integer;...
Малиш999
22.11.2020 23:43
Дан фрагмент программы read (a), read (b), read (c), d: =a+3*b-c, write(d). его, сократив число операторов до минимума....
Maykshmidt
25.03.2021 17:49
Точный порядок действий объекта для достижения успеха-это a алгоритм b циклический алгоритм c ветвящиеся алгоритм d линейный алгоритм...
mayyyyyyka
20.05.2023 17:38
Написать программу нахождения нечетного из 2-х чисел...
Vovan3256
07.11.2020 14:09
Перенос информации из одной программы в другую...
янакуницкая2017
27.05.2022 22:23
Создать массив строк из 5 элементов и вывести этот элемент прибавленный с считчиком mass[I] +i...
123GEV
04.03.2022 13:49
Как сделать так чтобы текст писался сам, ну по буквой, как будто ты его сам печатаешь, как?...
Leonid02super
05.01.2023 19:18
Информационный размер жёсткого диска может 1) 2. 4 ггц, 3500ггц 2) 512 гб, 1024 гб 3) 512 мб , 2 гб 4) свой ответ...
i01n
19.11.2021 15:39
Выполнить арефметическую операцию сложение чисел 1110011и 001.проверьте операцией вычесления...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
FOR x = -6 TO 6
n = n + 1
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3 THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT n; x, y
NEXT x
INPUT "X =", x
IF x < 0 THEN
y = ABS(x) + 3
ELSE
IF x > 3
THEN
y = x ^ 2 - 3
ELSE
y = x + 3
END IF
END IF
PRINT y