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

askart · 09.06.2011, 01:12

ПОМОГИТЕ ПОЖАЛУЙСТА!!Надо решить на 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 · 09.06.2011, 04:10

Задача 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 · 09.06.2011, 12:01

Цитата:

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

ЗАДАЧА 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

09.06.2011, 01:12	#1 (permalink)
askart Новичок Регистрация: 09.06.2011 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Пять задач на 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

09.06.2011, 04:10	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Задача 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 "правда" __________________ Убить всех человеков!

09.06.2011, 01:12
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прошу вас, обратите внимание на схожие обсуждения QBasic, массивы Графика в QBasic

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070