IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Графика
Артур
сообщение 20.02.2006 0:25
Сообщение #1


Гость






Написать программу, по которой осуществляется управление перемещением в текстовом режиме символа ”*” по экрану в любом из горизонтальных и вертикальных направлений в пределах экрана
 К началу страницы 
+ Ответить 
Bokul
сообщение 20.02.2006 2:45
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


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

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


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Bokul
сообщение 20.02.2006 3:12
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


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

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


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 20.02.2006 10:02
Сообщение #4


Гость






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

Кстати, в заголовке темы явно указано: "Графика". При чем тут текстовый режим?
 К началу страницы 
+ Ответить 
Artur
сообщение 21.02.2006 12:01
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Артур

Репутация: -  0  +


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

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

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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 17.07.2025 19:35
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"