Учебное пособие 989

program prin;

var x, x1, y1, y : real; begin

writeln (‘ введите x: ‘); readln (x);

y:= exp((-x + 1) * ln(3)) * sin (x); writeln (‘ при х=’,x:8:3, ‘ y=’, y:8:4);

writeln (‘ y11=’, trunc (y) : 4, ‘ y22=’, round (y) : 4); writeln (‘ введите координаты: x1, y1’);

readln (x1, y1);

writeln ((x1 >=0) and (y1 >=0) and (sqr(x) + sqr(y) <=1)); writeln (‘ ‘:10, ‘ программу составил Петров И.Н.’)

end.

Протокол работы программы:

введите х: - 1.5

при х = -1.500 y = -15.5494 y11 = -15 y22 = -16

введите координаты: x1, y1 0.5 1.2

false

программу составил Петров И.Н.

Варианты заданий:

1. а) y = 2 x x 4| x| при х = 4.145

б) координаты исследуемой точки: (0.6; 0.8). Область изображена на рис. 2.

y

1

x

Рис. 2 2. а) y = 3ex sin x при х = 3.247

19

б) координаты исследуемой точки: (1.6; 0.6) Область изображена на рис. 3.

y

-2

x 0

-1

Рис. 3

3. а) y = 3| x2 1| sin x при х = 8.43109

б) координаты исследуемой точки: (0.4; 0.8) Область изображена на рис. 4.

б) координаты исследуемой точки: (0.75; -0.5) Область изображена на рис. 5.

1 y

x

-1

1

-1

Рис. 5

5. а) y =tg2x | x | при х = -6.2312

б) координаты исследуемой точки: (0.3, 0.48) Область изображена на рис. 6.

20

1 y

x

-1

Рис. 9

9. а) y = sin (arctgx)+1 х2 при х = -0.7129;

б) координаты исследуемой точки: (-0.5, 0.9) Область изображена на рис. 10.

y

1

10. а) y = 5arctg(x2 1)при x = -2.1941

б) координаты исследуемой точки: (1.5, 0.021). Область изображена на рис. 11.

б) координаты исследуемой точки: (-0.4, -0.91). Область изображена на рис. 12.

22

y

1

-1

0

б) координаты исследуемой точки: (-0.9, -0.6). Область изображена на рис. 13.

y

1

х

-1

1

б) координаты исследуемой точки: (-0.4, -0.51). Область изображена на рис. 14.

x

-1

Рис. 14

14. а) y = esinx |cos6x | при х = 0.212

б) координаты исследуемой точки: (0.65, -0.7812).

23

Область изображена на рис. 15.

1 y

х

-1

Рис. 15

3.СТРУКТУРНЫЕ ОПЕРАТОРЫ

Кструктурным (сложным) операторам относятся составной оператор, условные операторы, выбора, цикла, так как представляют собой конструкции, включающие в себя другие операторы.

3.1. Составной оператор

Представляет собой группу из произвольного числа операторов, отделённых друг от друга точкой с запятой, заключенных в так называемые операторные скобки BEGIN и END.

Формат оператора: begin

<оператор 1>;

. . . . . . . . . .

< оператор n> end;

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

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

Используются для организации разветвляющихся вычислений и обеспечивают выполнение или невыполнение некоторого оператора (который может быть и составным) в зависимости от заданных условий.

24

Оператор IF может принимать одну из следующих форм: 1)IF <условие > THEN <оператор 1>

ELSE <оператор 2>; (альтернатива) ;

2) IF <условие > THEN <оператор>; (безальтернативная форма). Условие – это выражение логического типа, оно может быть простым или сложным; оператор 1, оператор 2 – любые операторы языка Паскаль, в том числе составные. При записи простых условий могут использоваться все возможные операции отношения. Сложные условия образуются с помощью логических операций AND, OR,

NOT.

Для условного оператора первого вида, если условие принимает значение TRUE, выполняется оператор 1, а оператор 2 игнорируется. Если же условие имеет значение FALSE, то оператор 1 игнорируется и выполняется оператор 2.

Для оператора второго вида при истинности условия выполняется оператор, стоящий после THEN, а в противном случае выполняется следующий оператор программы.

Поскольку любой из операторов 1 или 2 также может быть условным, а в то же время не каждый из условных операторов может иметь ветвь ELSE, то возникает неоднозначность трактовки условий. Поэтому по соглашению, принятому в ТП, часть ELSE всегда соответствует ближайшему к ней сверху оператору IF , не имеющему вет-

ви ELSE.

Конструкций со степенью вложенности более трёх из-за сложности их анализа и отладки следует избегать.

Контрольные вопросы и упражнения

1.Какие из приведенных ниже операторов являются неправильными и почему?

а) if a<b then a:=a * a else b:=b * b

б) if x and y then s:=s + 1; else s:=s – 1; в) if k <> m then k:=m;

г) if 5 then s:=s + 5;

д) 12: if (a < b) or c then c:= false; е) if (a – b) and p then p:=p + 10.5;

2.Если а = 0.5, b = -1.7, то какие значения будут иметь переменные a и b в результате выполнения условного оператора:

If a < b then a:=b else b:=a;

25

3.Какая задача решается при выполнении оператора: if x < y then max:= y else max:=x;

4.Задать с помощью условного оператора следующие действия: а) меньшее из двух значений переменных вещественного типа x

иy заменить нулем, а в случае их равенства – заменить нулями оба значения;

б) наибольшее из трех различных значений переменных целого типа x, y, z уменьшить на 2.

5.Поменять местами значения целых переменных a, b, c, чтобы оказалось a ≥ b ≥ c.

6.Булевской переменной b присвоить значение true, если значения переменных х и y равны, и значение false в противном случае.

7.Составить блок–схему и написать программу для вычисления функции:

26

27

3.3. Оператор выбора

Оператор выбора CASE является обобщением оператора IF для произвольного числа разветвлений. Обеспечивает организацию вычислений путём выбора одного из нескольких операторов. Он состоит из выражения, называемого селектором, и списка операторов, каждому из которых предшествует список констант выбора (список может состоять и из одной константы). Как и в операторе IF здесь может присутствовать слово ELSE, имеющее тот же смысл.

Формат: CASE < выражение – селектор > OF

<список 1> : < оператор 1 > ;

<список 2> : < оператор 2 > ;

……………..…………………

<список N> : <оператор N >

ELSE < оператор > END;

При прочтении данного оператора ЭВМ вычисляет значение выражения – селектора, затем переходит к выполнению того оператора, которому предшествует константа выбора, равная значению селектора. Если ни одна из констант не равна текущему значению селектора, выполняется оператор, стоящий за ELSE. Если вновь ELSE отсутствует, то управление передаётся оператору, находящемуся за словом END, то есть первому оператору за границей блока CASE.

При использовании оператора выбора CASE должны выпол-

28