Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Графика

Автор: Артур 20.02.2006 4:25

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

Автор: Bokul 20.02.2006 6:45

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

Автор: Bokul 20.02.2006 7:12

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

Код

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;

Автор: volvo 20.02.2006 14:02

Цитата
А если хочешь избавится от курсора то используй эту процедуру
А поиском воспользоваться? Я же приводил процедуры для скрытия/установки курсора... Здесь: http://forum.pascal.net.ru/index.php?s=&showtopic=6531&view=findpost&p=48355

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

Автор: Artur 21.02.2006 16:01

Цитата(Артур @ 20.02.2006 0:25) *

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

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