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

1. Примеры разветвляющихся алгоритмов
Разветвляющийся - алгоритм, в котором некоторые действия выполняются

начало

Ввод

х

π

<

<

x

0

5

.

2

sin

2

2

−

=

x

x

y

N=1

x

x

y

2

2

sin

4

+

=

N=3

Вывод

x, y,

Пример2. Примером разветвляющегося алгоритма может служить алгоритм начисления стипендии по среднему

2. Элементы языка программирования, необходимые для реализации разветвляющегося алгоритма.

Логические выражения.
Логическое выражение

Операции отношения
предназначены для сравнения двух величин. Результат сравнения имеет логический тип.

<

Логические операции.
Применяются к величинам логического типа. Результат тоже логический.
and (и),

Таблица истинности and и or

Например, пусть a:=3 b:=7
not(a>b) =true not(b>a)=false

Примеры логических выражений:
(x+1)A>=B
Name1=Name
Sin(x+1)>(x+2)/3
((a>0) or

Условный оператор.
Реализует алгоритмическую конструкцию Ветвление и изменяет порядок выполнения операторов в

а) Сокращенная форма

if <условие> then
<оператор >;

Например,

If x>5 Then y:=3*x+1.5;

If a > 5 Then
b: = b + a
Else

Условный оператор выполняется следующим образом.
Сначала вычисляется выражение, стоящее в условии.

Составной оператор.
Составной оператор представляет собой совокупность последовательно выполняемых операторов, заключенных в

Он нужен в тех случаях, когда в соответствии с правилами построения

a>0

a=a+5

y=sina

y<0

Да

y=2y

Вывод y

Да

нет

a≥-20

Нет

y=cosa

Да

y=2.5a

Нет

a=a-3

Вывод а

If a>0 then

begin

a:=a+5; y:= sin(a);

If y <0 then
begin

y:=

3. Составление программы

Составим программу для примера 1. Сначала подберем имена для

Таблица соответствия переменных

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

{Раздел описания переменных}
var
x,y:real;
n:integer;

begin
{Ввод исходных

{Вычисление значения функции}
if (x>0) and (x begin
y:=2*sqr(x)/sin(x)-2.5; n:=1

{Вывод исходных данных и результатов}
writeln(' x=',x:6:2,' y=',y:7:3);
writeln('Raschet proveden po

Пример 3.
Даны числа a, b, c. Если все они равны

начало

Ввод a, b, c

a=0 и b=0 и c=0

Вывод
сообщения

Да

a≠0 и b≠0

A

Вывод а, b, c

конец

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

{Раздел описания переменных}
var
a,b,c,S:real;

begin
{Ввод исходных данных}
write(' vvedite tri chisla');
readln(a,b,c);

if (a=0)and(b=0)and(c=0)

else
begin

if a=0 then a:=1;

end;

writeln(’a =’,a:5:2,’ b

Оператор выбора.

Оператор выбора позволяет выбрать один из нескольких возможных вариантов продолжения

Общий вид:

Case <ключ выбора> оf
<список выбора 1>: <оператор 1>;
<список

Например,

1 или 4

Y=2x

Y=3x

Y=x+2

n

2

3

case n of

1, 4 :

Оператор выбора работает следующим образом.

Сначала вычисляется значение выражения <ключ выбора>, затем

Пример. Составить программу, которая доводит до сведения студентов распоряжение деканата.

начало

Ввод номера

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
n:byte;

begin
writeln('На каком факультете Вы учитесь?');