Реферат: Лабораторные работы по информатике
Название: Лабораторные работы по информатике Раздел: Рефераты по информатике, программированию Тип: реферат | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Лабораторная работа №1 Тема: «Разработка простейших программ линейных структур» Под работы:
начало
ввод a,b,c
y=…
y
конец INPUT “Введите a, b, c”; a, b, c y=(a+b)/c+(SIN(b)^2+a+0.25+0.2c)^(1/3) PRINT “y=”; y (SIN(x+b)^a(c^2+x^0.7LOG(a))^(115))/(SQR(x+a)+1) ((a^(x+m)COS(x)+SQR((LOG(a+b)/LOG10)^2)/(1+(x+a)^(1/3))
где: x=4, y=2
a=(x^2+y+SIN(y/x))/(x+y^2)^(1/3)+x^y; b=(x+6y)^(1/4)/SIN(1/y)
начало
ввод x,y
a=…
b=…
a
b
конец INPUT “Введите x, y”; x, y a=(x^2+y+SIN(y/x))/(SQR(x+y^2)+x^y) b=(x+6y)^(1/4)/SIN(1/y) PRINT “a=”; a PRINT “b=”; b
Лабораторная работа №2 Тема: «Разработка разветвлённых программ» Цель: Изучение методов составления блок-схем алгоритмов и программ с разветвлениями на BASICе. Ход работы:
b=(ABS(x^3)+y)/(2y-x)
начало
ввод x,y
b=…
да нет
a, b
конец INPUT
“Введите x,
y”; x, y b=(ABS(x^3)+y)/(2y-x) IF x a=x ELSE a=b END IF PRINT “a=”;
a PRINT “b=”;
b
в
остальных
случаях
начало
ввод
x,a
-50
-2
y=LOG(ABS(x))
20
y=1/(x+a)
y=SQR(x+a
y
конец INPUT
“Введите
x, a”; x, a IF x>=-50 and x<=-30
or x>=-20 and x<=-10 THEN y=x^2-x ELSE
IF x>=-2 and x<=-1 or x>=1 and x<=10 or x>=-5 THEN
y=LOG(ABS(x)) ELSE
IF x>=20 and x<=50 or x>=60 and x<=70 THEN y=SQR(x+a^2) ELSE y=1/(x+a) END IF PRINT
“x=”; x PRINT “y=”;
y
начало
ввод
a, b, c
a=x
b=x
c=x
y=…
y
конец INPUT
“Введите
a, b, c”; a, b, c a=x IF
a IF
a IF
a IF
a END IF b=x IF
b>x IF
b>x IF
b>x IF
b>x END IF c=x IF
c END IF y=(2aa+3b-c)/(b+c) PRINT “y=”;
y Лабораторная
работа №3 М
(x;y)
y n=2
n=1
x n=1
n=2 INPUT
“Введите
x, y, z”; x, y, z IF x^2+y^2>R THEN n=3 ELSE IF x+y>0 THEN n=1 ELSE n=2 END IF PRINT “n=”;
n
2x INPUT
“Ввести
a, b, h, c, d”; a, b, h, c, d x=a
: y DO IF x<=c THEN y=(EXP(x)(COS(x)^2) ELSE IF x<=d THEN y=(x^2)sin(x) ELSE y=LOG(x^2+1)COS(x) END IF PRINT “x=”;
x, “y=”; y IF
y>y IF
y x=x+h IF x>b THEN EXIT DO LOOP P
y y PRINT
“y END
3-COS2x
a= INPUT “Введите a, b, n”; a, b, n h=(b-a)/n x=a
: y DO y=ABS(3-COS(2x) IF
y x=x+h LOOP UNTIL x>b PRINT
“x END Лабораторная работа №4 Тема: «Составление циклических программ. Вычисление сумм и произведений»
начало
ввод L
P=1; j=1
p=p(2j+L)/(j+2)
j=j+1
конец INPUT “Введите L”; L P=1 FOR j=1 TO L P=P(2j+l)/(j+2) NEXT j PRINT “P=”; P END
INPUT “Введите M, N, L”; M, N, L P=1 FOR k=1 TO m P=P((2k+L)/(L+k)) NEXT k S=1 FOR k=1 TO m S=S(k^2/(k^2+1)) NEXT k Z=0 FOR i=1 TO n Z=Z+(i^2+L)/(2Li) NEXT i y=P/(S+Z) PRINT “y=”; y
И
|
N |
X1 |
X2 |
X3 |
X4 |
X5 |
5 | 1 |
-2 |
3 | 4 |
-5 |
P=8 удовлетворяет условию
ИДЗ №2
Дан одномерный
массив
Все элементы
с чётными номерами
и принадлежащими
интервалу от
А до В записать
в новый массив
Y,
а все отрицательные
элементы с
нечётными
номерами,
предварительно
заменив их на
модули, записать
в массив Z.
В массиве Y
найти наименьший
элемент, а в
массиве Z
последний
нечётный элемент.
A |
B |
N |
X1 |
X2 |
X3 |
X4 |
X5 |
X6 |
X7 |
X8 |
X9 |
X10 |
3 | 10 | 10 | 1 |
8 |
-4 | -2 | 5 |
6 |
-1 |
7 |
-10 |
9 |
INPUT "A="; A
INPUT "N="; N
DIM X(N), Y(N)
FOR I = 1 TO N
PRINT "X("; I; ")=";
INPUT X(I)
NEXT I
K = 0
FOR I = 2 TO N STEP 2
IF X(I) > A AND X(I) < B THEN
K = K + 1
Y(K) = X(I)
END IF
NEXT I
J = 0
FOR I = 1 TO N STEP 2
IF X(I) < 0 THEN
J = J + 1
Z(J) = ABS(X(I))
END IF
NEXT I
IF K = 0 THEN
PRINT "Нет массива Y"
ELSE
MINY = Y(1)
FOR I = 2 TO K
IF Y(I) < MINY THEN
MINY = Y(I)
END IF
NEXT I
END IF
IF J = 0 THEN
PRINT "Нет массива Z"
ELSE
FOR I = 1 TO K
PRINT Y(I)
NEXT I
PRINT "MINY="; MINY
END IF
FOR I = 1 TO J
IF Z(I) MOD 2 <> 0 THEN
NPN = I
END IF
NEXT I
FOR I = 1 TO J
Y(N) |
MINY |
Z(K) |
Z(NPN) |
8,6,7,9 | 6 | 4,1,10 | 1 |
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
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
Новый массив |
||||
-1 |
2 |
-3 |
2 |
8 |