Библиотека CRT

[Alexsey1991]

uses crt;
var
x,y,i:integer;
kl:char;
begin
CRTWindowSize(100,100);
hidecursor;
textsize(20);
TextColor(4);
i:=0;
repeat
  kl:=readkey;
  write(kl);
  i:=i+1;
until false;
end.

При нажатии любого символа программа печатает его в случайном незанятом месте окна.Если всё окно заполнено ,вод символов прекращается.
Помогите доделать код.Как сделать чтобы печатала в случайном порядке?
И как сделать чтобы программа проверила что окно заполнено?

[Serge_Bliznykov]

1)

CRTWindowSize

что это за процедура? в стандартном CRT такой функции НЕТ!

2)

При нажатии любого символа программа печатает его в случайном незанятом месте окна.

есть много способов решить подобную задачу.

а) обращаться напрямую к видеопамяти и считывать оттуда значение символа, который находится в выбранном случайном месте, если оно занято, выбирать другое случайное место и т.д. крайне неэффективно...

б) завести массив, размером равным размеру экрана.
и отмечать там занятые ячейки. Для удобства завести счётчик свободных мест

с) и, на мой взгляд, лучший способ из всех предложенных тут:
заводим массив, размером равным размеру экрана.
заполняем его последовательно всеми возможными координатами, где можно вывести символ. Потом случайным образом перемешиваем эти координаты.
Дальше просто - при каждом нажатии на клавишу берём следующие координаты.
Всё.

[Alexsey1991]

покажите примерно как это делать??

[Stilet]

крайне неэффективно.

Развенчаю этот бессмысленный миф:

uses crt;
var c,x,y:integer;
begin
 clrscr;
 repeat
  x:=random(20);y:=random(20);
  c:=mem[$b800:$0000+(y*160+(x)*2)];
  while not (c in [0,32])and(not keypressed) do begin
   x:=random(20);y:=random(20);
   c:=mem[$b800:$0000+(y*160+(x)*2)];
  end;
  mem[$b800:$0000+(y*160+(x)*2)]:=ord('0');
until keypressed;
end.

[Alexsey1991]

Сообщение от Stilet

c:=mem[$b800:$0000+(y*160+(x)*2)];

Скажите что это такое а то у меня паскаль ABC не знает его!!

[Serge_Bliznykov]

Развенчаю этот бессмысленный миф:

миф??!
простите, Виталий, не могу с Вами согласиться....
1) Данный код у меня не работает. (заполняется вертикальный столбец нулями, а потом по нажатию любой клавиши - выход...) ну, это думаю можно поправить.

2) Вас спасает быстродействие - ну действительно, даже 15 лет назад, а не говоря уж о современных компьютерах, что стоит сгенерировать несколько тысяч (а точнее, думаю, десятков) тысяч случайных координат, пока не найдётся пустая ячейка?...
(простой счётчик, подсчитывающий сколько раз сгенерили координаты, попадающие на уже занятое поле, легко покажет это. вначале, естественно, каждая пара координат будет генерится по разу, но потом, по мере заполнения поля, это число будет расти, и весьма сильно расти...

3) Кроме того, Вы совершенно забыли обеспечить завершение работы программы, после того, как не останется свободных ячеек: "Если всё окно заполнено ,вод символов прекращается."


___________________________________ _

Сообщение от Alexsey1991

c:=mem[$b800:$0000+(y*160+(x)*2)];

Скажите что это такое а то у меня паскаль ABC не знает его!!

это прямое обращение к видеопамяти.
Это прокатит только исключительно под DOS TurboPascal! Боюсь, что Ваш PascalABC Вас туда не пустит!

[Alexsey1991]

Сообщение от Serge_Bliznykov

Боюсь, что Ваш PascalABC Вас туда не пустит!

А как сделать на паскале ABC???

[Serge_Bliznykov]

А как сделать на паскале ABC???

пользуетесь моей добротой...
причём, бесплатно!

uses crt;
const 
  MaxX = 10;
  MaxY = 5;

type 
  Point = record
    x, y : integer;
  end;

var
  i, j, k  : integer;
  kl   : char;
  PointArray : array[1..MaxX*MaxY] of Point;
  Tmp : Point;
begin
  {заполним массив всеми координатами}
  for i:=1 to MaxY do
    for j:=1 to MaxX do begin
      PointArray[(i-1)*MaxX + j].x := j;
      PointArray[(i-1)*MaxX + j].y := i;
    end;

  Randomize;
  {перемешиваем координаты 
     (тысяча случайных перемешиваний)
     1) можно брать любое достаточно большое число
     2) можно перемешивать чуть по другому - в двойном цикле,
          чтобы каждый элемент гарантированно перешёл на другое место...
  }
  for i:=1 to 1000 do begin
     j := Random(MaxX*MaxY) + 1;
     k := Random(MaxX*MaxY) + 1;
     if j<>k then begin
       Tmp := PointArray[j];
       PointArray[j] := PointArray[k];
       PointArray[k] := Tmp;
     end;
  end;

(* {выдать координаты на экран - для визуальной проверки}}
  for i:=1 to MaxX*MaxY do
  begin
    Write('(',PointArray[i].x, ',',PointArray[i].y,')');
    if (i mod 10) = 0 then WriteLn;
  end;
  Halt; {прервать выполнение программы}
*)

  CRTWindowSize(MaxX, MaxY);
  hidecursor;
  textsize(20);
  TextColor(4);
  i:=1;
  repeat
    kl:=readkey;
    gotoxy(PointArray[i].x,PointArray[i].y);
    write(kl);
    i:=i+1;
  until (i>MaxX*MaxY);
end.