Презентация на тему: Ветвления на Паскале

Ветвления на Паскале 9 класс

Вопросы: Какой алгоритм мы называем разветвляющимся? Какие виды ветвления вам известны? С помощью какого оператора на Паскале записывается ветвление? Как на Паскале можно записать сразу 2 условия?

Задача А4 Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Программа должна иметь дружественный интерфейс. Протестировать программу для A=3, A=0, A=-12.

Решение задачи А4 var A: integer; begin writeln(‘Введи число’); readln(A); if A>0 then A:=A+1 else A:=A-1; writeln(A); end.

Задача В1 Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Программа должна иметь дружественный интерфейс.

Решение задачи В1 var X,Y: real; begin writeln(‘Введи первое число X’); readln(X); writeln(‘Введи второе число Y’); readln(Y); if X>Y then writeln(‘X:=‘,2*X*Y,’ Y:=‘,(X+Y)/2) else writeln(‘Y:=‘,2*X*Y,’ X:=‘,(X+Y)/2); end.