ÄВВЕДЕНИЕ

ÄРождение Паскаля

ÄГрафические возможности языка Паскаль

ÄРабота в графическом видеорежиме. Общий обзор

ÄИнициализация графического режима

ÄУправление экраном и окнами

ÄУправление цветом и фоном

ÄПостроение простейших графических изображений

ÄУправление курсором

ÄВывод текстовой информации в графическом видеорежиме

ÄАлгоритм построения окон и статических объектов в них

ÄДеловая графика

ÄПостроение графиков  элементарных функций

ÄРеализация имитации движения графических объектов

ÄСПРАВОЧНЫЕ ТАБЛИЦЫ

ÄСправочные  материалы о языке Pascal

ÄТВОРЧЕСТВО УЧАЩИХСЯ

ÄЗадания для самостоятельного выполнения

ÄПостроение функций второго порядка

ÄЭТО ИНТЕРЕСНО

ÄЛИТЕРАТУРА

ÄКАРТА

  Задача. Построить два окна на одном экране. В первом окне вывести разноцветные концентрические окружности,    радиус    которых    пропорционально    возрастает, и вложенные одноцветные прямоугольники, размеры которых   пропорционально   возрастают.   Во   втором   окне вывести текст «Владеющий информацией — владеет миром».

Программа:

Uses Graph; Var i: integer;
Driver,Mode: integer; Procedure GrInit;
Begin Driver:=Detect;
InitGraph(Driver,Mode,'');
IF GraphResuLt<>0 then
begin Writeln ('Ошибка инициализации');
Writeln ('Работа программы прервана');
Halt(1) end End;
Begin GrInit; ClearDevice; {построение первого окна и рисунков в нём}
SetColor(1);
SetViewPort(0,0,GetMaxX-1,GetMaxY-1,true);
Rectangle(0,0,GetMaxX-1,GetMaxY-1);
SetFillstyle(1,11);
Bar(0,0,GetMaxX-1,GetMaxY-1);
for i:=0 to 120 do begin
setcolor(Random(15));
circle(2*i,2*i,i);
end;
SetColor(0);
for i:=50 downto 1 do
rectangle(320 + i*3,40 + i,320 + i*4,50 + i*6); {построение второго окна и вывод текста в нём}
setviewport(0,401,GetMaxX-1,GetMaxY-1,true); SetFillstyle(1,14);
Bar(0,0,GetMaxX-1,GetMaxY-1);
SetColor(6);
Rectangle(0,1,GetMaxX-1,GetMaxY-1);
Setcolor(0);
SetTextStyle(0,0,1);
OutTextXY(150,35,'ВЛАДЕЮЩИЙ ИНФОРМАЦИЕЙ - ВЛАДЕЕТ МИРОМ.');
readln;
CloseGraph
End.
 

Скачать Пример 5