2361
.pdfСледует отметить, что данная программа реализована по неполной форме оператора CASE. Кроме того, отметим, что метка варианта – это необычная метка, так как она может принимать не только целочисленные значения, а принимать значения идентификатора, а следовательно и может отсутствовать описатель label.
Следует иметь ввиду, что существует так называемая полная форма описателя CASE.
CASE (селектор или ключ выбора) OF (список выбора)
ELSE (операторы) END;
Вышеприведѐнную программу можно реализовать по данной полной форме. Для этого сразу после END для CASE необходимо добавить следующее (в общем виде):
Else Begin
Written (‗набери селектор правильно‘);
Goto_6; End;
Таким образом, во втором варианте программы будет для оператора CASE два оператора END, стоящие рядом, не считая конца оператора.
Отметим, что в данном варианте программы присутствует так называемый оператор безусловного перехода GOTO, относящиеся к группе операторов перехода, которых три (IF, CASE, GOTO).
Поэтому и возникает необходимость более подробно рассмотреть оператор GOTO.
ОПЕРАТОР БЕЗУСЛОВНОГО ПЕРЕХОДА GOTO
Отметим, что данный оператор крайне редко используется в программах на PASCAL, обычно он в программе функционирует с оператором if, но если в программе есть оператор выбора case по полной форме, то без него не обойтись.
В общем виде данный оператор можно представить.
GOTO _ N;
Где n – метка какого – либо оператора (целое число). Поэтому в вышеприведѐнной программе второго варианта по полной форме оператор CASE необходимо добавить в описатель LABEL цифру 6.
Реализуя GOTO 6 компьютер отыскивает в программе оператор, помеченный меткой 6 (в данном случае это оператор READ), пропуская все остальные операторы, и начинает реализацию программы.
Рассмотрим вариант программы с оператором CASE, оформленный по полной форме:
Program_geom; Label
1,2,3,4,5,6; Const
a=3.2; b=7.8e-1; h=2.4; f=27.4; r=4.2;
Var
S: read; N: integer;
Begin
6: 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;
else; Begin
Written (‗Введите правильно число‘);
Goto 6; End; End; Write (S); End.
Рассмотрим другие программы с использованием операторов IF и CASE.
Следующая программа демонстрирует вышеизложенный постулат о том, что несмотря на то, что в тексте программы литеры типа Char заключен в апострофы, то при вводе его с помощью read, он будет без апострофа (раздел 4.2.1.):
Program_ozencal; Vaz
uroc1: Char; Begin
Read (uroc1);
Case _uroc1_of
‗a‘:Writeln(‗отлично‘); ‗b‘:Writeln(‗хорошо‘); ‗c‘:Writeln ‗удовлетворительно‘);
‗d‘:Writeln(‗неудовлетворительно‘); end.
Проиллюстрируем вышеприведенные ограничения на примере того, что символьные данные можно только сравнивать (раздел 4.2.1.)
Program_ozenca2;
Vaz
Uroc2:Char;
Begin
Read (uroc2);
If(uroc2>=‘a‘) and (uroc2<=‘c‘)_then
Writeln(‗удовлитворительно‘)
Else_if_(uroc2=‘d‘)_oz__(uroc2=‘f‘)_then
Writeln(‗неудовлитворительно‘)
End.
ОПЕРАТОРЫ ЦИКЛА
На языке PASCAL существует три типа оператора цикла, различающиеся в основном заданным количеством циклов и заранее неизвестным количеством циклов. Рассмотрим их последовательно.
ОПЕРАТОР FOR-TO-DO
Данный оператор применим тогда, когда заранее известно количество циклов. В общем виде такой оператор можно представить:
FOR_(переменная:)=(начальное значение)_TO_(конечное значение)_DO_(какой-либо оператор)
Здесь: FOR – для; TO – до; DO – выполнить;
а значением может быть: математическое выражение целого типа, целое число или переменная целого типа.
Перевести данный оператор на русский язык можно так: для (for) какой-либо переменной в цикле
необходимо изменять свое значение от начального до (to) конечного значения, выполняя (do) при этом многократно (в цикле) какой-либо оператор.
Таким образом, в цикле (как видно из общей схемы оператора) переменная на каждом цикле получает свое новое значение, и каждое из этих числовых значений подставляется каждый раз в оператор после слова DO.
Обычно в этом операторе начальное значение меньше конечного. В этом случае переменная от своего начального до конечного значения «шагает» с шагом равным 1.
Следует отметить, что переменную в этом операторе иногда называют параметром цикла. После ключевого слова DO следует только один оператор. Если их должно быть несколько, то их необходимо заключить в операторные скобки BEGIN – END. Если операторов несколько, а операторные скобки отсутствуют, то выполнится только первый оператор в цикле, а остальные операторы будут пропущены, и все остальные будут выполнены при выходе из цикла.
В том случае, когда в этом операторе начальное значение должно быть больше конечного, т.е. переменная уменьшается с шагом 1, то вместо слова TO в данном операторе должно быть слово DOWNTO.
Рассмотрим конкретные примеры: Задача 1.
Пусть требуется составить программу для табулирования следующей функции в цикле.
y ax2 bx c ,
где а=0,1, b=3.7,
c 1,2 *10 1
Предельная изменения аргумента:
1 x 20,
Шаг изменения аргумента: x =1.
Вариант программы может быть следующим:
Program_tab;
Var
y, a, b, c: real; x: integer;
Begin a:=0.1;
b:=3.7; c:=1.2e-1;
For_x:=1_to_20_do Begin
y:=a*sqr(x)+b*x+c;
Writeln (‗x=‘, x, ‗y=‘,
y);
End;
End.
Аналогично осуществляется цикличная процедура табулирования для разрывных функций. В этом случае после слова do в операторных скобках должен стоять оператор if-then-else…, а после оператора if, перед end, должен стоять writeln.
Рассмотрим другой пример на применение оператора цикла:
Задача 2.
Составить программу для вычисления в цикле следующего выражения:
|
5 |
S |
ai bi a1b1 a2b2 .. |
|
i 1 |
где a1 |
1 |
|
b1 |
1 |
|
||||
a2 |
2 |
|
b2 |
2 |
. |
|
|
. |
|
. |
|
|
. |
|
. |
|
|
. |
|
a5 |
5 |
|
b5 |
5 |
Таким образом, здесь заданы два массива a и b размерностью, равной 5. Их необходимо математически обработать с помощью программы:
Program_sum; |
|
|
|
|
|
||||||||
Var |
|
|
|
|
|
||||||||
i:integer; |
|
|
|
|
|
||||||||
а, b: array 1..5 _of_integer; |
|
|
|
|
|
||||||||
Begin |
|
|
|
|
|
||||||||
|
|
|
For_i:=1_to_5_do |
|
1-ый цикл |
||||||||
|
|
|
Read (a i , b i ); |
|
|
|
|
|
|
||||
|
|
|
|
|
|
|
|
||||||
|
|
|
S:=0; |
|
|
|
|
|
|||||
цикл |
|
|
For i:=1_to_5_do |
|
|
2-ой |
|||||||
|
|
|
|
||||||||||
|
|
|
); |
|
|
|
|
||||||
|
|
|
|
|
|||||||||
|
|
|
|
|
|
|
S:=s+ a i b i |
|
|
|
|
||
|
|
|
|
|
|
|
|
|
|
||||
|
|
|
Write (´s=´, s); |
|
|
|
|
|
|||||
End. |
|
|
|
|
|
Следует отметить, что в предыдущей программе в качестве параметра цикла выступала простая переменная x. В данной программе в качестве параметра цикла выступает индекс i массивов a и b.
Задача 3.
Составить программу для ввода и вывода на печать (на экран дисплея) элементов двумерной матрицы А(5,5):
|
|
1 |
2 |
3 |
4 |
5 |
|
|
0 |
0 |
0 |
0 |
0 |
A |
|
1 |
1 |
1 |
1 |
1 |
|
|
3 |
3 |
3 |
3 |
3 |
|
|
1 |
2 |
3 |
4 |
5 |
Примем |
aij |
|
|
a[i,j] |
|
Вариант программы: Program_matr;
Var
i, j: integer;
a: array [1..5, 1..5]_of_integer;
Begin
for_i:=1_to_5_do for_j:=1_to_5_do_read (a[i,j]); for_i:=1_to_5_do
begin for_j:=1_to_5_do write (a[i,j]:3); writeln;
end;
End.
В этой программе имеют место два вложенных друг в друга цикла.
Первый вложенный цикл осуществляет построчный ввод элементов матрицы А. Так как матрица двумерная, то и циклы должны быть двух вложений. При этом внешний цикл (верхний for) действует медленнее, чем внутренний (нижний for), т.е. при одном каком-то i, j изменяется от 1 до 5, тогда
осуществляется переход на внешний цикл, где i меняется на 1.
Во втором вложенном цикле осуществляется построчно вывод элементов матриц.
Здесь вложенные скобки begin-end ставятся потому, что во внутреннем цикле имеются два оператора.
Пустой оператор writeln предназначен для того, чтобы осуществить переход печати строки с первой позиции экрана, т.е. для того, чтобы вторая строка была под первой. Внутренний цикл осуществляет печать в строку, writeln осуществляет переход курсора в начало строки.
Следует отметить, что writeln реализуется только при переходе на внешний цикл.
Последнюю программу возьмем за основу и приведѐм ряд программ для обработки элементов двумерного массива согласно приведѐнным алгоритмам (заданиям).
Задача 4.
Пусть задан двумерный массив, размерностью 5 5. Требуется составить программу для вывода на экран монитора элементов главной диагонали матрицы при введенных 25 элементах.
Program_matr; Var
i, j: integer
a: array [1, 5, 1…5]_of_integer;
Begin
for_i: 1_to_5_do
for_j: 1_10_5_do_read a[i, j];
for_i:=1_to_5_do
Begin
for_j:=1 to 5 do
if i:=j then_write (a[i, j]:3)_else_write (´_´);
Writeln;
End;
End.
Здесь признаком того, что элемент находящегося
aij
на главной диагонали матрицы является равенство i=j.
Задача 5.
Составить программу для нахождения элемента вышеприведенной матрицы, находящегося на пересечении второй строки и третьего столбца (результат вывести на экран дисплея).
Program_matr; Var i, j: integer;
a: array [1..5, 1…5]_of_integer;
Begin
for_i:=1_to_5_do; for_j:=1_to_5_do_read a[i, j]; for_i:=1_to_5_do;
Begin
for_j:=1_to_5_do;
if i=2 then if j=3 then_write (a[i,j]); writeln;
end;
End.
Здесь вместо двойного оператора if можно воспользоваться таким оператором:
if (i=2) and (j=3) then write(a[I,j]);