Материал: Основы алгоритмизации и программирования вычислительных процессов. Кононов А.Д., Кононов А.А

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

 

T = 7

x3

+10x 7,3

 

x55,2

 

 

 

 

 

 

 

4)

5)W =

 

y4 sinc6

 

+5,8

 

 

 

 

 

 

 

6

 

 

9 π

 

 

 

 

 

(14)

 

 

 

 

 

 

 

 

 

 

 

cos xab

2

 

 

sin(a π y)8

 

π

9

 

6)

F =

 

 

 

 

+ n

 

 

L =

 

 

 

 

 

 

+ d

 

 

 

y 4 b

+ 5,4

 

7)

17,84 + x

5(ab)

 

 

 

 

 

 

 

 

 

7

 

(15)

 

x =

cos y a sin r8q

 

9)

 

 

 

 

 

 

 

 

 

 

 

8)

 

v = (x6 +3,3A)

 

 

 

 

 

 

 

 

 

 

 

d 2ab +18,31

 

 

 

x4

 

+7 cosD2

 

 

 

 

 

 

5

 

(16)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторная работа 2. Разветвляющийся вычислительный процесс

Пример выполнения работы 2.

Пусть это будет задание: составить программу вычисления функции на языке PASCAL.

x 12,

x ≤ −2

 

3 < x

y = 8 + x,

 

2 < x 3

sin x,

 

(17)

PROGRAM РR2;

VAR x,y:REAL;

BEGIN

WRITELN(‘Ввод х’);

READLN(x);

IF x<=-2 THEN y:=x-12 ELSE

IF x<=3 THEN y:=SIN(x) ELSE y:=x+8;

WRITELN(‘x=‘,x:9:3,’ y=‘,y:9:3);

END.

Задания по теме лабораторной работы 2.

 

 

 

 

,x ≥ −1

 

x + 4

 

 

 

 

 

0) y =

3x,

4 x < −1

 

2x +5,

x < −4

 

 

 

 

 

 

x 2, x ≤ −4

 

40x3, x 6

1) y =

 

 

2

, 4 < x < 6

x + a

 

 

 

 

(18)

26

 

1x4 ,

x 2

 

 

 

 

 

 

 

 

 

 

2) y = x5 , 0 < x < 2

 

 

 

3

+7,

x 0

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

0 < x 1

 

x + 2

4) y =

ln(x 1), x >1

 

17,9+x,

x 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0 < x < 4

 

 

 

x

,

6) y =

 

9xd 2 , 0 x

 

 

1 + 7x2 , x 4

 

 

 

 

 

 

 

 

 

3a9 x, 0 < x <1

 

 

 

 

 

 

 

 

 

 

8) y =

 

5x +7, x 0

 

 

 

 

cos x,

x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2x17,

 

 

x <1

 

 

 

 

7

, 1 x 5

3) y = x

 

 

 

 

 

 

 

 

 

 

 

 

x > 5

 

x ln x,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(19)

 

 

x4 5abc,

x > 0

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5) y =

3ax, 3 x 0

 

 

 

 

 

 

 

 

 

 

 

 

 

x ≤ −3

 

cos x sin x,

 

 

 

 

 

 

 

 

 

 

 

 

 

(20)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+5a3

 

, x 0

 

 

 

x

n

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7) y =

sin x,

 

 

1 x < 0

 

cos(x +1),

x < −1

 

 

 

 

 

 

 

 

 

 

 

 

 

(21)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln(x 1), x > 2

9)

 

 

 

 

 

11

f , 1 < x 2

y = xk

 

 

 

 

 

sin x

5

,

 

x 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(22)

Лабораторная работа 3. Циклический вычислительный процесс

Пример выполнения работы 3.

Допустим, требуется составить программу вычисления значения функции

K = X 3 + LN 5 X 2 , при этом X [2; 14,1] c шагом 0,8 (используем оператор

FOR).

В языке PASCAL у оператора цикла FOR шаг равен 1 (или -1). Поэтому для решения задачи необходимо определить количество повторений по формуле

X

2

X

1

 

 

 

 

N =

 

 

 

+1

.

(23)

 

X

 

 

 

 

 

Квадратные скобки в данном случае показывают, что дробная часть отбрасывается.

Для поставленной задачи

14,12

+1 =16 .

(24)

N =

0,8

 

 

 

 

 

PROGRAM РR3;

VAR X,K:REAL; I:INTEGER;

27

BEGIN

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

X:=2.0;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

FOR I:=1 TO 16 DO BEGIN

 

 

 

 

 

K:=EXP(3 LN(X))+EXP(5 LN(LN(SQR(X))));

 

 

WRITELN(‘X=‘,X:8:1,’

K=‘,K:9:2);

 

 

 

X:=X+0.8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

END.

END;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Задания по теме лабораторной работы 3.

 

Таблица 1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Табулируемая

 

Пределы

Шаг в

Используемый

варианта

 

 

функция

 

 

 

 

 

изменения x

цикле

оператор цикла

0

Z = y2 ln x +1

 

