ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ

МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕХНОЛОГИЙ И УПРАВЛЕНИЯ

КОНТРОЛЬНАЯ РАБОТА



по дисциплине
«Информатика»



Вариант 6

Выполнила:

студентка 1 курса С.Ф.О.
института «Системной

автоматизации и инноватики»

спец. 220301 «Автоматизация

технологических процессов и

производств»

гр. 981-М

шифр 606-220301-09

Семенова С.А.


Проверила:

Варнакова Г.А.


Рязань – 2010


ЗАДАЧА 1-1

Имеется четыре (A,B,C,D) произвольных числа. ЭВМ должна ответить на вопрос: “Правда ли что точно два из чисел равны?”. Ответ ЭВМ должна вывести в виде текста – слов “Правда” или “Неправда”.

Блок-схема

Текст программы

CLS

PRINT " Задача 1_1"

PRINT " Правда ли, что точно два из чисел равны?"

INPUT " Введите число A: ", a

INPUT " Введите число B: ", b

INPUT " Введите число C: ", c

INPUT " Введите число D: ", d

IF a = b or a = c or a = d or b = c or b = d or c = d THEN

  PRINT " Правда"

ELSE

  PRINT " Неправда"

END IF

END


ЗАДАЧА 1-2

Составить программу вычисления и выдачи на печать суммы N элементов бесконечного числового ряда Y=-18+20-22+24-26+…

y=0, a=-18

a=-a+2

a=-a-2

i=i+1

y=y+a

i=0, i≤N     А

Блок-схема





Текст программы

CLS

PRINT " Задача 1_2"

PRINT "Бесконечный ряд Y=-18+20-22+24-26+…"

a = -18 : y = 0

INPUT " Введите количество элементов N : ", n

FOR i = 1 TO n

  y =y + a

  IF a > 0 THEN a = -a -2 ELSE a= -a +2

NEXT                                                                   

PRINT "Сумма элементов Y ="; y

END
Проверка

Проверка для N=3
1 цикл	2 цикл	3 цикл
a=-18, y=0 y=y+a=0+(-18)=-18 a= -(-18)+8=20	a=20, y=-18 y=y+a=-18+20=2 a=-20 -2=-22	a=-22, y=2 y=y+a =2+(-22)= -20 a=-(-22) +2=24

Проверка сделана для N=3. В результате Y=-20. Значение верно.


ЗАДАЧА 1-3

Дана функция . ЭВМ должна вычислить и напечатать значения этой функции для значений X=6, 7, 8 и т.д. до тех пор, пока сумма Y+11 не станет отрицательной.

Блок-схема




Текст программы


CLS

PRINT " Задача 1_3"

PRINT  "a=6, b=0, c=6"

i = 0

PRINT " Вывод значений функции Y = 6 – (x - 6)^2 "

DO

  x = 6 + i * 1

  y = 6 – (x - 6) ^ 2)

  i = i + 1

  PRINT " X ="; x; " Y ="; y; " Y+11 ="; y + 11

LOOP WHILE (y + 11) >= 0

END




Проверка

1 цикл	2 цикл	3 цикл	4 цикл	5 цикл	6 цикл
X=6, Y=6, Y+11=17	X=7, Y=5, Y+11=16	X=8, Y=2, Y+11=13	X=9, Y=-3, Y+11=8	X=10, Y=-10, Y+11=1	X=11, Y=-19, Y+11=-8

Значения верны.


ЗАДАЧА 1-4

Имеется массив A из N произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, суммировать числа до тех пор, пока не встретиться число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст «Двойки нет».

Блок-схема





Текст программы

CLS

PRINT " Задача 1_4"

INPUT " Введите количество элементов массива : ", n

RANDOMIZE TIMER

DIM a(n)

PRINT " Массив:"

FOR i = 1 TO n

  a(i) = INT(RND * 19) - 9

  PRINT a(i)

NEXT

s = 0: m = 0

FOR i = 1 TO n

  IF a(i) <> 2 THEN s = s + a(i) : m = i ELSE  GOTO 10

NEXT

10 PRINT " s = ";s

IF m = n THEN PRINT "Двойки нет"

Проверка

Проверка для N=10
Полученный массив	Сумма
-5 3 4 -6 8 2 -7 -2 4 6	4

Проверка сделана для N = 10. Сумма элементов равна = 4. Значение верно.