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

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

Листинг 1. – Задача 1.

PRINT "Input A"

INPUT A

PRINT "Input B"

INPUT B

PRINT "Input C"

INPUT C

PRINT "Input D"

INPUT D

IF ((A=B) AND (A<>C) AND (A<>D)) OR ((A<>B) AND (A=C) AND (A<>D)) OR ((A<>B) AND (A<>C) AND (A=D)) OR ((B=C) AND (B<>A) AND (B<>D)) OR ((B=D) AND (B<>A) AND (B<>C)) OR ((C=D) AND (C<>A) AND (C<>D)) THEN PRINT "TRUE" ELSE PRINT "FALSE"

Задача 2. Составить программу вычисления и выдачи на печать суммы/произведения N элементов бесконечного числового ряда у = 50-40+30-20+10…

Листинг 2. – Задача 2.

PRINT "Input N"

INPUT N

s = 0: a = 50

FOR i = 1 TO N

s = s + (a * (-1) ^ (i + 1)): a = a - 10

NEXT i

PRINT "Summa ravna", s

Задача 3. Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, выполняющую задачу в соответствии с вариантом. Найти максимальное и минимальное числа. Напечатать те элементы массива, которые в массиве находятся между ними.

Листинг 3. – Задача 3.

PRINT "Input N": INPUT N: DIM A(N)

FOR i = 1 TO N

PRINT "Input ", i, "element massiva": INPUT A(i)

NEXT i

min = 1: max = 1

FOR i = 1 TO N

IF (A(i) > A(max)) THEN max=i

IF (A(i) < A(min)) THEN min=i

NEXT i

PRINT min, " ", max, " "

IF (min > max) THEN x = max: y = min

ELSE x = min: y = max

FOR i = x TO y

PRINT A(i), " "

NEXT i

Задача 4. Составить программу вычисления числового ряда для известного числа членов ряда N. У = -(3/16+1)+(3/8-2)-(3/4+3)+(3/2-4)…

Листинг 4. – Задача 4.

PRINT "Input N": INPUT N

k = 16: m = 1: y = 0

FOR i = 1 TO N

a = (3 / k + m* ((-1)^(i+1))) * ((-1)^(i))

PRINT USING "“#######.##"; a

y = y * a

k = k / 2

m = m + 1

NEXT i

PRINT "Y = ", y

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

Напечатать все элементы, которые встречаются более одного раза.

Листинг 5. – Задача 5.

DIM X(10)

DIM Y(10)

PRINT "Input N": INPUT N

FOR i = 1 TO N

PRINT "Vvedite ", i, "element massiva": INPUT X(i)

NEXT i

k = 1

FOR i = 1 TO N-1

FOR j= i+1 TO N

IF (X(i)=X(j)) THEN Y(k) = X(i): k = k + 1: EXIT

NEXT j

NEXT i

FOR i = 1 TO N-1

FOR j= i+1 TO N

IF (Y(i)=Y(j)) THEN Y(j) = #

NEXT j

NEXT i

FOR i = 1 TO k-1

IF (Y(i)<> #) THEN PRINT Y(i), " "

NEXT i