Turbo Pascal

[iArtur30]

Добрый день!

Срочно

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

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

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

[Watashi]

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

[iArtur30]

Что ?

помощь очень нужна

[iArtur30]

Товарищи,помогите пожалуйста

[Нюшка]

[iArtur30]

если бы все было так легко.

[MаXXL]

http://goo.gl/94ucT это тебе не в "яблоке" ковыряться!

[Нюшка]

готово, написал !!!

 

под DOS Turbo Pascal 7.0

12.zip

[S10]

Асм и битовая маска. Гы.

asm mov ax,13h

int 10h

[Нюшка]

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

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

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

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

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

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

 

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

 

Проблемы ?

 

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

 

asm mov ax,13h

int 10h end;

 

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

 

uses dos;

var r : registers;

...

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

[S10]

Проблемы ?

ТС не сдаст. Он на чистом-то паскале не написал, а уж с ассемблерными вставками...

[Нюшка]

Для особо тупых повторяю : не нравится вставка,

легко заменяется на r.AX:=$13; intr ($10, r);