Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень — отрицательные - QBasic

Формулировка задачи:

1. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные. 2. Найти max{min(a,b),min(c,d)} 3. F (x)= {sin(x)<=0 {cos(x)>0 4. Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8 одновременно. Размерность массива –30. Заполнение массива осуществить случайными числами от 500 до 1000. 5. В доме, состоящем из 30 квартир, переселить жильцов так, чтобы жильцы первой квартиры переехали в тридцатую, из тридцатой - в первую, из второй - в 29 и т.д., найдите количество квартир, в которых проживает более 5 человек. 6. 1 2 3 ... n-2 n-1 n 2 3 4 ... n-1 n 0 3 4 5 ... n 0 0 . . . . . . . . . . . . . . . . . . . . . n-1 n 0 0 0 0 n 0 0 0 0 0 7. Покупатель должен заплатить в кассу S р. У него имеются 1, 2, 5, 10, 50, 100, 500 р. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных? 8. Даны натуральное n, действительное x. Вычислить: sinx +sinx^2 + ... + sinx^n. 9. Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h.Результат представить в виде таблицы, пырвый столбец которой-значения аргумента, второй - соответствующие значения функции. F(x) = 2cosx-1

Решение задачи: «Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень — отрицательные»

Листинг программы

INPUT a
INPUT b
INPUT c
PRINT a;b;c
IF a>0 THEN a=a^2 ELSE a=a^4
IF b>0 THEN b=b^2 ELSE b=b^4
IF c>0 THEN c=c^2 ELSE c=c^4
PRINT a;b;c

Объяснение кода листинга программы

Вводятся значения переменных a, b, c с помощью команды INPUT.
Выполняется проверка: если значение переменной a больше нуля, то оно возводится в квадрат, иначе — в четвертую степень.
Аналогично проверяется и значение переменной b.
Значение переменной c также проверяется на неотрицательность, и при положительном результате вычисляется его квадрат.
Выполняется вывод значений переменных a, b, c с помощью команды PRINT.