Графика Опции

[Артур]

Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана

[Bokul]

так тебе в графическом или текстовом режыми надо делать задачу,
если в текстовом то читаеш нажатую клавишу (например стрелка вверх
- двигаем звездачку вверх).
А то место где она стояла затираем пробелом.
Вот и все

Сообщение отредактировано: Bokul - 20.02.2006 2:58

[Bokul]

Вот решения для текстового режима

Код

uses crt;
var ch:char;
    i,j:byte;
begin
clrscr;
i:=1;
j:=1;
while ch<>#27 do
begin
ch:=readkey;
  gotoxy(i,j);
  write(' ');
  if (ch=#77) and (i<80) then  inc(i);
  if (ch=#75) and (i>1)  then  dec(i);
  if (ch=#80) and (j<25) then  inc(j);
  if (ch=#72) and (j>1)  then  dec(j);
  gotoxy(i,j);
  write('*');
  end;
end.

Esc для выхода


А если хочешь избавится от курсора то используй эту процедуру

Код

procedure Hide_Cursor;
var Regs  :Registers;
begin
   with Regs do begin
     Ah:=1;
     Ch:=$20;
     Cl:=0;
     Bh:=0;
     Intr($10,Regs);
   end;
end;

Сообщение отредактировано: Bokul - 20.02.2006 3:13

[volvo]

А если хочешь избавится от курсора то используй эту процедуру

А поиском воспользоваться? Я же приводил процедуры для скрытия/установки курсора... Здесь: Курсор

Кстати, в заголовке темы явно указано: "Графика". При чем тут текстовый режим?

[Artur]

Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана

Спасибо большое !!!!!
Мне нужно было в текстовом режиме, а графику я так нечайно написал.
Еще раз спасибо !!!!!!!!!!!!!!!