Материал: Алгоритмический язык Turbo Pascal 7.0. Юршин Е.Д., Рог А.И

begin Vowels:=['A','a','E','I','i','O','o','U','u']

;

Uppercase:=['A'..'Z'];

LowerCase:=['a'..'z']; Repeat

write('Введите букву '); readln(NextChar);

if NextChar in Vowels then writeln('Содержит гласную ',NextChar)

else if NextChar in Uppercase then writeln('Содержит прописную

согласную ',NextChar) else

if NextChar in LowerCase then writeln('Содержит строчную

согласную ',NextChar) else

writeln('Содержит не букву

',NextChar);

Until NextChar in ['A'..'Z','a'..'z']; end.

Здесь цикл ( Repeat – Untie) выполняется до тех пор, пока значение переменной NextChar является буквой. В самом теле цикла оператор if с помощью оператора Writeln выводит сообщение о содержимом NextChar (в зависимости от этого содержимого).

Пример 2. Для заданного множества (BEGINSET), состоящего из 256 целых чисел (цифр) в диапазон от 255, выделить все простые числа, из которых нужно сформировать новое множество PRIMERSET, вывести на печать.

В основе поиска (выделения) простых чисел лежит метод, называемый «решето аратосфера», который заключается в следующем: из ряда натуральных чисел от 2 до N вычеркивают (удаляют) сначала числа делящиеся на 2, потом удаляют числа, делящиеся на 3, на 5 и т. д. Оставшиеся числа являются простыми.

Заметим, что признаком окончанием программы (цикла) является получение пустого множества BEGINSET, из которого в цикле удаляются элементы делящиеся на 2, 3, 5 и т.д.

Вариант программы следующий:

Program Primer; const N=225;

type SetofNumber=set of 1..N; var n1,Next,i:word;

BeginSet,PrinterSet:SetofNumber; Begin

BeginSet:=[2..N];

PrinterSet:=[1];

next:=2;

while BeginSet<>[] do Begin

n1:=next; while n1<=N do

Begin Exclude(BeginSet,n1); n1:=n1+next;

end;

Include(PrinterSet,next); Repeat

inc(next);

until (next in BeginSet) or

(next>N);

end;

for i:=1 to N do

if i in PrinterSet then Write(i:8); Writeln;

end.

В данной программе имеется внешний цикл While-do и два последовательных внутренних цикла: Whiledo и Repeat-Untie.

Здесь перед началом внешнего цикла положено PrinterSet;=1, т.к. заранее известно, что 1 – простое число. Затем, до начала внешнего цикла обозначено NEXT := 2, что означает: при первой реализации первого внутреннего цикла (While-do) осуществляется удаление чисел из исходного массива кратным

2.

После такого удаления, переход на второй внутренний цикл (repeat-untie), где осуществляется наращивание кратности до 3-

х, после этого на внешнем цикле осуществляется присвоение данной кратности переменной n1 (n1:=next) и затем на первом внутреннем цикле удаляются числа кратные 3-м и т.д. В конце программы приведен цикл for-to-do, в котором параметр цикла I последовательно принимает значение от 1 до N = 255. В поле

цикла осуществляет проверка: принадлежит ли величина I массиву PrimerSet, если да, то оно выводится на печать. При этом, каждой величине при печати отводится восемь позиций.

Файлы.

Все вышеприведѐнные программы представляют собой интерактивные программы. Такая программа считывает все

входные ( исходные ) данные с клавиатуры, а весь вывод осуществляет на экран дисплея.

Интерактивный ввод и вывод хороши для программ, манипулирующих небольшими количествами данных, однако подобный подход мало эффективен для программ, предназначенных для обработки обширных объемов информации. В последнем случае, чтобы выйти из положения, можно для ввода и вывода использовать файлы. Turbo Pascal работает с двумя видами файлов: текстовыми и двоичными файлами. В данном пособии будут рассмотрены только текстовые файлы.

Процедура ввода и вывода, которые были использованны для интерактивных программ, находят также и

для текстовых файлов.

Под файлом понимается либо именованная область внешней памяти компьютера (жесткого диска, гибкой

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

При этом файл должен:

-иметь имя, что даѐт возможность программе работать одновременно с несколькими файлами;

-содержать компоненты одного типа ( типом компонентов может быть любой тип языка, кроме

файлов); При этом длина создаваемого файла не объявляется и

ограничивается только ѐмкостью устройств внешней памяти.

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

После создания файла необходимо преобразовать программу таким образом, чтобы она считывала нужные ей данные не с клавиатуры, а из текстового файла.

Заметим, что преимущество использования входного файла заключается в том, что с применением какого-либо редактора

текстов в нем можно исправить все ошибки, добавить или убрать отдельные данные и т.д. - прежде чем эти данные будут подвергнуты обработке программой. Второе преимущество состоит в том, что файл с входной информацией может считываться программой много раз. Эта возможность облегчает отладку, поскольку программа при каждом запуске можно считывать свой данные каждый раз из того же файла. А в интерактивной программе пришлось бы каждый раз заново вводить с клавиатуры каждый элемент (символ) данных ( при каждом запуске программы).

Можно так же преобразовать программу таким образом, чтобы вычисленные результаты она выводила не на экране

дисплея, а в текстовый файл; это позволит программисту иметь на диске постоянную версию (вариант) результатов работы программы. Этот файл на диске затем может быть выведен на печать (принтер), либо использован в качестве входного файла другой программой.