Pascal Next – руководство программиста. Описание языка программирования с примерами

repeat
// здесь инструкции, которые будут выполняться до тех пор,
// пока условие ложно
untilусловие;

Где:

условие – простое или сложное условие завершения цикла (прекращения выполнения инструкций, находящихся между словами repeat и until).

Пример:

i:= 1;
repeat
writeln (i:2, ?  Hello, World!?);
i:= i +1;
until i> 10;

Инструкция Goto

Инструкция goto (безусловный переход) в общем виде записывается так:

gotoметка;

Где:

метка – идентификатор инструкции, к которой необходимо выполнить переход.

Метка представляет собой любую начинающуюся буквой и состоящую из букв и цифр строку.

Метка записывается перед инструкцией, к которой надо выполнить переход, и отделяется от этой инструкции двоеточием.

Метка должна быть объявлена в разделе объявления меток в той процедуре или функции, в которой она используется. Начало раздела объявления меток помечает ключевое слово label.

Раздел объявления меток предшествует разделу объявления констант или, если раздел const отсутствует, разделу объявления переменных.

Пример:

// вычисление наибольшего общего делителя (НОД)
// двух целых положительных чисел
program p1 ()
label   // раздел объявления меток
m1,m2; // метки
var
a,b: integer; // числа
n: integer; // НОД
begin
a:=12;
b:=18;
writeln (? a=?,a:2,?  b=?,b:2);
m1: if a = b then
n:=a;
goto m2;
end;
if a> b then
a:= a-b;
goto m1;
else
b:= b-a;
goto m1;
end;
m2: writeln (? Наибольший общий делитель:?, n);

write (? Press <Enter> ?);
readln;
end.

Массивы

Одномерный массив

Объявление одномерного массива в общем виде выглядит так:

имя: array [1..HB] of тип;

где:

имя – имя массива

HB – верхняя граница диапазона индекса массива (количество элементов массива)

тип – тип элементов массива (тип массива)

Внимание! Максимальное допустимое количество элементов одномерного массива 255

Примеры:

Salary: array [1..15] of float; // массив вещественных чисел
nPacients: array [1..31] of integer; // массив целых чисел
Students: array [1..25] of strings [15]; // массив строк

Допускается одной инструкцией объявить несколько массивов одинакового типа и размера, например:

// три массива целых чисел
gold, silver, bronze: array [1..10] of integer;

// два массива строк
students_1, students_2: array [1.. 30] of string [25];

При объявлении одномерного массива в качестве верхней границы диапазона индекса можно использовать целую именованную константу. Например, если в разделе const объявлены целые именованные константы HB и NL, то объявление массива students может быть таким: