нарисовать квадрат с длиной стороны 100 пикселей, используя процедуру linerel(x,y:integer)

[Кася_]

нарисовать квадрат с длиной стороны 100 пикселей, используя процедуру linerel(x,y:integer).

если можно, то всю прогу

[Stilet]

Кася, а давай не будеш постить одну и ту же тему по сто раз, в разных разделах, ато помогать никто не возьмется (Сори за флуд)

[capta1n]

при условии, что модуль GRAPH.TPU и драйвер EGAVGA.BGI находятся в одной папке с исполняемым кодом, программа работает:

program xd;
uses Graph;
const
  a = 100;
var
 gd, gm : integer;
 x0,y0 : integer;

 procedure linerel (x,y: integer);
 begin
   moveto (x,y);
   lineto (x+a,y);
   lineto (getx,y+a);
   lineto (getx-a,gety);
   lineto (x,y)
 end;

begin
  if a<0 then writeln ('Error!')
  else
  begin
    writeln ('Vvedite koordinati levogo verxnego ugla kvadrata:');
    write ('x= '); readln (x0);
    write ('y= '); readln (y0);
    gd:=detect;
    gm:=1;
    initgraph (gd,gm,'egavga.bgi');
    linerel (x0,y0)
  end;
  readln;
  closegraph
end.

ну а закрашенный квадратик рисуется с помощью процедуры

bar (x,y,x+a,y+a);

[puporev]

procedure linerel (x,y,a1 : integer);

Немного нарушено условие linerel(x,y:integer).
Покольку размер квадрата задан, параметр а1 в данном конкретном случае лишний.

[capta1n]

а ну сейчас по-другому сделаю ))

[puporev]

Да никаких подколов. Я честно говоря и не помню о чем Вы. Просто девушка сама может не врубиться, а задачу не примут.

[capta1n]

Просто девушка сама может не врубиться, а задачу не примут.

согласен с Вами