
- •Литература
- •6. Основы программирования на языке turbopascal. Учебное пособие. Б. А. Крымов, а. О. Мовшин, с. В. Кулакова. Воронеж: вгта. 2000.
- •Тема 1. Введение в pascal
- •1.1. Конструктивные элементы языка pascal
- •1.2. Структура программы на языке pascal Программа на pascal состоит из двух частей: описательная часть и собственно программные операторы (исполняемая часть – список действий).
- •Var m, n : integer;
- •Тема 2. Данные и выражения простых типов
- •2.1. Данные целого типа
- •Var имя1, имя2,...: integer;
- •2.2. Данные вещественного типа
- •Var имя1, имя2,...: real;
- •Var a2, result, psi : real;
- •2.3. Данные логического типа
- •Var имя1, имя2,...: boolean;
- •2.4. Данные символьного типа
- •Var имя1, имя2, ... : char;
- •2.4. Порядок выполнения операций
- •Тема 3. Основные операторы языка pascal
- •3.1. Оператор присваивания
- •3.2. Ввод числовых данных с клавиатуры
- •3.3. Вывод данных на экран монитора
- •Writeln(a,b,c);
- •Writeln(a,' ',b,' ',c)
- •Var omega, q: real;
- •3.4. Условные и составные операторы
- •Полная форма условного оператора if предназначена для программирования разветвлений и имеет вид:
- •If Логическое выражение then оператор 1 else оператор 2;
- •Var a, b, max: real;
- •Краткая форма условного оператора if.Эта форма используется при программировании ответвлений и имеет вид:
- •If Логическое выражение then оператор 1;.
- •Var a, b : real;
- •Вложенная ветвящаяся структура
- •X, y, a, b : real;
- •Var X, a, z : real;
- •3.5. Оператор цикла с параметром
- •Var X, y, deltaX, a, b: real;
- •3.5.3. Вычисление сумм
- •Var s : real;
- •Var s : real;
- •X, s, eps, a : real;
- •Var имя массива : array [тип индекса] of тип элементов;
- •Var имя массива : имя типа;
- •Имя массива [ индекс ]
- •4.2. Организация циклов с использованием массивов
- •I: integer;
- •Var max : real;
- •I : integer;
- •Var I, kP,j : integer ;
- •Тема 5. Подпрограммы
- •5.1. Вводные понятия
- •5.2. Процедуры
- •Имя процедуры (список фактических параметров);
- •Treug (a, b, c);
- •Treug(1.2, 2.3, 1.5);
- •Procedure имя процедуры (список формальных параметров);
- •Var p, s : real;
- •Var имя1, имя2, ... : тип параметров;
- •5.3. Функции
- •Function имя функции (список форм. Параметров) : тип результата;,
- •Var a, b, c, d, e, f, s : real;
- •Приложение 2 Стандартные функции pascal
3.4. Условные и составные операторы
Вычислительные процессы, алгоритм которых содержит хотя бы одну типовую ветвящуюся структуру, называются ветвящимися.
Для организации ветвлений в программах используют операторы передачи управления (операторы перехода).
Допускается запись условного оператора в двух формах - полной и краткой.
Полная форма условного оператора if предназначена для программирования разветвлений и имеет вид:
If Логическое выражение then оператор 1 else оператор 2;
где оператор1, оператор2 – простые (в том числе и условные) или составные операторы. Здесь используются ключевые слова: if – если; then [зен] – тогда (то); else [элз] – иначе.
В дальнейшем для удобства изложения оператор 1 будем называть then-ветвью, аоператор 2-else-ветвью. Подчеркнем, что в каждой из ветвей может находиться только одиноператор.Перед else символ ’;’ не ставится никогда.
Оператор if выполняется так:
1) вычисляется значение логического выражения, результат вычислений анализируется;
2) если результатом является true, выполняется оператор 1, если false – оператор 2.
После выполнения любой из ветвей выполняется следующий по порядку оператор программы.
Пример 3.8. Составить программу нахождения максимального из двух чисел.
Var a, b, max: real;
begin
write ('введите числа a,b'); readln(a, b);
if a > b then max:=a else max:=b;
writeln ( max:10:2 )
end.
Если a > b, то выполняется операторmax:=a(ветвьthen), в противном случае – операторmax:=b(ветвьelse). После выполнения любой ветви следующим будет выполнен оператор вывода.
Если в одной или в обеих ветвях оператора if необходимо разместить не один, а несколько операторов, то каждую такую группу следует представить в виде одного составного оператора.
Составной операториспользуется в тех случаях, когда в соответствии с правилами построения конструкций языка можно использовать один оператор, а выполнить нужно несколько действий.
Составной оператор начинается служебным словом beginи заканчивается словомend. Между этими словами размещаются необходимые для вычислений операторы. Словаbeginиendиграют в составном операторе роль скобок и называются, поэтомуоператорными скобками. Например
begin
c:=a; a:=b; b:=c
end
Пример 3.9. Решить уравнение ax2 + bx + c = 0 ( a 0 )
var
a, b, c, x1, x2, d : real;
begin
write ('введите a,b,c '); readln (a,b,c);
d := sqr(b) – 4*a*c;
if (d < 0) then write ('корни комплексные ')
else
begin
d := sqrt (d); a:=2*a;
x1:= ( - b + d ) / a; x2 := ( - b – d ) / a;
writeln (x1:10:2, x2:10:2)
end
end.
Если условие d < 0истинно, выводится сообщение «корни комплексные», после чего работа программы заканчивается. В противном случае выполняетсяelse-ветвь, содержащая составной оператор (четыре оператора присваивания и оператор вывода).
Краткая форма условного оператора if.Эта форма используется при программировании ответвлений и имеет вид:
If Логическое выражение then оператор 1;.
Если логическое выражениеестьtrue, то выполняетсяоператор 1, в противном случае выполняется следующий оператор программы.
Пример 3.10. Даны два числа. Если второе число больше первого – уменьшить его в два раза.