Задача по значениям функции

[Ilya Petrov]

Сообщение от Vanta11a

Вы бы код показывали с правками. Или хотя бы исправленный кусок с точностью до цикла.

Ну, собственно как Вы и сказали:

program project1;
uses
  Classes, SysUtils, Math;
const
  ay=pi/4;
  by=pi/2;
var
  i,j,kx,ky:integer;
  s:string;
  ax, bx, dx, dy, hx, hy, nx, ny:extended;
   function f(x,y:extended):extended;
  begin
   f:=(cos(y/3)/sin(y/3))+sin(x);
  end;
begin
  repeat
   Writeln('Please enter parameters:');
 Read(ax,bx,dx,dy);
  hx:=(bx-ax)/dx;
  nx:=ax;
  hy:=(by-ay)/dy;
  ny:=ay;
  kx:=trunc(dx);
  ky:=trunc(dy);
  for i:=1 to kx do
     nx:=nx+hx;
   for j:=1 to ky do
   begin
     Writeln('x = ', nx:6:3,'  y = ', ny:6:3,' F(x) = ',(f(nx,ny)):8:5);
     ny:=ny+hy;

   end;
  Writeln('Replay - Enter. Quit - Any symbol + Enter.');
  Readln(s);
 until s<> '';
end.

[Vanta11a]

Потому что сначала будет выполнено

  for i:=1 to kx do
     nx:=nx+hx;

А потом

 for j:=1 to ky do
   begin
     Writeln('x = ', nx:6:3,'  y = ', ny:6:3,' F(x) = ',(f(nx,ny)):8:5);
     ny:=ny+hy;

   end;

У Вас эти циклы не вложены друг в друга. Нужно добавить Begin ... End

[Stilet]

Ilya Petrov

Еше раз акцентирую: Цикл типа FOR в данной программе неуместен.