Не пойму в чём глюк?
пишет procedure/function takes more than 0 arguments, '(' expected
Чё за хрень такая?
program hello;
Procedure Gradient(h_i, w_i : Integer);
Var
i : integer;
begin
for i:= h_i downto 0 do
begin
SetColor((128 * i) / h_i, (128 * i) / h_i, (128 * i) / h_i);
DrawLine(0,h_i-i,w_i,h_i-i);
end;
end;
begin
delay(1000);
Gradient;
delay(10000);
end.
|