Вычислить значение функции с шагом(Delphi-консольное приложение

[MATTT]

Вычислить значения функции y=f(x) вещественного аргумента x, исключая точки разрыва. Функция f(x) задана на отрезке [a, b]. Аргумент x изменяется от а до b с шагом h.
y := ((sin(x)*sin(x))/((x*x)-4))+((cos(x)*cos(x)))/((x-3)*(x-5));

Помогите,пожалуйста,а то все делаю и не получается.

[ZX Spectrum-128]

А что не получается-то? Вы ваш код покажите и ошибки, которые возникают.

[MATTT]

uses
  SysUtils,
  math;

function fx(x: double) : double;
begin
 fx:=(sin(x)*sin(x))/((x*x)-4)+((cos(x)*cos(x))/((x-3)*(x-5))
 var
     a1, b1, d1 : double;
     a2, b2, d2 : double;
     x,y : double;
     flag:integer;
begin
      x:=a1;
if x=2 then begin
writeln('y=vvedite drygoe znachenie'y);read(y);
if x=-2 then begin
writeln('y=vvedite drygoe znachenie'y);read(y);
if x=3 then begin
writeln('y=vvedite drygoe znachenie'y);read(y);
if x=5 then begin
writeln('y=vvedite drygoe znachenie'y);read(y);
end;

begin
 flag:=-20;
 while flag>-20 do
       writeln('Input a1 b1 d1')
       readln( a1, b1, d1);
       writeln('Input a2 b2 d1');
       readln(a2,b2,d2);
       x:=a1;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

uses
  SysUtils;

var
  a, b, h: real;
  x, y: real;

begin
  x := a;
  while x <= b do
  begin
    y := ((sin(x)*sin(x))/((x*x)-4))+((cos(x)*cos(x)))/((x-3)*(x-5));
    writeln('|', x:9:4, '|', y:9:4, '|');
    readln(x,y);
    x := x + h;
    readln(x,y);
     while a=-2  do
     writeln('tochka razriva'y);
     readln(a,y);
     while a=2  do
     writeln('tochka razriva'y);
     readln(a,y);
     while a=3  do
     writeln('tochka razriva'y);
     readln(a,y);
     while a=5  do
     writeln('tochka razriva'y);
     readln(a,y);




end;

ВОТ ДРУГИМ СПОСОБОМ ПОПРОБОВАЛ А ТОЖ ЕРУНДА КАКАЯ-ТО ПОЛУЧАЕТСЯ



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Вам функцию в цикле нужно вычислять.

X:=a;
While x<b do
 Begin
  Y:=
  X:=x+h;
... 
 End;

Примерно так.

[MATTT]

А КАК УКАЗАТЬ ТОЧКИ РАЗРЫВА? ЧТОБЫ ПРИ ПОДСЧЕТЕ ОНА МНЕ НАПИСАЛА ЭТО В КОНСОЛЕ ,ЧТО ДАННАЯ ТОЧКА ЯВЛЯЕТСЯ ТОЧКОЙ РАЗРЫВА?

[ZX Spectrum-128]

Во в второй программе не инициализированы а и b. Сделайте их ввод ДО цикла.

[type_Oleg]

MATTT, впечатление такое, что это - вообще первое, что вы пытались написать на Паскале.
Я даже не знаю, что посоветовать. У вас все правильно до конца строки

fx:=(sin(x)*sin(x))/((x*x)-4)+((cos(x)*cos(x))/((x-3)*(x-5)) ; // ; забыли

Все остальное - ничего не понятно.
Хотя бы посчитайте количество begin и end . Вы не поверите, но количества должны совпадать.


PS Я про первый вариант.

[ZX Spectrum-128]

Там где идет деление на ноль, это и есть точка разрыва. Формулу разделите на две части - выделите отдельно числитель и знаменатель. Если знаменатель равен 0 , это точка разрыва.

[MATTT]

вообще мало что понимаю)) а экзамен надо сдавать)))

сейчас попробую)

каким лучше способом, или какой вернее?

uses
  SysUtils;

var
  a, b, h: real;
  x, y: real;

begin
  x := a;
  while x < b do
  begin
  y := ((sin(x)*sin(x))/((x*x)-4))+((cos(x)*cos(x)))/((x-3)*(x-5));
   X:=x+h;
   writeln(x,y);
   readln(x,y);



end;


begin
  { TODO -oUser -cConsole Main : Insert code here }
end;

end.

СДЕЛАЛ ТАК ФОРМА ПОЯВЛЯЕТСЯ И СРАЗУ ИСЧЕЗАЕТ,НЕ ЗАДЕРЖИВАЕТСЯ НА ЭКРАНЕ

[type_Oleg]

Естественно сразу исчезнет. Потому что a, x, b никто не определил. Они скорее всего = 0, поэтому условие во while ни разу не выполняется, и сразу end

Кто-то же должен сообщить программе входные данные - a, b, h. Откуда она их узнает.
Надо же ReadLn(a,b,h), что-то вроде того.