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

Лабораторнаяработа №1

Тема:«Разработкапростейшихпрограмм линейныхструктур»

Подработы:

1. Записьформул.

2. Контрольныйрасчёт дляиндивидуальногозадания.

3. Записьформул индивидуальногозадания наBASICе.

4. Блоксхема алгоритма.

5. Программа.

6. Таблицарезультатоврасчётов позаданию.

начало

вводa,b,c

y=…

y

конец

INPUT“Введитеa, b, c”; a, b, c

y=(a+b)/c+(SIN(b)^2+a+0.25+0.2c)^(1/3)

PRINT “y=”;y

(SIN(x+b)^a(c^2+x^0.7LOG(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+6y)^(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+6y)^(1/4)/SIN(1/y)

PRINT “a=”;a

PRINT “b=”;b

Лабораторнаяработа №2

Тема:«Разработкаразветвлённыхпрограмм»

Цель: Изучениеметодов составленияблок-схем алгоритмови программ сразветвлениямина BASICе.

Ход работы:

1. Изучитьосновные сведения,необходимыедля составленияблок-схем алгоритмовс разветвлённойструктурой.

2. Изучитьоператорыусловной ибезусловнойпередачи управления.

3. Изучитьпримеры, приведённыев описанииданной работы.

4. Ответитьна контрольныевопросы.

5. Составитьблок-схемуалгоритмови программ наBASICе для решенияследующихзадач:

;

b=(ABS(x^3)+y)/(2y-x)

начало

вводx,y

b=…

да

нет

x

a, b

конец

INPUT“Введите x,y”; x, y

b=(ABS(x^3)+y)/(2y-x)

IF x

a=x-b

ELSE

a=b-y

END IF

PRINT “a=”;a

PRINT “b=”;b

востальныхслучаях

начало

вводx,a

-50x-30

или

-20x-10

y=x-x

-2xx=-5

или

1x10

y=LOG(ABS(x))

20x50

или

60x70

y=1/(x+a) y=SQR(x+a)

y=…

y

конец

INPUT“Введитеx, a”; x, a

IF x>=-50 and x=-20 and x

y=x^2-x

ELSEIF x>=-2 and x=1 and x=-5 THENy=LOG(ABS(x))

ELSEIF x>=20 and x=60 and x

ELSE y=1/(x+a)

END IF

PRINT“x=”; x

PRINT “y=”;y

начало

вводa, b, c

a=x

a

a

a

a

b=x

b>x b=x

b>x b=x

b>x b=x

b>x b=x

c=x+x+x

c c= x+x

y=…

y

конец

INPUT“Введитеa, b, c”; a, b, c

a=x

IFa

IFa

IFa

IFa

END IF

b=x

IFb>xTHENb=x

IFb>xTHEN b=x

IFb>xTHEN b=x

IFb>xTHEN b=x

END IF

c=x+x+x

IFcTHEN c= x+x

END IF

y=(2aa+3b-c)/(b+c)

PRINT “y=”;y

Лабораторнаяработа №3

М(x;y)

y

n=2 n=1

x

-1 +1

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+1 e 3+1 a=2 b=6 n=20

INPUT“Ввестиa, b, h, c, d”; a, b, h, c, d

x=a: y=-1E10: y=1E10

DO

IF x

y=(EXP(x)(COS(x)^2)

ELSE IF x

y=(x^2)sin(x)

ELSE

y=LOG(x^2+1)COS(x)

END IF

PRINT “x=”;x, “y=”; y

IFy>yTHEN y=y;x=x

IFy=y;x=x

x=x+h

IF x>b THEN EXIT DO

LOOP

P

y=729.9988 x=5.9

y=9 x=2

PRINT“y=”;y,“x=”;x

END

3-COS2x a= b= n=20

INPUT“Введитеa, b, n”; a, b, n

h=(b-a)/n

x=a: y=1E+10

DO

y=ABS(3-COS(2x)

IFy=y: x=x

x=x+h

LOOP UNTIL x>b

PRINT“x=”;x

END

Лабораторнаяработа №4

Тема:«Составлениециклическихпрограмм. Вычислениесумм и произведений»

начало

вводL

P=1;j=1

p=p(2j+L)/(j+2)

j=j+1

jM

y=p

y

конец

INPUT“Введите L”;L

P=1

FOR j=1 TO L

P=P(2j+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((2k+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)/(2Li)

NEXT i

y=P/(S+Z)

PRINT “y=”;y

ИДЗ№1

Дан одномерныймассив Найти среднееарифметическоеэлементовмассива, имеющихчётные номераи удовлетворяющихусловию ,а также суммуположительныхэлементовмассива. Всеотрицательныеэлементы исходногомассива разделитьна найденноезначение суммы.

INPUT"Ввод массива";N

FOR I = 1TO N

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

INPUTA(I)

NEXT I

S = 0: K =0

FOR I = 2TO N STEP 2

IFA(I) > -10 AND A(I)

S =S + A(I)

K =K + 1

END IF

NEXT I

P = 0

FOR I = 1TO N

IFA(I) > 0 THEN

P =P + A(I)

END IF

NEXT I

FOR I = 1TO N

IFA(I)

A(I)= A(I) / P

END IF

NEXT I

IF K = 0THEN

PRINT"Делениена0"

ELSE

SR = S/ K

ENDIF

PRINT"Вывод новогомассива"

FOR I = 1TO N

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

NEXTI

PRINT"Сумма положительныхэлементов=";P

PRINT"Средне арифметическоезначение="; SR

N	X1	X2	X3	X4	X5
5	1	-2	3	4	-5

P=8удовлетворяетусловию

ИДЗ №2

Дан одномерныймассив Все элементыс чётными номерамии принадлежащимиинтервалу отА до В записатьв новый массивY,а все отрицательныеэлементы снечётныминомерами,предварительнозаменив их намодули, записатьв массив Z.В массиве Yнайти наименьшийэлемент, а вмассиве Zпоследнийнечётный элемент.

INPUT"A="; A

INPUT"N="; N

DIM X(N),Y(N)

FOR I = 1TO N

PRINT"X("; I; ")=";

INPUTX(I)

NEXT I

K = 0

FOR I = 2TO N STEP 2

IFX(I) > A AND X(I)

K =K + 1

Y(K)= X(I)

END IF

NEXT I

J = 0

FOR I = 1TO N STEP 2

IFX(I)

J =J + 1

Z(J)= ABS(X(I))

END IF

NEXT I

IF K = 0THEN

PRINT"НетмассиваY"

ELSE

MINY =Y(1)

FOR I = 2TO K

IFY(I)

MINY= Y(I)

END IF

NEXT I

END IF

IF J = 0THEN

PRINT"Нет массиваZ"

ELSE

FOR I =1 TO K

PRINTY(I)

NEXT I

PRINT"MINY="; MINY

END IF

FOR I = 1TO J

IFZ(I) MOD 2 0 THEN

NPN= I

END IF

NEXT I

FOR I = 1TO J

NEXT I

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

END

ИДЗ №1

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

INPUT"N,M"; N, M

DIMA(N, M)

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

FORI = 1 TO N

FORJ = 1 TO M

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

INPUT A(I, J)

NEXTJ

NEXTI

MIN= A(1, 1)

FORI = 1 TO N

FORJ = 1 TO M

IFMIN > A(I, J) THEN

MIN = A(I, J)

ENDIF

NEXTJ

NEXTI

FORI = 2 TO N

FORJ = 1 TO I - 1

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

NEXTJ

NEXTI

FORI = 1 TO N

FORJ = 1 TO M

PRINT A(I, J);

NEXTJ

PRINT

NEXTI

END

ИДЗ №2

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

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

DIMA(N, N)

FORI = 1 TO N

FORJ = 1 TO N

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

INPUT A(I, J)

NEXTJ

NEXTI

P= 1

FORI = 1 TO N

FOR J = 1 TO N

IF I = J THEN

P = P * A(I, J)

END IF

NEXTJ

NEXT I

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

END

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

P = 1: S =0

FOR I = 1TO 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

DIMA(N)

FORI = 1 TO N

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

INPUTA(I)

NEXTI

S= 0: K = 0: L = 0

FORI = 1 TO N

IFA(I) MOD 3 = 0 THEN

S= S + A(I)

K= K + 1

ENDIF

NEXTI

FORI = 2 TO N STEP 2

IFA(I) > 0 THEN

L= L + 1

ENDIF

NEXTI

PRINT"L="; L

IFK = 0 THEN

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

ELSE

SR= S / K

A(N)= A(N) - SR

FORI = 1 TO N

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

NEXTI

ENDIF

ОДЗ№2

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

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

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

DIM X(N)

FOR I = 1TO N

INPUTX(I)

NEXT I

NPOL = 0

FOR I = 1TO N

IFX(I) > 0 THEN

NPOL= I

EXITFOR

END IF

NEXT I

IFNPOL = 0 THEN

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

ELSE

MAXX =X(2)

FOR I= 4 TO N STEP 2

IFX(I) > MAXX THEN

MAXX= X(I)

NMAXX= I

ENDIF

NEXTI

X(NMAXX)= X(NPOL)

FOR I= 1 TO N

PRINTX(I)

NEXTI

ENDIF