Условный оператор if

Условный оператор задает выбор выполнения операторов в зависимости от какого-либо условия.

Общий вид:

1 форма:

if логическое выражение then оператор;

Действие if..then: вычисляется логическое выражение; если его значение TRUE, то выполняется оператор1, если его значение FALSE – продолжается программы.

2 форма:

if логическое выражение then оператор1 else оператор2 ;

Действие оператора if..then..else: вычисляется логическое выражение; если оно TRUE, то выполняется оператор1, если FALSE – выполняется оператор2.

Правило:

1. Перед else точка с запятой не ставится.
2. После then и после else должен стоять только один оператор. Если надо поместить туда несколько операторов, то используют составной оператор. Составной оператор – это совокупность операторов, заключенных в операторные скобки begin .. end;

Задание:

1. Написать блок-схему и программу для вычисления значение y по формуле:

2. Написать блок-схему и программу, по которой меньшее из двух чисел будет умножено на большее, а большее разделено на меньшее.

3. Написать блок-схему и программу для вычисления значение y по формуле:

4. Написать блок-схему и программу, которая сообщает, принадлежит ли вводимая точка с координатами (x,y) указанной области.

Оператор безусловного перехода служит для изменения порядка выполнения действий; часто используется с оператором if.

Общий вид:

goto<метка>;

Действия: оператор goto передает управление на оператор, помеченный меткой.

Метка – это идентификатор или число, стоящее перед оператором и отделенное от него двоеточием. Метка должна быть обязательно описана перед использованием. Для описания используют оператор label.

Особенности меток:

1. Описание метки должно располагаться в разделе описания данных.

2. Цифровая метка может быть целым числом в диапазоне от 0 до 9999

3. Нельзя переходить по метке внутрь структурных операторов (условных операторов, циклов).

Например: Написать программу для нахождения корня уравнения ax+b=0.

uses crt;

label 1;

var a,b,x: real;

begin

clrscr;

writeln('Введите a,b');

read(a,b);

if a=0 then

begin

writeln('Неправильный ввод данных a=0');

goto 1;

end;

writeln('x=',-b/a);

1:

end.