Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

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

 
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.



Страницы: 1 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.013 c
2-1196447304
deras
2007-11-30 21:28
2007.12.23
Как вернуть прежнее значение в ячейку грида?


15-1195657961
oldman
2007-11-21 18:12
2007.12.23
Оказывается, вчера был Международный день ребенка


15-1195137434
alikon1
2007-11-15 17:37
2007.12.23
Не могу уследить логику работы калькулятора Windows


2-1195897949
WebSQLNeederr
2007-11-24 12:52
2007.12.23
Использование ini для загрузки настроек програмы


15-1195764332
Mul
2007-11-22 23:45
2007.12.23
А есть какие-нибудь статьи у Анатолия Подгоретского?