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

Автор работы: Пользователь скрыл имя, 02 Февраля 2013 в 16:01, контрольная работа

Описание работы

Тема 1
В задачах с номерами 1—10 компьютер должен выбрать один из двух вариантов расчета, в задачах с номерами 11--20 дается ответ “попал”, если координаты вводимой точки X,Y попадают в заштрихованную область (области); в противном случае дается ответ “мимо”
Задача №15.

Файлы: 1 файл

моя контрольная по информ.docx

— 34.25 Кб (Скачать файл)

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

 

 

 

 

 

 

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

по  дисциплине

Информатика

 

Вариант 74.

Задачи  № 15, 3, 7

 

 

 

 

 

 

 

 

 

 

 

Выполнил  студент 2 курса

Специальность 080109

Слободенюк Е.А.

 

 

 

 

 

 

 

 

 

 

 

 

 

Крымск

2012

 

Тема 1

В задачах с номерами 1—10 компьютер  должен выбрать один из двух вариантов  расчета, в задачах с номерами 11--20 дается ответ “попал”, если координаты вводимой точки X,Y попадают в заштрихованную область (области); в противном случае дается ответ “мимо”

Задача  №15.

Даны 4 числа. Если среди них  есть ноль, то вычислить и напечатать произведение этих чисел. В противном  случае – их удвоенную сумму.

 

REM Tema 1 - Zadacha 15

CLS

 

INPUT "Vvedite  1-e chislo:"; a

INPUT "Vvedite  2-e chislo:"; b

INPUT "Vvedite  3-e chislo:"; c

INPUT "Vvedite  4-e chislo:"; d

Flag = (a = 0 OR b = 0 OR c = 0 OR d = 0)

IF Flag  THEN

     PRINT "Resultat: "; a * b * c * d

  ELSE

    PRINT "Resultat: "; 2 * (a + b + c + d)

END IF

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

 Протокол  работы  программы:

 

Vvedite 1-e chislo:? 1

Vvedite 2-e chislo:? 2

Vvedite 3-e chislo:? -2

Vvedite 4-e chislo:? 4

Resultat:  10

 

 

Vvedite 1-e chislo:? 1

Vvedite 2-e chislo:? 2

Vvedite 3-e chislo:? 0

Vvedite 4-e chislo:? 4

Resultat:  0

 

Тема 2

Задачи на суммирование (с номерами 1—10) решаются с применением циклов Если задано число суммируемых слагаемых,  то используется цикл с параметром. В задачах принимайте n не более 50. В любом случае программа должна запрашивать значения:  x, n.  Значения Х должны быть по модулю меньше 1, но больше 0.5

Задача № 3

 

                                                                                              Программа


 

REM Tema 2  Zadacha 3

CLS

INPUT "Vvedite n= "; n

INPUT "Vvedite x ="; x

 

DO WHILE ABS(x) > 1 OR ABS(x) < .5

   PRINT "Oshibka! Povtorite  vvod  x: 0.5 <    abs(x) < 1"

   INPUT "Vvedite x ="; x

LOOP

 

sum = 0

FOR i = 1 TO n

    sum = sum + (-x) ^ i * LOG(i + 1) / i

NEXT i

 

PRINT "Sum = "; sum

 

Протокол  работы  программы:

 

Vvedite  n= ? 40

Vvedite x =? 0.2

Oshibka! Povtorite  vvod  x: 0.5 < abs(x) < 1

Vvedite x =? 2

Oshibka! Povtorite  vvod  x: 0.5 < abs(x) < 1

Vvedite x =? 0.85

Sum = -.3560849

 

 

Vvedite n= ? 50

Vvedite x =? -0.3

Oshibka! Povtorite  vvod  x: 0.5 < abs(x) < 1

Vvedite x =? -10.5

Oshibka! Povtorite  vvod  x: 0.5 < abs(x) < 1

Vvedite x =? 0.74

Sum = -.3264532

 


 

Тема 3

 

Это задание по работе с одномерным массивом и применению условного оператора. Минимум дважды используется цикл с  параметром. В первом цикле с клавиатуры вводятся значения элементов массива. Для упрощения работы вводите  целые числа. Вводимые числа должны «подыгрывать» условию задачи. Во втором  цикле выводятся значения исходного массива и значения, полученные в результате работы программы. Может быть, потребуется три цикла. Программа пишется для произвольного  числа элементов массива. При  запросе «Введите число элементов  массива» вводите n=8.

Задача  №7

Организуйте  массив. Определите значение и номер последнего положительного числа.

                                                                               Программа


 

REM Tema 3 Zadacha 7

CLS

 

INPUT "Vvedite razmernost' massiva  n="; n

DIM A(n)

 

FOR i = 1 TO n

PRINT "Vvedite element massiva A("; i; ")=";

INPUT A(i)

NEXT i

 

PRINT "Vyvod elementov massiva "

 

FOR i = 1 TO n

PRINT "Element massiva A("; i; ")="; A(i)

NEXT i

 

AP = 0

IP = 0

 

FOR i = 1 TO n

IF A(i) > 0 THEN

AP = A(i)

IP = i

END IF

NEXT i

 

IF IP = 0 THEN

PRINT "Net polozhitelnih"

ELSE

PRINT "Posledniy polozhitelnyi element: nomer="; IP; ",  znachenie="; AP

END IF





 

 

 

 

 

 

 

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Протокол  работы  программы:

 

Vvedite  razmernost'  massiva  n=? 8

Vvedite element massiva A( 1 )=? -1

Vvedite element massiva A( 2 )=? 2

Vvedite element massiva A( 3 )=? 5

Vvedite element massiva A( 4 )=? 6

Vvedite element massiva A( 5 )=? -2

Vvedite element massiva A( 6 )=? -7

Vvedite element massiva A( 7 )=? 1

Vvedite element massiva A( 8 )=? -3

Vyvod elementov massiva

Element massiva A( 1 )=-1

Element massiva A( 2 )= 2

Element massiva A( 3 )= 5

Element massiva A( 4 )= 6

Element massiva A( 5 )=-2

Element massiva A( 6 )=-7

Element massiva A( 7 )= 1

Element massiva A( 8 )=-3

Posledniy polozhitelnyi element: nomer= 7,  znachenie= 1

 

 

Vvedite razmernost' massiva  n=? 8

Vvedite element massiva A( 1 )=? -1

Vvedite element massiva A( 2 )=? -2

Vvedite element massiva A( 3 )=? -3

Vvedite element massiva A( 4 )=? 0

Vvedite element massiva A( 5 )=? -4

Vvedite element massiva A( 6 )=? -5

Vvedite element massiva A( 7 )=? -6

Vvedite element massiva A( 8 )=? -7

Vyvod elementov massiva

Element massiva A( 1 )=-1

Element massiva A( 2 )=-2

Element massiva A( 3 )=-3

Element massiva A( 4 )= 0

Element massiva A( 5 )=-4

Element massiva A( 6 )=-5

Element massiva A( 7 )=-6

Element massiva A( 8 )=-7

Net polozhitelnih

 

 

 

 

 

Используемая литература.

  1. Информатика. Попов А.А. Учебное пособие. -М:. МГЗИПП, 1998.
  2. Зельднер Г.А., Программируем на языке QBASIC, Учебное пособие, М., ABF, 1996
  3. Гольденберг В.А., Введение в программирование, Учеб пособие, Минск, Харвест, 1997
  4. Попов А.А., Щербаков Б.Г. Методические указания и контрольные задания по дисциплине Информатика. -М:. МГТА 2001 г.
  5. Учебник по языку Basic в задачах и примерах

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