Пять задач на QBasic

[askart]

Пять задач на QBasic

ПОМОГИТЕ ПОЖАЛУЙСТА!!Надо решить на qbasic
Составить блок-схемы и программы решения пяти задач контрольной работы.
ЗАДАЧА 1. Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что среди чисел нет отрицательных?). Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”.

ЗАДАЧА 2. Составить программу вычисления и выдачи на печать суммы (или произ*ведения) N элементов бесконечного числового ряда. Здесь и далее следует пользоваться операторами цикла FOR или WHILE.
y=85-80+75-70+...

ЗАДАЧА 3. Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу в соответствии с вариантом.
Напечатать номера элементов кратных одновременно двум и трем. Так, если A={3,6,9,2,12, 2,24}, результат: 6,12,24.

ЗАДАЧА 4. Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости
Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)...

ЗАДАЧА 5. Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры исходных X и результирующих Y массивов с конкретными числами. Программа, естественно, должна обрабатывать любые числа для массивов произвольной размерности N. Программа должна предъявлять исходные и новые (если требуется) массивы.
Заполнить массив Y номерами всех четных элементов массива X.
4 1 6 2 9 8 -X
1 3 4 6 _ _ -Y

 

[AlexZir]

Задача 1
Используйте анализ результата функции SGN(X) Функция sgn(x) — Википедия

if sgn(a)=-1 and sgn(b)=-1 and sgn(c)=-1 and sgn(d)=-1 then print "неправда" else print "правда"

 

[AlexZir]

ЗАДАЧА 4. Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости
Y=(1-2/5)+(2+4/10)+(3-8/15)+(4+16/20)...

Данная функция знакопеременная, имеет слагаемые с общим видом i+(-2)^i/(5*i), где i=(1..n)
Используя команду повторения с параметрами, легко реализовать вычисление искомого y при данном n.

input "введите n',n
y=0
for i=1 to n
y=y+i+(-2)^i/(5*i)
next i
print "Функция при n=";n;' имеет значение =";y
end