Команда выбора

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

Если при решении задачи необходимо выбрать один из многих вариантов действий, то для написания алгоритма решения такой задачи используется управляющая команда выбора в полной или неполной форме.

1. Выбор в неполной форме.

По этой команде сначала проверяется условие P₁. Если оно выполняется, то производятся действия, определяемые функциональным блоком S₁ и далее оператор, следующий за командой выбора; если P₁ ложно, то проверяется условие P₂. Если условие P₂ истинно, то производятся действия, определяемые функциональным блоком S₂ и далее оператор, следующий за командой выбора; если P₂ ложно, то проверяется условие P₃ и т.д. до P _n. Если P _n выполняется, то производятся действия, определяемые функциональным блоком S _n и далее оператор, следующий за командой выбора; если P _n ложно, то команда выбора никаких действий не предписывает и сразу выполняется следующий за ней оператор.

2. Выбор в полной форме.

Так же как и в выборе в неполной форме, по этой команде сначала проверяется условие P₁. Если оно выполняется, то производятся действия, определяемые функциональным блоком S₁ и далее оператор, следующий за командой выбора в полной форме; если P₁ ложно, то проверяется условие P₂ и т.д. Если условие P _n выполняется, то производятся действия, определяемые функциональным блоком S _n, и далее выполняется оператор, следующий за командой выбора в полной форме; если условие P _n ложно, то производятся действия, предписываемые функциональным блоком S _{n +1}, и далее выполняется оператор, следующий за командой выбора в полной форме.

Команда выбора в полной форме

If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then Sn else Sn+1; K: <следующий за командой выбора оператор>

If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then begin Sn end else begin Sn+1 end; K: <следующий за командой выбора оператор>

Команда выбора в сокращенной форме

If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then Sn; K: <следующий за командой выбора оператор>

If P1 then begin S1; Goto K end; If P2 then begin S2; Goto K end; … If Pn then begin Sn; end; K: <следующий за командой выбора оператор>

Задача. Значение функции. Вычислите значение функции

Команда выбора в полной форме.

Блок-схема алгоритма):

procedure TForm1.Button1Click(Sender: TObject);

Label k;

var

x,y:real;

begin

RichEdit1.Text:='';

x:= StrToFloat(InputBox('Ввод', 'Введите x',''));

ShowMessage(' Вы ввели '+ floatToStr(x)+ chr(13));

If x<=3

then

begin

y:=x-1;

goto k

end;

If x<=22

then

begin

y:=x*x*x+2;

goto k

end;

y:=1/ (x*x+2);

k:ShowMessage('Значение y равно ' + floatToStr(y));

RichEdit1.Text:=RichEdit1.Text+ 'Значение y равно ' + floatToStr(y);

end;

1. Даны три числа a,b,c. Удвоить каждое из этих чисел, если a≥b≥c и заменить числа квадратами этих чисел в противном случае. Полученные числа вывести на монитор.

2. Даны два числа х и у. Если х и у отрицательные, то каждое значение заменить его абсолютной величиной; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения не отрицательны, то оба значения увеличить в 10 раз. Полученные числа вывести на монитор.

3. Даны три различных числа. Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других; в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений. Полученные числа вывести на монитор.

4. Для введенного с клавиатуры действительного числа x, вычислить значения функций f(x) (рисунок 2а) и g(x) (рисунок 2б) и определить название графика, которому принадлежит точка M(x, y).

5. Даны действительные числа x и y. Вычислить U, если U определяется так:

Запись (x,y)ÎD означает, что точка с координатами x, y принадлежит D, где D – заштрихованная часть плоскости (рис.3).