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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

 

 

3

 

x +sinx2

 

 

2a b

 

 

π

 

lgx

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cos4x

 

 

 

 

 

 

 

 

log2x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вариант

 

 

 

 

 

 

 

Арифметические выражения

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

10

 

 

 

c2 + a2

+ 2c d tgx

1,8 3

sinx

 

+e

 

x1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

lnx + ec

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

c

+

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3. ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ ВЫЧИСЛИТЕЛЬНЫХ ПРОЦЕССОВ

СИСПОЛЬЗОВАНИЕМ ОПЕРАТОРОВ УСЛОВНОГО

ИБЕЗУСЛОВНОГО ПЕРЕХОДОВ И ЛОГИЧЕСКИХ ВЫРАЖЕНИЙ ОБЩЕГО ВИДА

Условные операторы

Условные операторы обеспечивают выполнение или невыполнение некоторого оператора, групп операторов или блока в зависимости от заданных условий. Паскаль допускает использование двух условных операторов: if и case.

Оператор условия if является одним из самых популярных средств, изменяющих естественный порядок выполнения операторов программы. Он может принимать одну из следующих форм:

1.if <условие> then <оператор 1 > else <оператор 2>;

2.if < условие> then <оператор >;

12

Оператор выбора case является обобщением оператора if и позволяет сделать выбор из произвольного числа изменяющихся вариантов. Он состоит из выражения, называемого селектором, и альтернативных операторов, каждому из которых предшествует список констант выбора. Как и в операторе if, здесь может присутствовать слово else, имеющее тот же смысл.

Общий вид

case <выражение селектор> of

<список констант выбора 1> : <оператор 1; > <список констант выбора 2> : <оператор 2; >

. . . . . . . . . . . . . . . . . . . . . . . . . . . . .

<список констант выбора N> : <оператор N > else <оператор>

end;

Логические операции

Операция

Название

Пример

 

 

 

 

Not

(¬)

Логическое отрицание

Not A

And

(

Логическое И

A And В

Or

( )

Логическое ИЛИ

A Or В

Xоr

(+)

Исключающее ИЛИ

А Xоr В

And производит логическое умножение в соответствии со следующей таблицей истинности:

1 and 1 = 1

0 and 1 = 0

1 and 0 = 0

0 and 0 = 0

Or выполняет сложение операндов в двоичной форме в соответствии с таблицей истинности:

1 or 1 = 1

0 or 1 = 1

1 or 0 = 1

0 or 0 = 0

13

Xor производит сложение операндов в соответствии с таблицей истинности:

1 xor 1 = 0

0 xor 1 = 1

1 xor 0 = 1

0 xor 0 = 0

За д а н и е 3.1

1.Составить схему алгоритма и программу, используя, оператор условного перехода IF.

2.Вывести листинг программы, распечатки исходных данных и результатов расчета на экран видеотерминала и на принтер. Функции для вычисления приведены в табл. 3.1.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Таблица 3.1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вари-

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Функция

Исходные

ант

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

данные

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

sin2x,

если a < x;

 

 

 

 

 

 

a x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

–2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

3

 

 

 

 

 

a =2,37·10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1

Y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sinx

,

если a = x;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a + x

 

 

 

 

 

 

 

 

 

 

x =0,927

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

если a > x

 

 

 

 

 

 

 

,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ax +0,23x2log2a,

если a < x;

 

 

 

 

 

 

 

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

xe

 

 

 

 

 

 

 

 

 

a =0,462·10

–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

Y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

cosx

,

если a = x;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a + x

 

 

 

 

 

 

 

 

 

 

x =0,86

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x tga,

 

 

 

 

 

 

 

 

 

если a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

14

 

(a2 + x2 ) ex ,

 

 

 

если a < x;

 

-2

 

 

 

 

 

 

 

sin4x,

 

 

 

 

a =0,357·10

3

 

 

a

 

 

 

 

если a = x;

 

 

 

 

 

Y =

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x =0,983

 

 

 

 

(a x) cos x2

/ a

 

,

если a > x

 

 

ln

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

1

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln

 

a + x

 

 

cos

x3

,

 

 

 

если a < x;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

а = 0,148 102

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1,2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4

Y =

 

 

 

 

 

 

 

 

a + x

 

,

 

 

 

 

 

 

если a = x;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

х = 0,573

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

 

a + x

 

 

 

 

,

 

 

 

 

 

 

 

 

 

 

если a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(a x)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a2 +

 

 

a2 + x sin x

 

 

, если a < x;

a = 0,637

 

 

 

 

 

5

Y =

2x2 + a3 tgx,

 

 

 

если a = x;

 

 

 

x = 0,234 102

 

 

x

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

если a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

0.2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+

 

 

 

 

 

 

 

a + x,

если a < x;

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a = 0,725·10–1

 

Y =

(a + x) 3

 

 

 

 

 

 

если a = x;

6

 

 

sinx

 

,

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x = 0.56

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a + x

 

,

если a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

15

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x+a

 

 

 

 

 

4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2,75e

 

 

 

+cos

 

x,

 

 

(x +a) tgx

 

 

 

 

 

 

7

Y =

 

 

 

 

 

 

 

,

 

 

 

 

 

 

 

lg

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ax

 

a sin2 x

 

 

 

 

 

 

 

 

 

 

 

e

 

+

3

 

 

 

 

 

,

 

 

 

 

cos

2

x

 

 

 

 

 

 

 

 

 

 

 

 

 

если

a < x;

 

если

a = x;

a = 0,567·10–1

 

 

x = 0,37

если

a > x

 

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

1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

3

 

0,15

+

(a + x)2

x

,

 

 

если

a < x;

 

 

e

 

 

 

 

 

lnx

 

 

 

 

 

 

 

e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

8

Y = (x2 a2x)tgx,

 

 

 

 

если

a = x;

a = 0,832·10–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x = 0,64

 

 

 

 

 

 

 

 

 

 

a+x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(a + x) e

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

 

 

 

 

если

a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin

3

 

+

 

cos

3

a

 

,

 

 

 

 

если a < x;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

bx

 

 

 

 

 

 

 

 

 

a = 0,354·10–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

9

Y = tg(ax)+ln

 

b

 

,

 

 

 

 

 

 

 

 

 

 

 

 

если a = x;

x = 0,56

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ax +b

 

ln

 

(a b)3

 

,

если a > x

b = 2,44

 

 

 

 

 

 

 

ln

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

+cos(3bx 0,2),

 

 

 

 

aex

если a < x;

a = 0,475·10–1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3 ),

 

 

 

 

 

 

10

Y = b cos(a3

 

x

 

 

 

 

 

если a = x;

x = 3,76

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x 5

 

 

 

 

 

 

b = 1,23

 

tg4,5x +

 

 

 

 

 

 

 

 

,

 

 

если a > x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin(a +b)

 

 

 

 

 

 

16

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