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 может быть таким:
Students: array [1..HB] of strings [NL];
Именованные константы, использованные в инструкции объявления массива, удобно использовать в инструкциях его обработки.
Пример:
for i:=1 to HB do
writeln (Students [i]);
end;
Внимание! При работе с большим количеством массивов или с массивами большой размерности следует учитывать, что суммарный размер данных (памяти, занимаемой переменными программы, в том числе и массивами) и кода программы не может превышать 64K.
Двумерный массив
Объявление двумерного массива в общем виде выглядит так:
Конец ознакомительного фрагмента.
Текст предоставлен ООО «ЛитРес».
Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.
Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.
