Презентация на тему Программирование разветвляющихся алгоритмов на языке Паскаль

goto

Литература

учебное пособие для вузов. - Череповец : ГОУ ВПО

ЧГУ, 2010. - 117 c. - Библиогр.: С.114.
Электронный учебник по языку программирования Паскаль /http://pascal.guti.ru

План

выполнить одну или другую последовательность действий (операторов) в зависимости

от истинности или ложности некоторого условия.
В повседневной жизни условие обычно формулируется в виде вопроса, на который можно ответить Да или Нет.
Например:
Сумма больше 300?
Номер дня недели равен 7?

выражение логического типа (Boolean), которое может принимать одно из

двух значений: истина (True) или ложь (False). При описании условий используются:
операторы сравнения (=, <>, >, <, >=, <=);
логические операции (NOT, AND, OR, XOR).

оператор сравнения, то такое условие называется простым. Из простых

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

300 {Сумма больше 300? – простое условие}
Day=7 { Номер

дня недели равен 7? – простое условие}
(Summa>300) and (Sum<1000) {Сумма больше 300 и меньше 1000 рублей? – составное условие}
(Day=6) Or (Day=7) {Это выходной день? – составное условие}

образом:
Вычисляется значение условия.
Если условие истинно (True), то выполняется Оператор1,

после чего выполнение оператора if заканчивается. Если условие ложно (False), то выполняется Оператор2, после чего выполнение оператора if заканчивается.

случае, при ложности условия, работа оператора if заканчивается, и

никакие действия им не производятся.

развилка. Перед служебным словом else «;» не ставится}
if условие

then Оператор1 else Оператор2;
 
{Неполная развилка}
if условие then Оператор1;

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

оператора if выполняется следующим образом:
if условие then
begin
блок операторов 1
end
else
begin
блок операторов 2
end;

f, график которой представлен на рисунке, вычислить f(x).



Решение

задачи
Математическая модель: функция вычисляется по следующей формуле:

Program ex1;
var x, f:Real;
begin
Write('Введите x:

');
Readln(x);
if x<-1 then f:= -x-1 else
if (x>=-1) and (x<0) then f:= x-1 else
if (x>=0) and (x<1) then f:= -x+1 else f:= x+1; Writeln('f= ',f:6:2);
Readln;
end.

План

приходится осуществлять выбор одного из нескольких альтернативных вариантов. Несмотря

на то, что такой выбор можно организовать с помощью оператора if, удобнее воспользоваться специальным оператором выбора Case.

значение выражения.
Это значение последовательно сравнивается с константами выбора из

списка констант.
Если значение выражения совпало с константой, то выполняется соответствующий данной константой оператор. На этом выполнение оператора Case заканчивается.
Если значение выражения не совпало ни с одной из констант выбора, то выполняется оператор, следующий за служебным словом else. Если ветка else в операторе не описана, то оператор Case никаких действий не производит.

выражениями порядковых типов. Это, например, типы Integer, Boolean.
В общем

виде оператор Case записывается следующим образом:

case Выражение of
Константа1: Оператор1;
Константа2: Оператор2;
…
КонстантаN: ОператорN;
else Оператор(N+1)
end;
Перед служебными словами else и end «;» ставить необязательно. Ветку else в записи оператора можно опускать.

один и тот же оператор, то константы перечисляются через

запятую, затем ставится «:» и указывается выполняемый оператор.
Например
case Выражение of
Константа1, Константа2, Константа3: Оператор;
Константа4: Оператор4;
…
КонстантаN: ОператорN;
else Оператор(N+1)
end;

целых чисел, то можно указать первую и последнюю константу

диапазона, разделив их двумя точками.
Например
1..6
5..8, 10, 15, 17..20

операторов, то запись оператора Case выполняется следующим образом:

case Выражение

of
Константа1: begin
блок операторов 1;
end;
…
КонстантаN: begin
блок операторов N;
end;
else begin
блок операторов (N+1);
end;
end;

сообщение – рабочий это день или выходной (выходными считаются

суббота и воскресенье).

program Ex2;
var Day: integer;
begin
Writeln ('Введите номер дня недели в диапазоне от 1 до 7');
Readln (Day);
Сase Day of
1..5: Writeln ('Рабочий день');
6..7: Writeln ('Выходной день');
Else Writeln ('Номер дня недели введен неверно!');
end;
Readln;
end.

План

также оператор безусловного перехода goto.
Формат:
goto метка;
Оператор

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

1;
...
1: WriteLn('Переход к метке 1');
…
end.