![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
VAR
N: Integer;
BEGIN
...
REPEAT
Write(‘Введите целое число от 0 до 10: ’);
ReadLn(N);
UNTIL (N>=0) and (N<=10);
...
END.
В этом примере программа будет запрашивать ввод числа до тех пор, пока пользователь не введет “правильное” число.
Пример 2. “Вечный цикл”
REPEAT UNTIL False;
Этот цикл пустой и никогда не прекращающийся. Он хорош только в том случае, когда нужно заблокировать программу, и, возможно весь компьютер. (Но если отбросить шутки, то можно и его пристроить в дело. Обычно так организуют программы с повторяющимися действиями: вначале программы ставят REPEAT, а в конце – UNTIL False. А прервать цикл можно специальными операторами EXIT и HALT). Это имеет смысл, если условий завершения программы много или они очень сложны.)
17)Одномерные массивы (описание, ввод –вывод, доступ к элементам массива).
Массив – однородная совокупность элементов
Описание массива в Паскале. В языке Паскаль тип массива задается с использованием специального слова array (англ. – массив), и его объявление в программе выглядит следующим образом:
Type < имя _ типа >= array [ I ] of T;
где I – тип индекса массива, T – тип его элементов.
Можно описывать сразу переменные типа массив, т.е. в разделе описания переменных:
Var a,b: array [ I ] of T;
Обычно тип индекса характеризуется некоторым диапазоном значений любого порядкового типа: I 1.. I n. Например, индексы могут изменяться в диапазоне 1..20 или ‘ a ’..’ n ’.
При этом длину массива Паскаля характеризует выражение:
ord (I n)- ord (I 1)+1.
Вот, например, объявление двух типов: vector в виде массива Паскаля из 10 целых чисел и stroka в виде массива из 256 символов:
Type
Vector=array [1..10] of integer;
Stroka=array [0..255] of char;
С помощью индекса массива можно обращаться к отдельным элементам любого массива, как к обычной переменной: можно получать значение этого элемента, отдельно присваивать ему значение, использовать его в выражениях.
Опишем переменные типа vector и stroka:
Var a: vector;
c: stroka;
Дата публикования: 2015-02-03; Прочитано: 151 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!