Контрольная работа по "Информатике"

                            КОНТРОЛЬНЫЕ ЗАДАНИЯ.

                               Условие задачи №1

   Имеется четыре А, В, С, Д произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что …?

                                      REM Задача № 1

Среди чисел точно одно больше 6?

INPUT “введите А”; А

INPUT “введите В”; В

INPUT “введите С”; С

INPUT “введите Д”; Д

IF (A > 6 OR  B > 6 OR C > 6 OR D > 6 ) Then Print “Правда” else “Неправда”

ЕND

                                Условие задачи №2

   Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда.

                                     REM Задача № 2

у = 16*(-8)*4*(-2)*1…

INPUT “Сколько элементов”; N

P=1

K=1

FOR i = 1 TO N

P=P*K*2^(5-i)

K=-K

NEXT i

PRINT “Произведение”; N; “Элементов равна”; P

END

                                  

У= 1*2^4*(-1)*2^3*(-1)*2^2*(-1)*2^1*(-1)*2^0

 

 

                                 Условие задачи № 3

    Имеется массив А из N произвольных чисел А (N), среди которых есть положительные, отрицательные и нулевые. Составить программу:

                                     REM Задача № 3

Найти сумму элементов кратных  трем.

А = {2, 4, 9, 2, 6, -12, 0}, результат: 9 + 6 - 12 = 3

INPUT “Сколько элементов в массиве”; N

DIM A (N)

FOR I = 1 TO N

PRINT “Введите А (“; I ;”)” ;

INPUT A (I)

NEXT i

S = 0

FOR I = 1 TO N

IF A (I) mod 3=0 then S=S+A(i)

NEXT i

PRINT “Среднее арифметических чисел кратных трем =”; S

END

                                 

                                       Условие задачи № 4

   Составить программу вычисления числового ряда для известного числа ряда N. Перед программированием следует выявить и написать необходимые аналитические соотношения, описывающие все изменяющиеся зависимости.

                                       REM Задача № 4

у = ((25-7)/(1+1))^9*((20+5)/(2-3))^-25*((15-3)/(3+9))^1*((10+1)/(4-27))^-0.47

INPUT “Введите N”; N

P = 1

K = 25

M=7

FOR x = 1 TO N

P = P*(K+(-1)^x*M)/(X+(-1)^(x+1)*3^(x-1))

K=K-5

M=M-2

NEXT x

PRINT “Произведение =”; P

                               

                                    Условие задачи № 5

   Выполнить действия над массивами. В таблице при формировании задания для разъяснения его сути справа отображены примеры исходных Х и результирующих У массивов с конкретными числами. Программа естествен-

но, должна обрабатывать любые числа. Предельная размерность  массивов до 10, реальная размерность  – N. Программа должна предъявлять исходные и новые (если требуется) массивы.

   Заполнить У элементами Х, находящимися между его максимальным и минимальным значениями.

Х  7  1  3  2  9  3

У  3  2       

                                   REM Задача № 5

 INPUT “Введите количество элементов N”; N                                       

DIM x (n); y (n)

FOR I = 1 TO N

PRINT “x(“;I;”) = “;

INPUT x(i)

NEXT i

N min = 1 : min = x (1)

N max = 1 : max = x (1)

FOR I =2 TO N

IF x(i) < min THEN min = x(i): n min = i

IF x(i) > max THEN max = x (i): n max = i

NEXT i

IF n min < n max THEN a = n min : b= n max ELSE a=n max: b= n min

FOR I = a+1 TO b-1

Y(i) = x(i)

PRINT “y(“;I;”) =”; y(i)

NEXT i

END

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

              Список используемой литературы.

 

1. Микрюков В.Ю. «Алгоритмизация  и программирование»/В.Ю. Микрюков.

    - Ростов н/Дону.; Феникс, 2007. – 304 с. (Среднее профессиональное обра-

    зование).

2. Информатика: Учебное  пособие/ Е.Л. Жукова, Е.Г. Бурда.  – 2-ое изд. – М.:

    Издательское  – торговая корпорация «Дашков  и К»; Академцентр. 20110.-

    272 с.

3. Вик Курилович Visual Basik/ Вик Курилович – М.: СОЛОН – Пресс, 2006,

    384 с. – (Серия  «Полное руководство пользователя»)

4. Кузьменко В.Г. Visual Basik 6. Самоучитель. – 3-е изд. – М.: ООО «Бином

    - Пресс», 2005г.  – 400 с.: ил.

5. Голицына О.Л., Попов  И.И. «Основы алгоритмизации и  программирования 

    Учеб. Пособие. – 3-е изд., испр. И доп. – М.: ФОРУМ, 2008. – 432 с. –

    (Профессиональное  образование).