Язык программирования Pascal. Ветвления и циклы. Васильев В.В - 5 стр.

UptoLike

5
if MaxInt/abs(b)<abs(a)
then write('есть')
else write('нет');
readln
end. {Overflow}
Внутренняя константа MaxInt содержит наибольшее значение типа Integer.
Проверьте работу программы на ПК!
Условные операторы могут быть вложенными. Если Вы используете
вложенные условные операторы в сокращенной и полной формах, то
имейте в виду , что каждая часть Else будет относиться к ближайшей к
ней сверху части Then.
При введенном с клавиатуры значении аргумента, вычислим значение
функции
y
x
x
x
x
=
<−
≥−
221
1
22
1
,,
,.
program Func;
var x,y:real;
begin
write('Введите значение аргумента:'); readln(x);
write('Значение функции: ');
y:=exp(x*ln(2))-2;
if x<-1
then
write(y:8:2)
else
if x<>1
then
begin y:=1/y; write(y:8:2) end
else
write('не существует');
readln
end. {Func}
Проверьте работу программы на ПК! Предусмотрите удобный интер-
фейс !
Среди простых операторов есть оператор безусловного перехода,
позволяющий изменить стандартный последовательный порядок выполнения
операторов. Оператор безусловного перехода Goto метка ; организует принуди -
тельный переход на отмеченный оператор. Метка отделяется от оператора
двоеточием .
Метками могут служить идентификаторы и целые числа от 0 до 9999. Все
используемые в программе метки должны быть описаны. Например,
Label 10, 20, my_label;
Старайтесь использовать оператор перехода только тогда, когда он упро -
щает программу и сокращает ее код. Много операторов перехода в программе