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

Отметим, что данный оператор крайне редко используется в программах на 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) какой-либо переменной в цикле

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.

Составить программу для вычисления в цикле следующего выражения:

Таким образом, здесь заданы два массива a и b размерностью, равной 5. Их необходимо математически обработать с помощью программы:

Следует отметить, что в предыдущей программе в качестве параметра цикла выступала простая переменная x. В данной программе в качестве параметра цикла выступает индекс i массивов a и b.

Задача 3.

Составить программу для ввода и вывода на печать (на экран дисплея) элементов двумерной матрицы А(5,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 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]);