09.06.2011, 01:12 | #1 (permalink) |
Новичок
Регистрация: 09.06.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Пять задач на 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, 01:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прошу вас, обратите внимание на схожие обсуждения QBasic, массивы Графика в QBasic |
09.06.2011, 04:10 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 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, 12:01 | #3 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Используя команду повторения с параметрами, легко реализовать вычисление искомого 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
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|