Перейти к содержанию

Turbo Pascal


iArtur30

Рекомендуемые сообщения

Добрый день!

Срочно

Кто нибудь может в паскале нарисовать 12 животных (совершенно примитивно)

крыса, корова,тигр,заяц, дракон,змея,лошадь,овца,обезьяна,курица,собака,свинья.

ЗАРАНЕЕ СПАСИБО!!!

Ссылка на комментарий
Поделиться на другие сайты

А что у меня не так по условиям задачи ?

Программа написана на Паскале,

прекрасно компилится и выполняется на Borland Turbo Pascal 7.0

Алгоритм её работы прост: картинка 200х200х8 сохранена в BMP,

перегнана в массив, включается режим VGA,

устанавливается палитра, переписываются данные в видео-память.

 

В результате работы программы: на экране 12 животных.

 

Проблемы ? :fu:

 

зы: если смущает

 

asm mov ax,13h

int 10h end;

 

его можно заменить на

 

uses dos;

var r : registers;

...

r.AX:=$13; intr ($10, r);

Ссылка на комментарий
Поделиться на другие сайты

Заархивировано

Эта тема находится в архиве и закрыта для дальнейших ответов.

×
×
  • Создать...