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