Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Решение прикладных задач в интегрированной среде Турбо Паскаль.pdf
Скачиваний:
0
Добавлен:
29.11.2025
Размер:
2.31 Mб
Скачать

Read (А [3]); Read (В[6,9]);

Вывод значения элементов массива выполняется аналогичным образом, но используются операторы Write или Writeln.

За д а н и е 5.1

1.Составить схему алгоритма для вычисления функции, приведенной в табл. 5.1.

2.Составить программу для циклического вычислительного процесса на языке Паскаль.

3.Произвести расчеты на микроЭВМ.

4.Распечатать листинг программы.

5.Исходные данные, промежуточные и окончательные результаты расчета вывести на экран видеотерминала (дисплея)

ипечатающее устройство (принтер).

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Таблица 5.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Исходные данные

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Ва-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ри-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Функции

 

 

Исходные данные

ант

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

3

 

 

 

 

(ai xi ) sin xi2

, если ai

< xi ;

a1

= 1,2; x1 = – 12,3·102;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2 = –15,1; x

-

 

Y

=

e

 

 

 

xi

 

 

tga ,

 

 

если a

= x ;

2 = 83,4·10

1

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

i

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a3

= 0,385; x

3 = 0,012;

 

 

 

 

 

 

 

ai

 

 

 

cos xi ,

 

 

если ai > xi

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a4

= 0.5; x4 = 3,17·10-1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Продолжение табл. 5.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

3

 

 

 

 

(ai2 xi3 )e

 

 

 

 

 

 

 

 

 

 

 

 

xi

, если ai < xi ;

a1 = 3,57; x1 = 149·10–1;

2

Y

=

e

 

 

xi +ai

 

tg2x

,

 

если a

= x ;

a2

= 1,46; x2

= 8,6·10–1;

 

 

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

i

i

 

 

–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a3 = 0,59; x3 = 59·10 ;

 

 

 

 

 

ai

 

 

log2

 

xi

 

,

 

если ai

> xi

a4 = –12,4; x4 = 50·10–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

27

 

e0,2 +

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

если ai

< xi ;

a1 = 2,34; x1

= 85·10-1;

 

 

 

 

 

 

 

ai + xi

 

,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2

= 5,6; x2 = 0,34·10-1;

3

Yi = (

 

 

 

ai

+ xi

 

 

)2,

 

 

 

 

 

если ai = xi ;

a3

= –7,86; x3 = –0,35·10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1;

 

 

 

e

 

xi

 

 

sin2 xi ,

если ai

> xi

a4 = 4,25; x4

= 7,61·10–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a1 = –2,65; x1 = –0,14·10

 

 

 

 

e

 

 

ai +xi

 

 

 

,

 

 

 

 

если a

< x ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

i

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

если ai

= xi ;

;

 

= 8,6·10–1;

4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2 = 4,63; x2

Yi = ai sin xi +6,3xi2,

 

 

 

 

 

 

 

 

2

/ ln xi ,

если ai > xi

a3

= –5,25; x3

= 0,04·10–1;

 

ai tgxi

 

a4 = 16,1; x4

–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

= 0,9·10

 

2x4

+16a tgx3,

если a

< x ;

a1 = –2,75; x1 = –40·10

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

 

 

 

i

 

i

i

1;

 

 

5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

если ai

= xi;

a2 = 3,86; x2

= 6·10–1;

Yi = 0,5xi2 +sin(xi2 / ai ),

 

 

 

 

 

 

 

 

 

 

 

 

 

ai3 + xi2

 

 

 

 

 

 

 

a3

= 7,85; x3

= 113·10–2;

 

 

 

 

 

xi

+

,

если ai > xi

 

 

–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a4 = –4,5; x4 = 2,5·10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(ai

+ xi )2 sin ai ,

если ai

< xi ;

a1 = 23,58; x1 = 153·10

 

1;

= –0,3; x2

–1

 

 

 

 

 

 

 

 

3

) tg(ai

/ xi ), если ai

= xi ;

a2

= 0,82·10 ;

6

