TP7.0,Graph

[What's_That?]

Укажите на грубые,глупые,грубые+глупые ошибки в следующем коде:

uses crt,graph;
type
point=object
constructor Init(x,y:integer);
procedure draw(x1,y1:integer;color:word);
end;
constructor point.Init;
begin
x:=random(25);
y:=random(25);
end;
procedure point.draw;
begin
putpixel(x1,y1,color);
end;
var
a:^point;
corX,corY,N,d,r:integer;
aColor:word;
begin
clrscr;
d:=detect;
InitGraph(d,r,'');
N:=random(4);
case N of
1:aColor:=yellow;
2:aColor:=green;
3:aColor:=blue;
4:aColor:=white;
end;
corX:=random(25);
corY:=random(25);
new(a,Init(corX,corY));
a^.draw(corX,corY,aColor);
end.

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

[Serge_Bliznykov]

1) тема у Вас всё таки не Graph - а описание/создание объекта

2) по поводу a:^point;
с указателями у Вас, в принципе было правильно. Только я не вижу необходимости в их использовании в данном случае.
Если нужно - вернёте обратно.
Только если выделяете память через new() не забывайте освобождать её (память) через Dispose()

3) всё остальное (имхо) куча ошибок (как мелких - типа не использование randomize и при random(4) проверка на то, что N = 4, так и принципиальных. Процедура Init по сути была бессмысленной, ибо результаты x:= y:= random(25) никуда не сохранялись!

я быстренько переделал так, как я посчитал правильным (ООП не моя сильная сторона, поэтому на 100% правильность не претендую...) Но, имхо, код стал меньше, понятнее, проще и, главное, более приближенным к правильному...

uses crt, graph;
type
  point = object
    x, y: integer;
    aColor: word;
    constructor Init;
    procedure draw;
  end;

constructor point.Init;
var N : integer;
begin
  x := random(25);
  y := random(25);
  N := random(4);
  case N of
    0: aColor := yellow;
    1: aColor := green;
    2: aColor := blue;
    3: aColor := white;
  end;

end;

procedure point.draw;
begin
  putpixel(x, y, aColor);
end;

var
  a: point;
  d,r : integer;
begin
  clrscr;
  Randomize;
  d := detect;
  InitGraph(d, r, '');
  a.Init;
  a.draw;
  readln
end.

[What's_That?]

Спасибо вам большое))