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

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

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

> СИСТЕМНЫЕ ФУНКЦИИ В ТЕКСТОВОМ РЕЖИМЕ ОС+графика во №2 задание, Pascal+Assembler
Насянечка
сообщение 10.05.2007 16:23
Сообщение #1





Группа: Пользователи
Сообщений: 5
Пол: Женский

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


№1В режиме ожидания выводить букву “a” (латинское) через 0,5 сек синим цветом;
a)по нажатию 1 текущую букву сделать заглавной и выводить зеленым цветом, по нажатию 2 – снова маленькой и синего цвета;
b)выход по нажатию Escape.


№2Средствами BIOS вывести синее кольцо и по нажатию стрелок вверх-вниз увеличивать и уменьшать его радиус
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Ozzя
сообщение 11.05.2007 6:57
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

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


Цитата
№2Средствами BIOS вывести синее кольцо и по нажатию стрелок вверх-вниз увеличивать и уменьшать его радиус

Средствами BIOS можно только точку вывести
var
x,y: Word;
color:Byte;
...
asm
mov AH,0Ch ' запись пиксела;
mov AL,color ' номер цвета;
mov BH,0 'номер страницы ;
mov CX, X ' координата X;
mov DX,Y ' координата Y.
int 10h
end;

Далее нужно начертить две окружности. Код для окружности приводился, поищите.
Может всё-таки увеличивать радиусы? У кольца их два - внтуренний и внешний.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



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