Var X , t , z : real ; { Описание переменных }

Begin {Начало основного блока}

WriteLn(' Введите значение x');

ReadLn(x) ; { Ввод x }

WriteLn(' Введено x=',x:5:2) ; { Вывод x }

if x<0.0 then t := 10 + x { Вычисление t для случая x<0 }

else if x<=2.0 then

t := 2.0 + x*x { Вычисление t для случая x>=0 и x<=2}

else t := 2.0 * x ; { Вычисление t для случая x > 2 }

z := (1/4 )* sin(x) + t ; { Вычисление z }

WriteLn ;

WriteLn(' Вычислено z=',z:7:3); { Вывод z }

End. { Конец программы}

6. Вид печати:

Введено x=-0.50

Вычислено z= 9.380

Введено x= 0.00

Вычислено z= 2.000

Введено x= 1.00

Вычислено z= 3.210

Введено x= 2.00

Вычислено z= 6.227

Введено x= 3.00

Вычислено z= 6.035

ПРИМЕР 3. Вычислить при заданных значениях a, b. Напечатать значения a, b,c.

Решение.

1. Расчётные формулы:

2. Тесты для проверки программы:

1. Исходные данные: a = 0, b = 0 ==> 0 0 ;

a = 0,2, b = 1,1 ==> 0.2 1.1 ;

a=2, b=2 ==> 2 2 ;

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

5. Программа:

Program Prim3 ; { Пример вычисления минимального значения.

Дано: a,b. Промежуточные значения - x,y,z.

Результат - с. }

Var a , b , X , y , z , c : real ; { Описание переменных }

Begin {Начало основного блока}

WriteLn(' Введите a,b:');

ReadLn(a,b) ; { Ввод a и b}

WriteLn;

WriteLn('a=',a:6:2,' b=',b:6:2);{ Вывод исходных данных}

x := a*a + b*b ; { Вычисление }

y := x / exp(x) ; { промежуточных }

z := Sqrt(x)/4 ; { величин }

if y<=z then c := y { Вычисление c при выполнении условия y<=z }

else c := z ; {Вычисление c при выполнении условия y > z}

WriteLn ;

WriteLn(' Вычислено c=',c:10:5); {Вывод результата}

End. { Конец программы}

6. Вид печати:

Введено a= 0.00 b= 0.00

Вычислено c= 0.00000

Введено a= 0.20 b= 1.10

Вычислено c= 0.27951

Введено a= 2.00 b= 2.00

Вычислено c= 0.00268

ПРИМЕР 4. Разработать программу, которая вычисляет для целых значений аргумента одну из заданных функций в указанной точке:

а) если x равен –5, -4, -3, -2, -1, 0, то ;

б) если x равен 1, 2 то ;

в) если x равен 3, 4, 5, 6, 7, 8, 9, 10, то ;

г) в остальных случаях .

Напечатать значения x, y.

Указание. Программу составить двумя способами:

а) с помощью условного оператора;

б) с помощью оператора выбора.

Решение.

1. Расчётные формулы:

2. Тесты для проверки программы:

; .

; .

; .

; .

; .

3. Исходные данные: x= -16 ==> -16;

x = -3 ==> -3;

x=2 ==> 2;

x=7 ==> 7;

x=36 ==> 36;

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

5. Программа:

Program Prim4 ; { Разветвляющийся вычислительный процесс}

{с помощью условного оператора}