Circle.pas

uses Graph, CRT;

var gd, gm: Integer;

var lastx, lasty, lastr: word;
x, y, rad: integer;
done: Boolean;

const Delta = 5;

procedure Draw;
begin
setcolor(0);
circle(lastx, lasty, lastr);
setcolor(15);
circle(x, y, rad);
lastx := x;
lasty := y;
lastr := rad;
end;

begin
lastx := 0;
lasty := 0;
lastr := 0;
x := 320;
y := 240;
write(’Введите радиус: ‘);
readln(rad);
gd := Detect;
InitGraph(gd, gm, ”);
done := false;
repeat
draw;
case readkey of
#13: done := true;
‘<’,',’: if rad > delta then rad := rad - delta;
‘>’,’.’: if rad < 500 then rad := rad + delta;
#0:
case readkey of
#72:{up}
y := y - delta;
#75:{left}
x := x - delta;
#77:{right}
x := x + delta;
#80:{down}
y := y + delta;
end;
end;
until done;
closegraph;
end.

Файл-исходник: Circle.pas

Откомпилированный файл: Circle.exe

Запустите проргамму. Клавишами курсора можно перемещать окружность. Клавишами “>” и “<”можно менять размер. Клавиша Enter служит для выхода.

Запустите программу. Подвигайте окружностью до границ (проверьте, не выходит ли она за границы экрана). Поизменяйте размер окружности. Проверьте, работает ли Enter

Выходными данными служит изменяемое изображение на экране

Начальные координаты задаются в тексте программы, размер – вводится с клавиатуры. Так же программа обрабатывает нажатие клавиш на клавиатуре.

Написанная программа запрашивает начальный радиус окружности, инициализирует графику в режиме 640х480х16 цветов и рисует окружность (используя собственную процедуру). читать дальше »

Разработать программу для управления размерами окружности и ее расположением на экране. Исходная окружность расположена в центре экрана и имеет заданный радиус. Управление выполняется клавишами: “>” и “<” – изменение радиуса окружности, клавиши курсора –перемещение, Enter – выход

Music.pas

program Music;

uses CRT;

const
MaxArtists = 70;
MaxTracks = 25;
MaxSongs = 70;
MaxCDs = 70;

ArtistsFile = ‘datamusic.art’;
SongsFile = ‘datamusic.sng’;
CDFile = ‘datamusic.cdf’; читать дальше »

Файл-исходник: Music.pas
Файлы базы данных: DataMusic.art; DataMusic.sng; DataMusic.cdf
Откомпилированный файл: Music.exe