Задание
Вычислить значение функции:
Где х = -0.3, -0.2, … 0.7, 0.8, 1.
Выбор алгоритма решения задачи
Для решения этой задачи, необходимо определить значение х. Если значение x>0.5, тогда мы вычисляем значение первой формулы, иначе – второй.
Описание схемы алгоритма решения задачи
В данной программе необходимо сделать два условия:
1. x>0.5
2. x <> 0.
После чего необходимо вычислить значение выражения и увеличивать число х пока оно не станет больше 1.
Блок-схема
Текст програми
program lab1;
var
x,y:real;
begin
x:=-0.3;
while x<1 do begin
if x >0.5 then begin
y:=sqr(x)*sqr(x)*sqr(x) + Exp(x)*Exp(x);
writeln('y:= ',y:3:2);
end else if x<>0 then begin
y:=(sin(x)/cos(x))/x;
writeln('y:= ',y:3:2);
end
else
writeln('ERROR!!! Deleniye na 0');
x:=x+0.1;
end;
readln;
end.
Результати роботи програми
