130.06K
Category: programmingprogramming

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

1.

ПРОГРАММИРОВАНИЕ
РАЗВЕТВЛЯЮЩИХСЯ
АЛГОРИТМОВ
НАЧАЛА ПРОГРАММИРОВАНИЯ

2.

Общий вид условного оператора
Условный оператор (ветвление) начинается со
служебного слова «if» (если), затем пишется
условие например a>b, затем служебное слово
«then»(тогда) после чего пишется оператор
который нужно выполнить в случае если,
условие истинно.
Например:
if (a>b) then
a:=b+c;

3.

Общий вид условного оператора
Полная форма условного оператора:
if <условие> then
<оператор_1>
else
<оператор_2>
Неполная форма условного оператора:
if <условие> then
<оператор>
!
Перед else знак «;» не ставится.

4.

a, b, c
да
(a=b) and (a=c)
ДА
1.Написать программу:
определяющую является ли
треугольник с длинами сторон
a,b,c равносторонним
нет
НЕТ

5.

РЕШЕНИЕ
Program triangle;
var a,b,c: real;
Begin
writeln('Определение является ли треугольник
равносторонним');
writeln('Введите длины сторон A,B,C');
readln (a, b, c);
if (a=b) and (a=c) then
writeln ('Треугольник равносторонний')
else
writeln ('Треугольник не равносторонний');
end.

6.

Составной оператор
В условном операторе и после then, и после else
можно использовать только один оператор.
Если в условном операторе после then или после else
нужно выполнить несколько операторов, то
используют составной оператор – конструкцию вида:
begin <последовательность операторов> end

7.

Вложенные ветвления
if <условие1> then
if <условие2> then <оператор1>
else <оператор2>
else <оператор3>
!
else всегда относится к ближайшему оператору if

8.

ЗАДАЧА
Напишите программу, которая
производит обмен значений
переменных x и y, если x
больше y.

9.

РЕШЕНИЕ
program p;
var x,y,z:real;
begin
writeln ('произвести обмен значении переменных x и y, если x
больше y');
readln(x);
readln(y);
if(x>y)then
begin
z:=x;
x:=y;
y:=z;
end;
writeln ('тепреь x=',x, ' а y=',y);
end.

10.

САМОСТОЯТЕЛЬНАЯ РАБОТА
Написать программу нахождения
наибольшего из трех чисел.
Числа вводятся с клавиатуры.
Y:=A
да
B>Y
нет
Y:=B
да
Y:=C
C>Y
нет
Ориентируйтесь на эту
блок схему, все
расписано, осталось
только переложить на
код
English     Русский Rules