Практическая работа 7. Теоретическое обоснование

Практическая работа 7

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

Цель: научиться правильно, использовать условный оператор if, научиться составлять программы решения задач на разветвляющиеся алгоритмы.

Теоретическое обоснование

Разветвляющимися алгоритмами называются алгоритмы, в которых выбирается один из нескольких возможных путей (вариантов) вычислительного процесса. Каждый подобный путь называется ветвью алгоритма

если условие то серия команд1 иначе серия команд 2 кв

если условие то серия команд кв

Полная форма ветвления Сокращенная форма ветвления

Условный оператор

IF условие THEN оператор1 ELSE оператор2;

(если условие, то оператор1, иначе оператор2)

Если в качестве оператора должна выполнятся серия операторов, то они объединяются в операторные скобки Begin – End.

Пример № 1Даны два числа а и в. Найти наибольшее из них и вывести на экран.

Program primer1;

Var a, b: real;

Begin

Readln (a, b);

If a>b

then writeln (a)

else if A=B

then writeln (‘A=B’)

else writeln (b);

End.

1. Математическая модель:

Пример № 2. Написать программу для вычисления значения функции

2. Алгоритмический язык:

Алг пример2

вещ x, y

нач

ввод x

если x <0

то

иначе

кв

вывод y

кон

3. Программа на языке Паскаль:

Program primer2;

Var x, y: real;

begin

readln(x);

if x<0

then y:=1+Exp(3*Ln(x))

else y:= sqr(x)+2;

writeln(y);

end.

4. Блок-схема:

Пример № 2 Написать программу для вычисления значения функции

2. Алгоритмический язык:

Алг пример3

вещ x, y

нач

ввод x

если x ≤0

то y:=x²

    иначеесли x ≥1

                         то y:= sin x

                  иначе y:= е^x

                кв

    кв

вывод y

кон

3. Программа на языке Паскаль:

Program primer3;

Var x, y: real;

begin

readln(x);

if x<=0

then y:=sqr(x)

    else if x>=1

                then y:=sin(x)

                         else y:=exp(x);

writeln(y);

end.

4. Блок-схема:

12 Следующая ⇒