Протабулировать функцию - Pascal (4394)

Узнай цену своей работы

Формулировка задачи:

Вычислить На промежутке [-5; 5] с шагом 0.5 Правильно ли? Если нет, то Подкоректируйте, если не сложно, спасибо
var x, y: real;
begin
x:=-5;
while x<=5 do
begin 
if x<> -2 then begin
y:= sin^2*3*x-tg*x/x-2;
writeln('y=',y,'pri x=', x);
end
else writeln (' V etoi tocke funkciya ne sushestvyet ');
x:=x+0.5;
end;
end.
****************

Решение задачи: «Протабулировать функцию»

textual
Листинг программы
var x, y: real;
begin
x:=-5;
while x<=5 do
 begin
  if x<>2 then
   begin
    y:=(sqr(sin(3*x))-sin(x)/cos(x))/(x-2);
    writeln('x=',x:4:1,' y=',y:6:3);
   end
  else writeln ('x=',x:4:1,' V etoi tocke funkciya ne sushestvyet ');
  x:=x+0.5;
 end;
end.

Объяснение кода листинга программы

  1. Объявляются переменные x и y типа real.
  2. Значение переменной x устанавливается равным -5.
  3. Запускается цикл while, условием которого является x<=5.
  4. В теле цикла проверяется условие x<>2.
  5. Если x<>2, то объявляется переменная y и присваивается ей значение выражения (sqr(sin(3*x))-sin(x)/cos(x))/(x-2).
  6. Выводится строка 'x=', с указанием значения переменной x, а затем ' y=', с указанием значения переменной y.
  7. Если x<>2, то выводится сообщение 'x=', с указанием значения переменной x, а затем ' V etoi tocke funkciya ne sushestvyet '.
  8. Значение переменной x увеличивается на 0.5.
  9. Цикл while завершается, так как условие x<=5 выполняется.
  10. Программа завершается.

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы