Реферат: Лабораторные работы по информатике

NPN = I

END IF

NEXT I

FOR I = 1 TO J

NEXT I

PRINT "Z(NPN)="; Z(NPN)

END

ИДЗ №1

Задана матрица В. найти минимальный элемент матрицы. Все элементы лежащие ниже главной диагонали, умножить на этот минимальный элемент.

INPUT "N,M"; N, M

DIM A(N, M)

PRINT "Ввод матрицы"

FOR I = 1 TO N

FOR J = 1 TO M

PRINT "A("; I; ")=";

INPUT A(I, J)

NEXT J

NEXT I

MIN = A(1, 1)

FOR I = 1 TO N

FOR J = 1 TO M

IF MIN > A(I, J) THEN

MIN = A(I, J)

END IF

NEXT J

NEXT I

FOR I = 2 TO N

FOR J = 1 TO I - 1

A(I, J) = A(I, J) * MIN

NEXT J

NEXT I

FOR I = 1 TO N

FOR J = 1 TO M

PRINT A(I, J);

NEXT J

PRINT

NEXT I

END

ИДЗ №2

Вычислить определитель треугольной матрицы.

INPUT "Введите кол-во строк и столбцов матрицы"; N

DIM A(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

PRINT "A("; I; ","; J; ")=";

INPUT A(I, J)

NEXT J

NEXT I

P = 1

FOR I = 1 TO N

FOR J = 1 TO N

IF I = J THEN

P = P * A(I, J)

END IF

NEXT J

NEXT I

PRINT "Определитель треугольной матрицы="; P

END

INPUT "Ввести M,N"; M, N

P = 1: S = 0

FOR I = 1 TO N

P = P * (I / (2 + I))

FOR J = 1 TO M

S = S * (I + J)

NEXT j

NEXT I

Y = P + S

PRINT "Y="; Y

ОДЗ №1

Задан одномерный массив. Найти среднее арифметическое элементов, делящихся на 3 без остатка и количество положительных элементов с чётными номерами. Найденное среднее вычесть из значения последнего элемента.

INPUT "Ввести массив N="; N

DIM A(N)

FOR I = 1 TO N

PRINT "A("; I; ")=";

INPUT A(I)

NEXT I

S = 0: K = 0: L = 0

FOR I = 1 TO N

IF A(I) MOD 3 = 0 THEN

S = S + A(I)

K = K + 1

END IF

NEXT I

FOR I = 2 TO N STEP 2

IF A(I) > 0 THEN

L = L + 1

END IF

NEXT I

PRINT "L="; L

IF K = 0 THEN

PRINT "Нет среднего значения"

ELSE

SR = S / K

A(N) = A(N) - SR

FOR I = 1 TO N

PRINT "A("; I; ")="; A(I)

NEXT I

END IF

ОДЗ №2

Задан одномерный массив X(N). Первый положительный элемент записать на место максимального с чётным номером.

N	X1	X2	X3	X4	X5
5	-1	2	-3	6	8

INPUT "Ввести массив N="; N

DIM X(N)

FOR I = 1 TO N

INPUT X(I)

NEXT I

NPOL = 0

FOR I = 1 TO N

IF X(I) > 0 THEN

NPOL = I

EXIT FOR

END IF

NEXT I

IF NPOL = 0 THEN

PRINT "Нет положительных элементов"

ELSE

MAXX = X(2)

FOR I = 4 TO N STEP 2

IF X(I) > MAXX THEN

MAXX = X(I)

NMAXX = I

END IF

NEXT I

X(NMAXX) = X(NPOL)

FOR I = 1 TO N

PRINT X(I)

NEXT I

END IF