Информатика. 10

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

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

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

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

Вариант 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+…

Блок-схема

 

 
 
 
 
 
 
 
 
 
 

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

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. Значение верно.

Информатика. 10 📙 Контрольная → 🆔 37536

Информатика. 10 📙 Контрольная → 🆔 37536