VPF::Вывод прямоугольника [TurboPascal] - Форум программистов

oshilan

Дата 1.6.2011, 12:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 21.3.2010

Репутация: нет
Всего: 0

Есть работающая программа, выводящая зелёный прямоугольник на экран в режиме записи 2. Просьба переделать программу, чтоб она работала в режиме записи 1. Замена двойки на единицу не помогает smile

Код

uses
  crt,dos;
const
  clr=2; {зеленый}
  x1=160;
  y1=120;
  x2=480;
  y2=240; {высота одной горизонтальной линии}
var
  reg:registers;
  i,j,o,q:word;
begin
  clrscr;
  reg.ah:=0;
  reg.al:=$10;
  intr($10,reg);
  for i:=x1 to x2 do {- - - -}
    for j:=y1 to y2 do begin {| | | |}
      port[$3CE]:=$05;
      port[$3CF]:=$02; {режим записи 2}
      o:=j*80+i div 8;
      q:=mem[$A000:o];
      mem[$A000:o]:=clr;
    end;
  readln;
end.

Зараннее спасибо! ;)