обращение к ф-ии

← →
t-t (2007-11-27 22:43) [0]

//****************************** // элипс function X( var t,a:integer):integer; begin x:= round( a* sin(t*pi/180)); // end; function Y( var t,b:integer):integer; begin y:=round(b* cos(t*pi/180) ); end; //****************************** procedure Tochka(var x:integer;var y:integer); //процедура рисования увеличенного пиксела begin r:=255;g:=0;b:=255; PaintBox1.Canvas.Pen.Color:= RGB(r, g, b); PaintBox1.Canvas.Brush.color:=RGB(r,g,b); PaintBox1.Canvas.Rectangle(x*dd,(round(H/dt)*dt)-(y*dt),x*dd+dd,(round(H/dt)*dt)-(y*dt)+dt); end; procedure _R_; //само построение var t,a,b:integer; begin a:=random(200); b:=random(200); paintbox1.Canvas.Pen.Color := 666; for t:=0 to 360 do begin if t=0 then begin tochka(x(t,a)+300,y(t,b)+200); paintbox1.Canvas.MoveTo(x(t,a)+300,y(t,b)+200) end else paintbox1.Canvas.LineTo(x(t,a)+300,y(t,b)+200); end; end;

где выделенно выдает ошибку... как исправить?

← →
Anatoly Podgoretsky © (2007-11-27 22:45) [1]

А про ошибку будешь молчать?

← →
t-t (2007-11-27 22:47) [2]

Types of actual and formal var parameters must be identical

забыл совсеим %) сорри

← →
Anatoly Podgoretsky © (2007-11-27 22:48) [3]

> t-t (27.11.2007 22:47:02) [2]

Ну и что не понятно в таком простом тексте?
Его даже не зная английского легко перевести со словариком.

← →
t-t (2007-11-27 22:53) [4]

пробывал округлять.. то же самое...

← →
Putnik (2007-11-27 22:54) [5]

Убери var в объявлении в процедуре tochka. Тебе же не надо изменять их значения в процедуре и возвращать их.

← →
t-t (2007-11-27 22:56) [6]

спасибо, Putnik

← →
SergeyIT (2007-11-27 23:47) [7]

Кроме [5]
убрать var в других функциях,
и лучше переименовать функции X и Y.

обращение к ф-ии Найти похожие ветки