Yi = (ai

+ xi

a3

= 1,14; x3 = –0,37·10–1;

 

3

 

 

a

x

,

 

 

 

 

 

если a

> x

 

a4 = –0,75; x4 = 0,57·10

 

 

 

 

 

 

 

 

 

 

 

 

i

 

 

 

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

(ai2

xi )sin2 xi ,

если ai

< xi ;

a1 = 5,2; x1 = –1,3·10–1;

 

 

 

 

xi

+ai

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

a2

= 6,96; x2

= 14,1·10–1;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

7

Yi = e

 

 

 

 

 

 

 

 

 

 

 

tg

 

 

 

 

ai

,

 

 

 

если ai

= xi ;

a3

= 1,01; x3

= 120·10–2;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ai

 

ln

 

 

xi

 

 

,

 

если ai > xi

 

a4 = –8,1; x4

= 0,5·10–1

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Окончание табл. 5.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

3

 

28

 

 

 

(ai2 xi )e

 

 

 

 

/(ai2 +1), если ai < xi ;

 

 

 

 

 

 

 

xi

a1

= 3,57; x1

= 149;

8

Y

=

e

 

xi

+ai

 

 

 

sin

2 x ,

если a

= x ;

a2

= 1,46; x2

= 8,6;

 

 

 

 

 

 

 

i

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i

i

i

a3

= 0,59; x3 = 59;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ai

+1

 

log2

 

 

xi

 

,

если ai

> xi

a4

= –12,4; x4 = 50

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0,2

+

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

ai + xi

 

,

если ai < xi ;

a1

= 2,34; x1 = 85;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

Yi = (

 

ai + xi

 

)2 log2 xi2, если ai = xi ;

a2

= 5,6; x2 = 0,34;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a3

= –7,86; x3 = –0,354;

 

 

 

 

 

 

xi

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

a4

= 4,25; x4 = 7,61

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

sin

 

 

xi,

если ai > xi

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(ai

xi2 ) sin3 xi , если ai < xi;

a1

= 1,2; x1 = –12,3·102;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2

= –15,1; x2 = 83,4·10-

 

 

 

 

 

 

 

xi

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

10

Yi = e

 

 

 

 

 

 

 

log2 ai ,

если ai = xi;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a3

= 0,385; x3 = 0,012;

 

 

 

 

 

 

ai

 

 

 

cos xi ,

если ai > xi

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

a4

 

–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

= 0,5; x4 = 3,17·10 ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

З а д а н и е 5.2

1. Составить схему алгоритма для вычисления функции, приведенной в табл. 5.2, домножив каждое значение функции

на дополнительный член (ai xi ).

2.Выполнить пункты 2–5 задания 5.1.

6.ОБРАБОТКА ДВУМЕРНЫХ МАССИВОВ

За д а н и е 6.1

29

1.Составить схему алгоритма для вычисления произведения вектора В на матрицу М третьего порядка. Численные значения элементов вектора и матрицы приведены в табл. 6.1.

2.Составить программу на языке Паскаль, реализующую построенный алгоритм.

3.Произвести расчеты на микроЭВМ.

4.Распечатать листинг программы.

5.Исходные данные, промежуточные и окончательные результаты расчета вывести на экран видеотерминала (дисплея)

ипечатающее устройство (принтер).

Указание: элементы результирующего вектора R вычисляются по формуле

ri = bimij ,

где i = 1, 2, 3, …, n;

bi – элементы вектора В; mij – элементы матрицы М.

Результат получается при использовании двух вложенных циклов.

Таблица 6.1

Исходные данные

 

Вариант

Элементы вектора

Элементы матрицы

 

 

1

2

 

3

 

 

 

 

 

0,24

0,27

0,31

 

 

1

B1 = {1,21; 3,42; 4,51}

M1 = 0,43

0,84

0,92

 

 

 

 

1,21

1,63

1,98

 

 

 

 

4,05

5,15

6,13

 

 

2

B2 = {2,1; 3,40; 4,14}

M2 = 5,91

8,05

9,06

 

 

 

 

7,17

9,29

9,19

 

 

 

 

Окончание табл. 6.1

 

 

 

 

 

 

 

 

1

2

 

3

 

 

30

 

 

 

 

 

 

 

1,22

1,65

2,05

3

B3 = {0,56; 0,75; 0,89}

M3 = 0,45

0,67

0,81

 

 

2,31

3,07

4,05

 

 

0,95

1,32

2,40

4

B4 = {3,2; 4,31; 6,07}

M4 = 40

3,72

4,12

 

 

2,17

3.60

5,20

 

 

3,14

4,09

5,10

5

B5 = {0,75; 1,25; 2,5}

M5 = 2,17

3,05

4,10

 

 

1,28

2,40

3,20

 

 

0,34

0,65

0,85

6

B6 = {3,1; 4,25; 5,4}

M6 = 1,34

2,17

3,05

 

 

0,75

0,85

4,07

 

 

2,40

3,10

4,35

7

B7 = {0,8; 0,9; 1,3}

M7 = 0,60

0,74

0,95

 

 

3,40

4,02

4,90

 

 

0,32

0,47

0,62

8

B8 = {4,4; 5,45; 6,15}

M8 = 0,85

0,70

0,25

 

 

3,52

4,17

2,10

 

 

0,24

0,27

0,31

9

B9 = {1,21; 3,42; 4,51}

M9 = 0,43

0,84

0,92

 

 

1,21

1,63

1,98

 

 

4,05

5,15

6,13

10

B10 = {2,1; 3,40; 4,14}

M10 = 5,91

8,05

9,06

 

 

7,17

9,29

9,19

За д а н и е 6.2

1.Составить схему алгоритма для вычисления произведения матрицы М третьего порядка на матрицу Р третьего порядка. Численные значения матрицы М взять согласно табл. 6.1, а численные значения матрицы Р – из табл. 6.2.

2.Выполнить пункты 2–5 задания 5.1.

Указание: Элементы результирующей матрицы С вычисляются по формуле

31

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]