- •1. Этапы подготовки задач для решения на пэвм
- •Программное обеспечение эвм
- •2.1.Алгоритмические языки.
- •5. Файлы и каталоги на дисках
- •5.1. Файловая система fat.
- •5.2. Файловая система ntfs
- •6. Интегрированая среда турбо паскаля 7.0
- •6.1. Информационные окна.
- •7. Разработка программ в интегрированной среде
- •8. Система меню ис тurbo рascal
- •8.1. Меню работы с файлами (file).
- •8.2. Меню редактирования (edit).
- •8.3. Меню поиска информации (search).
- •8.4. Меню выполнения программы (run).
- •8.5. Меню компиляции (compile).
- •8.6. Меню отладки (debug).
- •8.7. Меню инструментальных средств (tools).
- •8.8. Меню параметров среды (options).
- •9. Структура программы
- •10. Алфавит языка
- •11. Типы данных
- •Целые типы.
- •11.2.Логический тип boolean.
- •11.3. Символьный тип char.
- •11.4. Перечисляемый тип.
- •Вещественные типы.
- •12. Переменные
- •13. Константы
- •14. Стандартные функции
- •14.1. Арифметические функции.
- •14.2. Функции преобразование типа.
- •14.3. Функции для величин порядкового типа.
- •15. Арифметические операции
- •Логические операции
- •Операции отношения
- •18. Операторы языка
- •18.1. Оператор присваивания.
- •18.2. Оператор безусловного перехода goto.
- •18.3. Пустой оператор.
- •18.4. Составной оператор.
- •18.5. Условный оператор if.
- •18.6. Оператор варианта case.
- •Операторы цикла
- •19.1. Оператор цикла с постусловием repeat.
- •19.2.Оператор цикла с предусловием while.
- •19.3. Оператор цикла с параметром for.
- •19.4. Использование стандартных процедур Break и Continue в операторах циклов.
- •Сложные типы языка паскаль
- •20.1. Массивы.
- •20.2. Символьные массивы.
- •20.3. Строка типа string.
- •20.4. Записи.
- •20.5. Множества.
- •20.6. Файлы.
- •20.6.1. Доступ к файлам.
- •20.6.2. Логические устройства.
- •20.6.3. Процедура открытия файлов.
- •20.6.4. Процедуры и функции для работы с файлами.
- •20.6.5. Типизированные файлы.
- •20.6.6. Процедуры и функции для работы с файлами.
- •20.6.7. Нетипизированные файлы.
- •20.6.8. Текстовые файлы.
- •21. Процедуры и функции
- •21.1. Процедуры.
- •21.2. Функции.
- •21.3. Параметры формальные и фактические.
- •21.4. Параметры-значения.
- •21.5. Параметры-переменные.
- •21.6. Параметры-константы.
- •21.7. Параметры-процедуры и параметры-функции.
- •21.8. Параметры без типа.
- •Модули пользователя
- •22.1. Структура модуля пользователя
- •22.1.1. Заголовок модуля
- •22.1.2. Интерфейс модуля
- •22.1.3. Исполнительная часть модуля
- •22.1.4. Cекция инициализации
- •22.2. Использование модулей
- •23. Оверлей
18.6. Оператор варианта case.
Оператор CASE является обобщением условного оператора IF и служит для выбора одного варианта из произвольного количества вариантов.
Конструкция:
Case S of
c1 : <оператор 1> ;
c2 : <оператор 2> ;
………………
cN : <оператор N>
else <оператор>
End;
S - выражение порядкового типа, значение которого вычисляется; с1, с2, …, сN – константы, с которыми сравнивается значение выражения S; <оператор 1>, <оператор 2>, …, <оператор N> - операторы, из которых выполняется тот, с константой которого совпадает выражение S.
<оператор> - это оператор, который выполняется, если значение S не совпадает ни с одним значением c1, ..., cN.
Ветвь else является необязательной. Если она отсутствует, и значение выражения S не совпадает ни с одной из перечисленных констант, весь оператор CASE рассматривается как пустой. В отличие от оператора IF перед словом else точку с запятой можно ставить. Если для нескольких констант необходимо выполнить один и тот же оператор их можно перечислить через запятую, сопроводив их оператором. Например:
Type
Days = (Pn, Vt, Sr, Cht, Pt, Sb, Vs); read (I);
Begin
Writeln(‘Введите день недели’);
Case I of
Pn:Writeln (‘ Понедельник’);
Vt:Writeln (‘ Вторник’);
Sr:Writeln (‘ Среда’);
Cht:Writeln (‘Четверг’);
Pt:Writeln (‘Пятница’);
Sb:Writeln (‘Суббота’);
Vs:Writeln (‘Воскресенье’);
Else Writeln (‘Неправильно введен день’);
End;
Case I of
Pn, Sr, Pt, Vs:Writeln(‘Нечетный день’);
Vt, Cht, Sb:Writeln(‘Четный день’);
Else Writeln(‘Неправильно введен день’)
End;
End.
-
Операторы цикла
19.1. Оператор цикла с постусловием repeat.
Оператор Repeat используется для организации циклических вычислительных процессов с заранее неизвестным количеством итераций (повторений).
Тело цикла может содержать любое количество операторов. Тело цикла выполняется хотя бы один раз, потому что условие выхода из цикла проверяется после очередной итерации. Выход из цикла происходит в том случае, когда условие выхода становится истинным (TRUE). Когда условие ложно (FALSE ) выполняется очередная итерация.
Конструкция:
Repeat
<оператор 1>;
<оператор 2>;
.......................
< оператор n>
Until S;
S - логическое выражение. Оно проверяется на истинность после каждой итерации.
Например: Составить программу определения суммы целых чисел от 1 до n, где n – число, вводимое пользователем.
Program Prim4;
Var
n:integer;
s:real;
BEGIN
s:=0;
Writeln(‘ Введите число n’);
Readln(n),i:=1;
Repeat
s:=s+i;
i:=i+1;
Until i<n;
Writeln(’s= ‘,s);
END.
19.2.Оператор цикла с предусловием while.
Используется для организации циклических вычислительных процессов с заранее неизвестным количеством итераций.
Конструкция:
While S do <оператор >;
S - логическое выражение.
Тело цикла состоит из одного оператора. Логическое выражение проверяется перед выполнением каждой итерации, поэтому цикл может ни разу не выполнится в отличии от оператора Repeat, где тело цикла выполняется хотя бы один раз.
Например: Составить программу определения целых чисел от 1 до n, где n - число вводимое пользователем.
Program Prim5;
Var
n, i: integer;
s: real;
BEGIN
s:=0;
Writeln(‘Введите число n’);
Readln(n);
i:=1;
While i<= n do
Begin
s:=s+i;
i:=i+1;
End;
Writeln(‘s=’,s);
END.