Работа с модулем CRT

[ihimaru]

Доброй ночи =) я тут мучаюсь с одной задачкой не получается кое что доделать. Условие Вывести на экран массив из m строк и n столбцов в заданное пользователем координатами и размером окно, которое должно быть обрамлено двойной рамкой. )Не могу выделить ответ рамкой путаюсь в координатах , подскажите пожалуйста , как с помощью GoToxy нарисовать её , мне нужно еще сделать так , что бы она выводилась именно там где укажет пользователь

program dvmas;
  uses crt ;
  var i,j,m,n:integer;
  x1,y1,x2,y2:byte;
  a:array[1..100,1..100] of integer;

      begin
      clrscr;
         randomize;
           textbackground(blue);
           textcolor(7);
         writeln('верхний левый угол');readln(x1,y1);
           writeln('*нижний правый угол');readln(x2,y2);
         window(x1,y1,x2,y2); //положение окна

      writeln('количество строк матрицы');readln(m);
        writeln('количество столбцов матрицы');readln(n);
        for i:=1 to m do
         for j:=1 to n do
         begin
       a[i,j]:=random(10); // произвольное заполнение
       end;

       for i:=1 to m do
          begin
         for j:=1 to n do
        write(a[i,j],' '); //вывод матрицы
        writeln;
        end;
        readkey;
     end.

Вообщем ну трудно видеть что она просто красиво по заданным пользователем координатам выводи окошко с матрицей размер которой тоже задается пользователем. Мне не нужна готовая программа хотя бы покажите как эту таблицу рисовать в моем случае

[Stilet]

Рамку примерно так, если по простому:

gotoxy(1,1);for i:=1 to x2-x1 do write('-');
gotoxy(1,y2-y1);for i:=1 to x2-x1 do write('-');
for i:=1 to y2-y1 do gotoxy(1,i); write('|');
for i:=1 to y2-y1 do gotoxy(x2-x1,i); write('|');

[Serge_Bliznykov]

посмотрите мой пример вот тут

[ihimaru]

Спасибо ! вы мне очень помогли ) теперь разобрался как рисовать рамки через goto , преподаватель придрался к острым углам у нее, еще мучаюсь. Сами символы нашел пытался вставить тупо после прорисовки границ рамки , но они выводились всегда рядом с ней, абракадабра блин.

[Serge_Bliznykov]

преподаватель придрался к острым углам у нее

что значит - "острые угры" ?! в стандартно знакогенераторе символы псевдографики имеют прямые углы (под 90 градусов). А какие углы у вашего преподавателя, тупые?! сделайте скриншот (или сфоткайте), дайте посмотреть на её рамки!

Сами символы нашел пытался вставить тупо после прорисовки границ рамки , но они выводились всегда рядом с ней, абракадабра блин.

что именно нашли? Как пыетесь вставить? GotoXY не забываете предварительно делать?

Давайте Ваш код, посмотрим, что у Вас не получается!

[ihimaru]

Я немного не правильно выразился проблема в том , что на углах рамки нужно вставить ╗ , ╝ , ╚ , ╔ вот что то вроде этого,
вот код с подсказанными мне исправлениями и скрин

program dvmas;
  uses crt ;
  var i,j,m,n:integer;
  x1,y1,x2,y2:byte;
  a:array[1..100,1..100] of integer;
 
      begin
      clrscr;
         randomize;
 
         textbackground(blue);
             textcolor(7);
 
              writeln('верхний левый угол');readln(x1,y1);
           writeln('нижний правый');readln(x2,y2);
         window(x1,y1,x2,y2); // положение окна
 
      writeln('строки ');readln(m);
        writeln('столбцы');readln(n);
        for i:=1 to m do
         for j:=1 to n do
         begin
       a[i,j]:=random(10);
       end; // заполнение массива
 
       for i:=1 to m do
          begin
         for j:=1 to n do
        write('  ',a[i,j],' ');
        writeln;
        end;  //вывод массива
 
     gotoxy(1,1);
         for i:=1 to x2-x1 do write('Н');
      gotoxy(1,y2-y1);
   for i:=1 to x2-x1 do write('Н');
 
             for i:=1 to y2-y1 do begin gotoxy(1,i);
            writeln('є');end;
           for i:=1 to y2-y1 do begin gotoxy(x2-x1,i);
                 writeln('є');end;   // прорисовывание массива рамкой 
 
        readkey;
     end.

вот так я пытался вставить уголок gotoxy(1,x2-x1); write('╗');отображался он чуть правее верхнего правого угла , скрин я приложил без попыток нарисовать уголки.

[ihimaru]

Вот такие дела)

[ihimaru]

Закрывайте тему , все равно уже никто не отпишется.

[Serge_Bliznykov]

блин, Вы ещё до сих пор не решили свою проблему?!?!?! я был на 146% уверен, что уже всё давно сделано и решено!

проверяйте:

   .....
  end; {вывод массива }


  gotoxy(1, 1);
  write(chr(201)); { левый верхний угол для двойных линий}
  for i := 2 to x2 - x1 - 1 do write(chr(205));
  write(chr(187)); { правый верхний угол для двойных линий}
  gotoxy(1, y2 - y1);
  write(chr(200)); {левый нижний угол для двойных линий}
  for i := 2 to x2 - x1 - 1 do write(chr(205));
  write(chr(188)); {правый нижний угол для двойных линий}

  for i := 2 to y2 - y1 - 1 do begin
    gotoxy(1, i);
    write(chr(186));
  end;
  for i := 2 to y2 - y1 - 1 do begin
    gotoxy(x2 - x1, i);
    write(chr(186));
  end; { прорисовывание массива рамкой }

  readkey;

[ihimaru]

Благодарю! все работает ! проанализировал каждую вашу строчку , все понятно разобрался) оставлю у себя в хранилище примеров) пригодится =))