
- •1. Условный оператор If.
- •2. Оператор цикла с параметром For.
- •4. While с предпроверкой условия:
- •5. Repeat с постпроверкой условия:
- •6. Файлы. Текстовые. Файлы данных.
- •7. Файла заданного типа.
- •8. Файлы содержащие структурированные данные.
- •9. Создание пользовательских подпрограмм.
- •10. Массивы с переменной размерностью. Динамическая память.
- •11. Создание пользовательского модуля.
- •13. Модуль dos.
- •14. Оверлей.
- •20. Запись.
- •21. Стандартный тип данных.
- •22. Константы.
- •23. Способы присваивания.
- •24. Метки и операторы перехода.
- •25. Глобальные и локальные переменые.
- •27. Меню debug.
- •28. Меню compile.
- •29. Меню run.
- •30. Директивы компилятора.
1. Условный оператор If.
Условный оператор позволяет проверить некоторое условие и в зависимости от результатов проверки выполнить то ил иное действие.
Структура условного оператора:
If < условие> Then <оператор1> Else <оператор2>
Где < условие> - произвольное выражение логического типа;
<оператор1>, <оператор2> - любые операторы языка Турбо Паскаль.
Условный оператор работает по следующему алгоритму. Вначале вычисляется условное выражение < условие>. Если результат есть TRUE, товыполняется <оператор1>, а <оператор2> пропускается; если результат есть FALSE, наоборот, <оператор1> пропускается, а выполняется <оператор2>. Например:
Var
X, y, max: integer;
Begin
……
if x > max then
y:= max
else y:=x; При выполнении этого фрагмента переменная У получит значение переменной Х, если только это значение не превышает МАХ, в противном случае У станет = Мах.
Оператор выбора CASE.
Оператор выбора позволяет выбрать одно из нескольких возможных продолжении программы. Параметр по которому осуществляется выбор, служит ключ выбора – выражение любого порядкового типа (Real, String.)
Структура оператора:
CASE <ключ_выбора> OF <список_выбора> {Else <операторы>} END
Где CASE переводится как случай.
<ключ_выбора> - ключ выбора, <список_выбора> - одна или более конструкций вида: <костанта выбора>: <оператор>;
<костанта _выбора> - константа того же типа, что и выражение <ключ_выбора>.
Оператор выбора работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности операторов <список_выбора> отыскивается такой, которому предшедствует костанта, равная вычисленному значеню. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответсвующая вычисленному значению ключа выбора, управление передаётся операторам, стоящим за словом ELSE.
Пример. Var
Ch:char; begin ReadLn(ch); case ch of
‘n’, ‘N’: Writeln (‘Нет’);
‘y’, ‘Y’: Writeln(‘Да’)
end
end.
В этой программе при вводе одного из символов: у или У выведет на экран слово «ДА», а при вводе n или N - слово “НЕТ”.
2. Оператор цикла с параметром For.
Структура:
For <пар_цикл> := <нач_знач> То <кон_знач> Do <оператор>.
<пар_цикл> - параметр цикла – переменная цикла Integer;
<нач_знач> - начальное значение – выражение того же типа;
<кон_знач> - конечное значение - выражение того же типа.
При выполнении оператора FOR вначале вычисляется выражение <нач_знач> и осуществляется присваивание <пар_цикл> := <нач_знач>.
После этого циклически повторяется:
Проверка условия <пар_цик> <= <кон_знач>; если условие не выполняется, оператор For завершает работу;
Выполнение оператора <оператор>;
Наращивание переменной <пар_цик> на еденицу.
Пр. Ввод с клавы произвольного целого числа N и суммы всех целых чисел от 1 до N/
Program Sum_OF_integer;
Var i, n, s: integr;
Begin Write (‘N=’);
Readln (n); - вводим N
S:=0; - начальное значение суммы
For i:=1 to n do – цикл подсчёта суммы
S:=s+i;
Writeln (‘Сумма = ‘, s) – выводим результат
End. В этом примере шаг наращивания параметра цикла строго постоянен и равен (+1). Сущ. другая форма оператора:
For <пар.цикл>:=<нач.знач> Downto <кон.знач> Do <оператор>
Замена зарезервированного слова To на Downto означает, что шаг наращивания параметра цикла равен (-1), а управляющее условие приобретает вид <пар.цикл> = <кон.знач>. Теперь можно подсчитывать и отрицательные суммы.