Презентация "Алгоритм ветвления на Pascal"

Алгоритм ветвления

Пример

0 " width="640"

Условие задачи

Написать программу, вычисляющую значение функции F при любых значениях X.

Функция задана следующим образом:

5x 3 – 8x +1, при x≤0

F(x)=

√ x при x0

начало

Блок-схема

“ Вычисление значения функции F(X)”

Выводим подсказку для ввода

Выводим надпись

Организуем ввод в переменную Х

“ Введите значение Х”

Иначе вычисляем значение функции F(Х) по этой формуле

Если Х

Проверяем значение переменной Х на соответствие условию

Ввод

Х

Нет

Да

Х

F:=  X

F:=5X 3 -8X+1

“ Значение функции при Х=”, Х,

“ равно “, F

И выводим результат на экран

конец

Программа

X

F

-

-

0

-

√

0

var Х, F: Real;

1

0

begin

WriteLn(‘Вычисление значения функции F(X)’);

WriteLn(‘ Введите значение Х);

Вычисление значения функции F(X)

ReadLn(X);

Введите значение Х

if Х

F:=5*X*X*X-8*X+1

|

0

else

Значение функции при Х=0 равно 1

F:=sqrt(X);

WriteLn(‘ Значение функции при Х=‘, Х, ‘ равно ‘, F );

end.