Программирование ветвящихся алгоритмов

выполнения некоторого условия происходит одна или другая последовательность действий, называется

ветвлением.
На языке программирования Pascal ветвление кодируется с использованием условного оператора if … then … else.

Неполная форма
if then ;

Операторы 1 и 2 могут быть

простыми или составными.
Если условие принимает значение true (истина), то выполняется оператор 1, если – false (ложь), то оператор 2.

ФОРМЫ УСЛОВНОГО ОПЕРАТОРА

ФОРМА УСЛОВНОГО ОПЕРАТОРА
оператор 2
да
нет
оператор 1
условие

(n>0) then n:=n+2;
2) if (n

ВЫРАЖЕНИЙ)

(a>b) then d:=a else d:=b;
Ответ:
2






КАКОЕ ЗНАЧЕНИЕ БУДЕТ ИМЕТЬ ПЕРЕМЕННАЯ

D ПОСЛЕ ВЫПОЛНЕНИЯ СЛЕДУЮЩИХ ОПЕРАТОРОВ:

ИМЕТЬ ПЕРЕМЕННАЯ D ПОСЛЕ ВЫПОЛНЕНИЯ СЛЕДУЮЩИХ ОПЕРАТОРОВ:

два целых числа. Найти наименьшее из них.
2) Ввести число. Если

оно неотрицательно, вычесть из него 30, в противном случае прибавить к нему 70.
3) Ввести целое число и определить четное оно или нет.

a, b: ');
readln(a, b);
if a

min := a
else
min := b;
writeln('minimum = ', min);
end.

ДАНЫ ДВА ЦЕЛЫХ ЧИСЛА. НАЙТИ НАИМЕНЬШЕЕ ИЗ НИХ

Решение задач

начало
a:=a + 70
да
нет
a:=a - 30
ввод a
вывод a
конец
program zadanie2;
var
a:

integer;
begin
write('Vvedite a: ');
readln(a);
if a >= 0 then
a := a - 30
else
a := a + 70;
writeln(‘a = ', a);
end.

а>0

Решение задач

mod 2 = 0) then
writeln(‘Да')
else

writeln(‘Нет');
end.

да

нет

ввод a

конец

вывод ‘Да’

вывод ‘Нет’

начало

ВВЕСТИ ЦЕЛОЕ ЧИСЛО И ОПРЕДЕЛИТЬ ЧЕТНОЕ ОНО ИЛИ НЕТ

a mod 2 =0

Решение задач

20 = 1;
20 div 25 = 0;
39 div 5 =

7;
158 div 3 = 52.
Операция Mod используется для нахождения остатка от деления
    Примеры:
25 mod 20 = 5;
20 mod 25 = 0;
39 mod 5 = 4;
158 mod 3 = 2.

Операции Div и Mod

произведение отрицательно, умножить его на 2 и вывести на экран,

в противном случае увеличить его в 1,5 раза и вывести на экран.
Ввести число. Если оно четное, разделить его на 4, в противном случае умножить на 3
div деление нацело (25 div 10=2)
mod - нахождение остатка (4 mod 2=0).
3) Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

');
readln(a, b);
if a*b

else
p:=1.5*a*b;
writeln('произв = ', p);
end.

program zadanie2;
var a:integer;
begin
writeln('Введите a=');
readln(a);
if (a mod 2)=0 then writeln(a div 4) else writeln(a*3);
end.

program zadanie3;
var m,n:integer;
begin
readln(m,n);
if m<>n then
begin
if m>n then
n:=m
else
m:=n;
end
else
begin
m:=0;
n:=0;
end;
writeln(m,' ',n);
end.

двухзначное число: ');
read(Number); { Возьмем число 25 }
Num1 := Number

div 10; { 25 div 10 = 2 }
Num2 := Number mod 10; { 25 mod 10 = 5 }
Sum := Num1 + Num2; { 2 + 5 = 7 }
write('Сумма двух чисел -- ',Sum);
end.

деления
Mod нахождение остатка от деления
Возьмем число 255
Сумма цифр этого числа

равна
2+5+5=12
255div100=2 (целая часть, т.е 255:100=2,55)
255mod10=5 (дробная часть,т.е 255:10=25,5)
255div10mod10=5 (255div10=25-целое от 25,5
25mod10=5, т.к. от 2,5 берем дробную часть, т.е.5)

255 }
Sum := Number div 100 + Number mod 10

+ Number div 10 mod 10; { 255 div 100 + 255 mod 10 + 255 div 10 mod 10 = 12 }
write('Сумма трёх чисел -- ',Sum);
end.

Программа для решения задачи нахождения суммы цифр трехзначного числа.

выполняет операции с числами, операторами и т.д.

числа имеющихся вариантов

CASE N OF N – переключатель;
M1:оператор1;
М2:оператор2;

Mi –метки, возможные значения
….. переключателя( переключатель и метки
Мn:операторn; должны быть одного типа, кроме REAL.)

ELSE оператор; Часть ELSE может отсутствовать
END;
 
Оператор CASE передает управление тому оператору, значение метки Мi которого совпало со значением переключателя N, а затем – на следующий за END оператор. Если N не совпало ни с одним из значений Мi, то выполняется оператор следующий за ELSE.

цифру ‘);    readln(a);   if (a4)     then       writeln (‘Это

число не является искомой цифрой‘)     else       case a of         0 : writeln (‘ноль‘);         1 : writeln (‘один‘);         2 : writeln (‘два‘);         3 : writeln (‘три‘);         4 : writeln (‘четыре‘);         end;   readln; End.

В случае, если переменная а равна 0– вывести «Ноль»;

В случае, если переменная равна 1 – вывести «Один»;

В случае, если переменная равна 2 – вывести «Два»
И т.д.

по введенному номеру }
n: integer;
begin

writeln('Введите целое число от 1 до 7');
write('-> ');
readln(n);
case n of
1: writeln('Понедельник');
2: writeln ('Вторник');
3: writeln ('Среда');
4: writeln ('Четверг');
5: writeln ('Пятница');
6: writeln ('Суббота');
7: writeln ('Воскресенье');
else writeln ('Вы неправильно ввели номер');
end;
readln;
end.

Задача case2. Напишите программу с помощью которой можно определить название дня недели по введенному номеру

В случае, если переменная равна 1– вывести «Понедельник»;

В случае, если переменная равна 2 – вывести «Вторник»;

В случае, если переменная равна 3 – вывести «Среда»
И т.д.

c of    
1..89: writeln('Остроугольный');    
90: writeln('Прямоугольный');

   
91..180: writeln('Тупоугольный');  
end;
end.

Задача case3. Написать алгоритм, классифицирующий треугольник

В случае, если переменная равна от 1 до 89 – вывести «Остроугольный»;

В случае, если переменная равна 90 – вывести «Прямоугольный»;

В случае, если переменная равна от
91 до 180 – вывести «Тупоугольный»

недели и выводит одно из сообщений: «Это рабочий день», «Это

суббота», «Это воскресенье» или «Такого дня недели нет».

Задача case4. Написать программу, которая запрашивает номер месяца и выводит его название или сообщение, что такого месяца не существует.

Задача case5. Напишите программу, которая по введенному числу из промежутка 0..24, определяет время суток.