Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

П. Абель. Язык ассемблера для IBM PC и программирования.

А. Епанешников, В. Епанешников. Программирование в среде Turbo Pascal 7.0.

Г. Шилдт. Язык Си для профессионалов.

Інфоpмацiйнi технологiї в сучаснiй школi. А.Ф.Веpлань, Л.О.Твеpезовська, В.А.Федоpчук.

Пpогpамиpование в сpеде Туpбо Паскаль. Д.Б.Поляков, И.Ю.Кpуглов

Пpогpамиpование видеоадаптеpов. А.В.Фpолов, Л.В.Фpолов

Додатки

CURSOVA.PAS

{$M $8000,0,0 }

uses crt, smenu, dos;

procedure Print(x, y, c1: byte; S: string);

begin

GotoXY(x, y);

textattr:=c1;

Write(S);

end;

procedure Frame(x1, y1, x2, y2: byte; S: string; c1, c2: byte; Double: boolean);

var i, k, Leng, High: byte;

begin

Leng:=x2-x1;

High:=y2-y1;

Window(x1, y1, x1+Leng, y1+High);

textattr:=c1;

ClrScr;

Window(1, 1, 80, 25);

if Double=True then Print(x1, y1, c1, 'Й') else Print(x1, y1, c1, 'Ъ');

for i:=1 to Leng do

if Double=True then Print(x1+i, y1, c1, 'Н') else Print(x1+i, y1, c1, 'Д');

if Double=True then Print(x2+1, y1, c1, '»') else Print(x2+1, y1, c1, 'ї');

for i:=1 to High do begin