Программирование в среде Турбо Паскаль. Закутский С.Н - 62 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

62
Procedure Coord(x1,y1,x2,y2 : integer;
var xa,ya : integer);
{Процедура для нахождения координат вершин очередного квадрата
путем пропорционального деления сторон предыдущего квадрата }
Begin
xa:=x1+round((x2-x1)*mu/(1+mu));
ya:=y1+round((y2-y1)*mu/(1+mu));
End;
{---------------------------------}
{Окончание описательной части; начало исполняемой части}
BEGIN
ClrScr; {Очистка экрана путем вызова процедуры модуля Crt}
GraphDriver:=Detect
130
; {Detect-константа модуля Graph, равна 0,
задает автоматический выбор драйвера графического адаптера}
Write('Ввести координаты квадрата и параметр деления квадрата');
Read(x[1], y[1], x[3], y[3], mu);
x[2]:=x[1]; y[2]:=y[3]; x[4]:=x[3]; y[4]:=y[1];
{Переход к графическому режиму}
InitGraph(GraphDriver,GraphMode,'D:\TP\BGI');
err:=GraphResult;
If GraphResult <> grOk
Then begin
WriteLn('Ошибка при включении графического режима', err);
Halt;
End;
SetBkColor(Blue
131
); {Задание цвета фона экрана}
SetColor(White
132
); {Задание текущего цвета}
SetLineStyle(0,0,3); {Задание текущего параметра линии}
ClearDevice; {Очистка графического экрана }
Rectangle(x[1],y[1],x[3],y[3]); {Построение исходного квадрата}
{Вычисление координат вершин очередного квадрата и изображение его.
Текущий цвет линий изменяется с изменением номера квадрата}
Sound
133
(292);
Delay
134
(200);
NoSound;
For j:=1 to 25 do
Begin
For i:=1 to 3 do
Coord(x[i],y[i],x[i+1],y[i+1],a[i],b[i]);
130
Detect [дитект] – обнаруживать.
131
Blue [блу] – синий.
132
White [уайт ] – белый.
133
Sound [саунд ] – звук.
134
Delay [дилэй ] – задержка .

Страницы