рельеф произвольной функции двух переменных

[cote]

у меня получилось как то так
uses
graph, crt;
const
Xmin=220;
Ymin=140;
Xmax=420;
Ymax=240;
var
x, y, a, b, c, i, max, min, sector, j, gd, gm, z:integer;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
InitGraph(gd, gm, '');
min:=0;
max:=0;
for x:=Xmin to Xmax do begin
for y:=Ymin to Ymax do begin
z:=a*x+b*y+c;
if z<=min then
min:=z
else if z>=max then
max:=z;
end;
end;
sector:=round(abs(max-min)/16);
for x:=Xmin to Xmax do begin
for y:=Ymin to Ymax do begin
z:=a*x+b*y+c;
for i:=1 to 15 do begin
if (min<=z) and (z<min+sector*i) then begin
putpixel(x,y,i-1);
end;
end;
end;
end;
readln;
end.
только для определенной функции, тоесть прямой, но вроде не то что то получилось посмотрите пожалуйста.

[s-andriano]

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

А какая разница?

Вы спрашиваете чем |a| + |b| отличается от a-b ?

[cote]

нет не это.

программа почемуто все закрашивает одним цветом белым как исправить это?

[s-andriano]

Начнем с того, что Вы неверно инициализируете первоначальные значения min и max.
Проще всего, инициализировать их некоторой величиной, заведомо входящей в область значения функции. Например, в углу или центре рассматриваемого региона.

И оформите нормально код - невозможно читать.

[cote]

rogram a25;
usesgraph, crt;
constXmin=-200;Ymin=-200;Xmax=200;Ymax=200;
varx, y, a, b, c, i, max, min, sector, j, gd, gm:integer;z:longint;
beginInitGraph(gd, gm, '');min:=0;max:=0;for x:=Xmin to Xmax do beginfor y:=Ymin to Ymax do beginif (x+y<>0) thenz:=round(100{/x+y});if z<=min thenmin:=zelse if z>=max thenmax:=z;end;end;sector:=round(abs(max-min)/16);for x:=Xmin to Xmax do beginfor y:=Ymin to Ymax do beginz:=round(100/x+y);for i:=1 to 16 do beginif (min<=z) and (z<min+sector*i) then beginputpixel(getmaxx div 2+x,getmaxy div 2+y,i-1);end;end;end;end;readln;
end.
ну тогда как то так оно почемуто выдает ошибку деления на 0 хотя проверка зделана.

[Rin]

s-andriano

Вы спрашиваете чем |a| + |b| отличается от a-b ?

Да уж, что то дал лиха я. Вы правы. Нужно max-min.
cote
Есть такая кнопка #. Вот через неё и оформляют код.

z:=round(100/x+y);

А вот тут я что-то не увидел проверки, и x+y легко могут дать в сумме нуль.

[cote]

uses
   graph, crt;
const
   Xmin=-200;
   Ymin=-200;
   Xmax=200;
   Ymax=200;
var
   x, y, a, b, c, i, max, min, sector, j, gd, gm:integer;
   z:longint;
begin
  InitGraph(gd, gm, '');
  min:=0;
  max:=0;
  for x:=Xmin to Xmax do begin
     for y:=Ymin to Ymax do begin
        if (x+y<>0) then
           z:=round(100/x+y);
        if z<=min then
           min:=z
        else if z>=max then
                max:=z;
     end;
  end;
  sector:=round(abs(max-min)/16);
  for x:=Xmin to Xmax do begin
     for y:=Ymin to Ymax do begin
        z:=round(100/x+y);
        for i:=1 to 16 do begin
           if (min<=z) and (z<min+sector*i) then begin
              putpixel(getmaxx div 2+x,getmaxy div 2+y,i-1);
           end;
        end;
     end;
  end;
  readln;
end.

Проверка есть но почемуто все равно выскакивает ошибка деление на ноль.

[Rin]

Есть кнопка со значком #, которая формирует тэг {code}тут пишут код {/code} замечание: чтобы тег работал, нужно "{}" заменить на "[]".

rogram a25;
usesgraph, crt;
const
Xmin=-200;    Ymin=-200;
Xmax=200;     Ymax=200;
var 
x, y, a, b, c, i, max, min, sector, j, gd, gm:integer;
z:longint;
begin
InitGraph(gd, gm, '');
min:=0;
max:=0;
for x:=Xmin to Xmax do
begin
   for y:=Ymin to Ymax do
   begin
      if (x+y<>0) then
      z:=round(100{/x+y});
      if z<=min then
      min:=z
      else if z>=max then
      max:=z;
     end;
  end;
sector:=round(abs(max-min)/16);
for x:=Xmin to Xmax do 
begin
  for y:=Ymin to Ymax do
  begin
     z:=round(100/x+y); // А тут кто проверять будет?
     for i:=1 to 16 do
     begin
        if (min<=z) and (z<min+sector*i) then
        begin
            putpixel(getmaxx div 2+x,getmaxy div 2+y,i-1);
        end;
     end;
   end;
end;
readln;
end.

Возьмите за правило всегда проверять знаменатель на равенство нулю.

[cote]

Хорошо возбму за правило)) В этом коде ошибка после верхней проверки вылезает ошибка 200: деления на ноль. И как исправить не могу.

[s-andriano]

Вы делите на х, нигде не проверяя, что х отличен от 0.