значение_1 : Оператор_1;
значение_2 : Оператор_2;
значение_3 : Оператор_3;
…
Else Оператор_Else;
End;
Оператор Caseработает так: происходит последовательной сравнение переменной N с указанными значениями, если одно из значений совпадает, то выполняется соответствующий Оператор. Если ни одного совпадения не обнаружено, то выполняется Оператор_Else. Заметим, что ветвь Else, может отсутствовать.
Условные обозначения разветвляющегося алгоритма в блок-схемах:
| - оператор ввода данных
|
| - линейный оператор
|
| - условный оператор
|
| - оператор вывода результата (печать)
|
Пример выполнения задания по теме 2.
Цель расчёта – приобретение опыта в решении программ разветвляющегося типа и отладка задач на компьютере.
Постановка задачи 1:
Решение квадратного уравнения a×x2+b×x+c=0. Нахождение действительных корней.
Составление блок-схемы:
При решении этой задачи возможны 3 случая: D>0, D=0, D<0.
Составление программы:
Program Square;
uses crt;
VAR D, a, b, c, x1, x2 : real;
BEGIN
clrscr;
writeln (’Введите исходные данные’);
writeln (’Введите число a’);
readln (a);
writeln (’Введите число b’);
readln (b);
writeln (’Введите число’);
readln (c);
D:=sqr(b)-4*a*c; {нахождение дискриминанта}
if D>0 then
if D=0 then
begin
x1:=-b/2/a;
writeln (’Корни совпадающие x1=x2=’, x1:8:2);
end
else
begin
x1:=(-b+sqrt(D))/2/a;
x2:= (-b-sqrt(D))/2/a;
writeln (‘x1=’, x1:8:2);
writeln (‘x2=’, x2:8:2);
end
else
writeln (’Действительных корней нет’);
END.
Решение задачи на компьютере. Результаты решения: