Просмотр содержимого документа
«Алгоритмические структуры "ветвление" и "выбор"»
Ветвление(разветвляющийся алгоритм) - алгоритм, в котором проверяется условие, в зависимости от которого выполняется один из двух возможных вариантов.
да
нет
условие
действие1
действие2
Ifусловиеthenдействие1
elseдействие2;
да
нет
условие
действие
Ifусловиеthenдействие;
Часто возникают ситуации, когда приходится осуществлять выбор одного из нескольких альтернативных путей выполнения программы. Несмотря на то, что такой выбор можно организовать с помощью оператора If ...Then , удобнее воспользоваться специальным оператором выбора.
Формат оператора:
Case выражение of
вариант : оператор;
...
вариант : оператор;
end;
или
Case выражение of
вариант : оператор;
...
вариант : оператор;
else оператор
end;
Задача 3. Вычислить значение функции Y=(1+X+X 2 ) N , в которой N принимает целые значения 1,2,3.
Program n3;
Uses crt;
Var x, y: Real;
N: Integer;
Begin
Readln(‘x’, x);
Readln(‘N (1,2,3)’, N);
x:=1+x+x*x;
Case N of
1: Writeln(‘y=‘, x);
2: Writeln(‘y=‘, x*x);
3: Writeln(‘y=‘, x*x*x)
Else Writeln(‘Нет данных’);
End;
Readln
End .
Написать программу, которая по номеру дня недели (от 1 до 7) выдает название дня недели.
Program nedelja;
Uses crt;
Var x: Integer;
Begin
Write (‘Введите день недели(1-7)’);
Readln(x);
Caseхof
1: Writeln(‘понедельник‘);
2: Writeln(‘вторник’);
3: Writeln(‘среда‘);
4: Writeln(‘четверг‘);
5: Writeln(‘пятница’);
6: Writeln(‘суббота‘);
7: Writeln(‘воскресенье‘);
Else Writeln (‘В неделе 7 дней’);
End;
End.
Задача.Написать программу, которая по введенному с клавиатуры номеру дня недели выводит на экран рабочий он или выходной.
Program Week;
Uses crt;
Var x: Integer;
Begin
Readln(‘ Введ ите номер дня в неделе 1 до 7 ’, x );
Case x of
1..5: Writeln(‘ рабочий день ‘);
7 ,6: Writeln(‘ выходной день ’);
Else Writeln (‘В неделе 7 дней!');
End ;
Readln
End .
Задача1. Написать программу, которая по номеру месяца (от 1 до 12) выдает название месяца.
Задача2. Написать программу, которая по номеру месяца(от 1 до 12) выдает название времени года.