[ 1; 2,25 ]

0,125

FOR

1

Z =

y3

2 f

5

2,3

 

[ 1,45; 2 ]

0,05

FOR

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

+

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[ 1; 5 ]

0,53

FOR

Z = 10x + y 7,8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

Z = (x2 4x +8,1)d

 

[ 0,1; 1 ]

0,15

FOR

4

Z = −0,01x + x + y3x

 

[ -7; 2 ]

0,88

WHILE

5

Z = sin x 4v

3

 

 

 

[ 2; 10 ]

0,77

WHILE

 

 

 

 

 

 

 

 

 

6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[ 2; 16 ]

1,37

WHILE

Z =

 

x2 + y2

 

 

 

 

 

 

 

7

Z = x3y d + f 7

 

[ 0,5; 4 ]

0,43

REPEAT

8

Z =

 

x

 

 

3

 

 

 

 

 

 

 

[ -4; -1 ]

0,38

REPEAT

 

 

 

v h

 

 

 

 

 

 

 

 

 

 

 

9

Z = 2x +3sin(xy)

 

[ 4,1; 8 ]

0,36

REPEAT

 

 

cos x5 +7,91

 

 

 

 

 

 

 

 

 

Лабораторная работа 4. Разветвление в цикле

Пример выполнения работы 4.

Пусть условие задачи выглядит следующим образом. Написать программу на алгоритмическом языке PASCAL для вычисления функции:

28

x + z2 ,2 < x < 5

 

 

D = sin x z,x 2

 

,x 5

ln x + z5

 

(25)

 

при x [0,3; 8,9] c шагом 0,35. Допускается использование любого оператора

цикла. Воспользуемся оператором WHILE. PROGRAM РR4;

VAR X,Z,D:REAL; BEGIN

WRITE(‘Введите значение Z’);

READ(Z);

WRITELN(‘Z=‘,Z:8:2); X:=-0.3;

WHILE X<=8.9 DO BEGIN

IF X<=2 THEN D:=SIN(X)-Z ELSE

IF X<5 THEN D:=SQRT(X)+SQR(Z) ELSE D:=LN(X)+EXP(5 (LN(Z)); WRITELN(‘X=‘,X:8:2,’ D=‘,D:8:2);

X:=X+0.35 END END.

Выполняется номер указанного варианта из таблицы 2 с использованием любого оператора цикла.

Задания к выполнению лабораторной работы 4

Таблица 2

№ варианта

Табулируемая функция

Пределы изменения х Шаг

0

ln x,

0 < x 1

[ -1,3; 1,8 ]

0,3

y = 4sin(x +1),

x >1

 

 

 

 

 

x 0

 

 

 

h + x,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

x + 5x

3

,

x 0,5

[ -1; 0,8 ]

0,17

 

 

 

 

 

 

 

 

0 < x < 0,5

 

 

 

y = ln x,

 

 

 

 

 

 

 

 

x 0

 

 

 

n x,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

sin(2x +1),

x 4

[ 3,0; 7,5 ]

0,4

 

0,1x2

 

 

 

 

 

 

 

 

x ,

4 < x 6

 

y =

 

 

 

 

 

 

3ln x,

x > 6

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

29

Окончание таблицы 2

3

sin x,

 

 

 

x

≤ −1

 

[ -4; 7,1 ]

0,9

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y = cos 2x,

4

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 < x < 4

 

 

 

0,4x + a2,

 

 

4

sin x,

x

>11

[ 0,5; 16 ]

1,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x ,

 

 

 

5 < x

11

 

y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 5

 

 

 

cos 2 x,

 

 

 

5

1,5x + f ,

4 x

[ 0,1; 5,2 ]

0,5

 

20 x

2 ,

 

x 1

 

y =

 

 

 

 

 

4 ln x,

1 < x < 4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6

cos x,

x <

2

[ -3,4; 8,7 ]

1,05

 

 

 

 

 

 

 

 

 

 

 

 

2

x 6

 

y = x0,3,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x ,

x > 6

 

 

 

sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

ln(x 5), x > 6

[ -4,8; 7,4 ]

0,91

 

 

 

 

 

 

 

 

 

 

 

 

,

x

≤ −2

 

y = sin x r

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6 x > −2

 

 

 

cos x,

 

 

 

 

 

x2

 

,

 

x 0,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8

x

3 +1

 

 

 

 

 

 

[ -2,3; 1,2 ]

0,3

 

 

 

 

 

 

 

 

 

 

 

 

x ≤ −1

 

 

 

y = cos x,

 

 

 

 

 

 

 

u

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+ x, 1 < x < 0,5

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

1,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 x 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

 

 

3,4

,

 

[ -3; 6,2 ]

0,82

 

y = cos(x + 5),

x < −1

 

 

 

ln x

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

,

 

 

x > 3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Лабораторная работа 5. Работа с массивами

Пример выполнения работы 5.

Сделаем предположение, что условие задачи следующее. Дан одномерный

30

Источник: https://studfile.net/preview/16563236/