используя оператор цикла и графики , составте программу для рисования на экране рисунка

[maksu6ka2009]

используя оператор цикла и графики , составте программу для рисования на экране рисунка рисунок выгледет примерно так

    1      1      1     1      1   
  1  1   1  1  1  1  1  1  1  1  
1      1      1      1     1      1

приблизительго такой тока заместо еденичек линия

[maksu6ka2009]

1
1 1
1 1 и такое повторение ещё 5 раз

1
111
1111

рисунок просто не получается

[Allen Iverson]

могу предложить вместо этой программу рисующую круги на экране разного диаметра,цвета и в разных местах...

[Serge_Bliznykov]

maksu6ka2009, лови код:

uses graph;
var
  grD, grM, ErrorCode : integer;
  x,y,i : integer;
begin
  grD:=detect;
  initgraph(grD,GrM,'');
  ErrorCode := GraphResult;
  if ErrorCode = grOk then
    begin
      x := 0;
      y := 200;
      i := 1;
      MoveTo(x,y);
      while x<(GetMaxX-50) do begin
        x:=x+50;
        inc(i);
        if odd(i) then y:=200 else y:=50;
        LineTo(x,y);
      end;
    end
  else
    WriteLn('Graphic initilization error: ', GraphErrorMsg(ErrorCode));
  readln;
end.