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

[Ilya Petrov]

Здравствуйте, имеется задача:

program project1;
uses
  Classes, SysUtils, Math;
const
  ay=pi/4;
  by=pi/2;
var
  i,j,kx,ky:integer;
  s,sx,sy: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;
  sx:=FloatToStr(dx);
  sy:=FloatToStr(dy);
  kx:=StrToInt(sx);
  ky:=StrToInt(sy);
  for i:=1 to kx do
   for j:=1 to ky do
   begin
     Writeln('x = ', nx:6:3,'  y = ', ny:6:3,' F(x) = ',(f(nx,ny)):8:5);
     nx:=nx+hx;
     ny:=ny+hy;
   end;
  Writeln('Replay - Enter. Quit - Any symbol + Enter.');
  Readln(s);
 until s<> '';
end.

Правильно ли я сделал?

Спасибо..

[Ilya Petrov]

Ребят, ну же, посмотрите пожалуйста..

[Stilet]

Ну посмотрел? Дальше что?
Допустим я скажу что все неправильно - что будешь делать?

[Ilya Petrov]

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

Ну посмотрел? Дальше что?
Допустим я скажу что все неправильно - что будешь делать?

Будь любезен, укажи где закралась ошибка и как ее исправить. Если не сложно, конечно..

[Vanta11a]

     nx:=nx+hx;

Перенести в цикл для X, убрав из У.
У вас получается что-то в духе 1-1, 2-2, 3-3 и т.д., хотя должно быть 1-1, 1-2, 1-3, ...

[Stilet]

Не только тут.
Вот еще:
Read(ax,bx,dx,dy);
Quit - Any symbol + Enter.
Сюда же неясно зачем в строки переводить икс и игрек перед циклами

И самое главное что я хотел выяснить, но автор так и не понял - что мешало скомпилировать код, запустить его и проверить результаты. Это самая главная ошибка.

[Ilya Petrov]

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

     nx:=nx+hx;

Перенести в цикл для X, убрав из У.
У вас получается что-то в духе 1-1, 2-2, 3-3 и т.д., хотя должно быть 1-1, 1-2, 1-3, ...

[Ilya Petrov]

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

Не только тут.
Вот еще:
Read(ax,bx,dx,dy);
Quit - Any symbol + Enter.
Сюда же неясно зачем в строки переводить икс и игрек перед циклами

И самое главное что я хотел выяснить, но автор так и не понял - что мешало скомпилировать код, запустить его и проверить результаты. Это самая главная ошибка.

А тут что не то?

Нет в моей версии паскаля функций FloatToInt. Поэтому изощраемся как можем.

[Stilet]

А тут что не то?

Read для ввода с клавиатуры не рекомендуется.
Насчет анисимвола - но комментс.
Насчет FloatToInt читай про функцию trunc(), и я вообще не понимаю зачем в целое переводить. А если ты заявишь что с вещественными не работает FOR то я заранее тебя посылаю изучать While.

[Vanta11a]

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