Цикл с предусловием

End.

Begin

Begin

writeln('Введите числа x и y');

readln(x,y);

ifx<0 then

x:=sqr(x);

y:=sqr(y)*y;

writeln('x = ',x,’ y = ‘,y);

end.

II. Операторвыбора(Case) предназначен для выбора одного из нескольких возможных вариантов выполнения программы в зависимости от значения выражения.

Полная форма записи Сокращенная форма записи

где Case(выбор), of (из), End (конец) - служебные слова;
выражение - должно целочисленного или символьного (char) типа;
Конст 1, Конст 2, Конст N - возможные значения выражения(метки варианта), причем в одной строке их может быть несколько через запятую.

Работа оператора:
1.Вычисляется значение выражения.
2.Это значение сравнивается с константами, стоящими после слова of
3.Если значение выражения равно какой-либо константе, то выполняется оператор, стоящий после этой константы.
4.Если значение выражения не совпадает ни с какой константой, то управление передается оператору, записанному после слова Else ( при полной форме записи) или оператору, следующему после слова End;

Если вместо одного оператора в строке нужно использовать несколько, то используют операторные скобки Begin … End;

Пример 4:

При вводе числа от 1 до 7 вывести на экран название соответствующего дня недели.

Program example;
Var a:integer;
Begin
Writeln('введите число от 1 до 7');
Read(a);
Writeln('введенному числу соответствует');
Case a of
1: Writeln('понедельник');
2: Writeln('вторник');
3: Writeln('среда');
4: Writeln('четверг');
5: Writeln('пятница');
6: Writeln('суббота');
7: Writeln('воскресенье')
Else Writeln('нет такого дня недели!')
End;
End.

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

Пример 5:

Определить введена ли как символьная переменная цифра

Pogram vibor2;

Var a:char;

Readln(a);Begin

Case a of
'0'..'9': Writeln('цифра!')
Else Writeln('не цифра!')
End;

Пример 6: Определить по номеру месяца количество дней

Тема 2.4 Циклы

Циклом называется многократно выполняемая группа операторов.

Параметр цикла – величина, которая при выполнении каждого цикла изменяется на величину шага.

Эталон цикла – некоторая постоянная величина с которой при каждом выполнении цикла сравнивается параметр цикла и как только они окажутся в заданном соотношении происходит выход из цикла.

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

( арифметические и геометрические прогрессии).

Существует два типа циклических алгоритма:

- цикл с предусловием –условие выполнения цикла расположено до тела цикла. В языке Pascal по схеме цикла с предусловием работают оператор цикла с предусловием Whileи оператор цикла с параметром For;

- цикл с постусловием – условие выхода из цикла расположено после тела цикла. По такой схеме работает оператор цикла с постусловием Repeat.

для оператора Whileдля оператора For

где Х – параметр цикла;

Х1 – начальное значение параметра цикла;

Х2 – конечное значение параметра цикла;

Х3 – шаг изменения параметра цикла;

Тело цикла - простой или составной оператор языка Pascal.