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

КОНЕЦ

Вход в процедуру

y:=0

i=i(1)…n

y:= y*x

Выход из процедуры

с переменной (y)

Рис. 4.2.7. Структурная схема процедуры.

Данным структурным схемам алгоритма соответствует следующий вариант программы:

Program_step4;

Var

m:integer; a, z,:real;

Procedure_step1 (n:integer; x:real; var y:real); Var

i:integer; Begin

y:=1; for_I:=1_to_n_do y:=y*x;

end;

Begin

Read (a, m);

if_m:=0_then_z:=1; else_if_m>0_then_step1 (m, a, z);

else_step1 (-m, 1a , z);

Write (z); End.

В данной программе обращение к процедуре step1 дважды осуществлено с помощью оператора if.

При этом, в процедуре произойдет замена формальных параметров n, x, y на фактические m, a, z. В

другом случае - n, x, y на m, 1a , z и затем в головную программу осуществляется возврат и процедуры с результатом z, который в процедуре выступает как y.

Составить второй вариант программы, используя процедуру step2 без параметров (глобальные параметры или переменные).

Program_step5;

Var

n:integer;

x,y:real;

Procedure_step2; Var

i:integer; Begin

y:=1; for_i:=1_to_n_do y:=y*x;

end;

Begin Read(n, x);

if_n:=0_then_y:=1 else if_n>0_then_step2 else;

Begin

n=-n;

x:= 1x ; step2;

End; Write (y); End.

В данном варианте программы оператор вызова процедуры осуществляет только ее вызов. Исходные данные передаются в процедуру каждый раз с помощью переменных n и x, описанных и определенных в теле

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

В связи с выше изложенным уместно сделать некоторые дополнительные разъяснения.

Дело в том, что понятия глобальных и локальных переменных введено в языке PASCAL из-за наличия в нем понятия блочной структуры, т.е. любая программа, процедура и функция представляют собой блок со своей областью описаний и могут содержать внутри этого блока описания других процедур и функций, а также обращения к ним. Таким образом, программа в целом и совокупность нескольких описанных в ней процедур и функций образуют блочную структуру. Блок, содержащий в своем разделе описаний другой блок (процедуру или функцию), называется внешним по отношению к нему. Блок же, содержащийся в разделе описаний некоторого блока, называется внутренним или

подблоком.

Объекты, описанные внутри какого-либо подблока, являются по отношению к нему локальными

инедоступными внешним блокам, т.е. на них можно ссылаться только внутри блока, в котором они описаны.

Для пояснения сказанного приведем следующий рис., на котором изображена абстрактная структура какой-то усложненной программы, состоящей из трех блоков.

Из такой структуры следует, что переменные i, j

иk являются локальными по отношению к блоку 3 и недоступны в

блоках 1 и 2. Переменные x, y, z доступны в блоках 2, 3

инедоступны в блоке 1, т.к. по отношению к блоку 3

Х

20

Вывод х,у

Конец

Рис.4.2.2. Структурная схема алгоритма табулирования разрывной функции.

Один из вариантов программы (согласно структурной схеме рис.4.2.2.) может выглядеть:

Program_funс; Const

а=3.7e-1; b=0.15; с=1.2; d=0.2e-2;

Var

x: integer; y:real;

Begin

read(x); If_x<7_then_y:=a x_else

If_x<=12_then_y:=b sqr(x)_ else If_x<=15_then_y:=c exp(3 ln(x))_ else If_x<=20_then_y:=d exp(3 ln(x))_ else;

Writeln (´x=´, x:2, ´y=´, y);

End.

ОПЕРАТОР ВАРИАНТА CASE

Данный оператор относится к группе переходных операторов (if, goto). Дело в том, что часто вместо оператора if удобно использовать оператор варианта или выбора, который в общем виде можно представить (неполная форма):

Case (селектор) of

Метка 1: оператор 1 ; Метка 2 : оператор 2 ;

.

.

.

Метка n : оператор n ;

End;

Здесь:

Case – выбор ;

Of – из ;

End – конец оператора case.

(Поэтому в программе с использованием case, на один оператор end, будет больше);

(селектор) - математическое выражение целого типа, либо переменная целого типа.

Метка – целое число, стоящее перед оператором и отделѐнное от него двоеточием.

т.е метки – целые числа, значения которых принимают селекторы.

Таким образом, до выполнения CASE селектор должен иметь какое-то целое число и тогда компьютер переходит к выполнению оператора, числовое значение метки которого совпадает с числовым значение селектора.

Рассмотрим конкретную программу для вычисления одной из площадей различных геометрических фигур по выбору:

Значение селектора n необходимо вводить вручную (с клавиатуры) с помощью оператора READ.

Вариант программы следующий:

Program_geom; Label

1,2,3,4,5; Const

a=3.2; b=7.8e-1; h=2.4; f=27.4; r=4.2;

Var

S: real;

n: integer; Begin

Read (n);

Case_n_of 1:S:=a*b; 2:S:=a*h/2;

3:S:=h*a*b/2; Оператор выбора

4:S:=pi*r*r;

5:S:=pi*(r*r)*f/360;

end;

Write (‗S=‘,S);

End.

В данной программе при реализации необходимо с клавиатуры ввести одну из цифр от 1 до 5.

Если набрана цифра больше 5, то компьютер выходит из программы без выдачи результатов и сообщения об ошибках.