Пример 1. Нарисовать 20 вертикальных отрезков в ряд, используя функцию цикла.
Program grafik;
Uses graph;
Var
i,driver,mode:integer;
begin
driver:=detect; initgraph(driver,mode,'');
for i:=1 to 20 do
line(20*i,100,20*i,200);
end.
Пример 2. Нарисовать ряд из окружностей (10 окружностей) так, чтобы соседние окружности касались одной точкой, и каждая окружность закрашивалась в другой цвет.
Program grafik1;
Uses crt
Var
i,driver,mode:integer;
begin
driver:=detect;initgraph(driver,mode,'');
setfillstyle(1,15);
setcolor(15);
for i:=1 to 3 do
begin
circle(100*i,200,20);
floodfill(100*i,200,15);
end;
end.
Пример 1. Нарисовать квадрат.
Program grafik2;
Uses graph;
Var
driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
line(100,100,200,100);line(200,100,200,200);
line(200,200,100,200);line(100,200,100,100);
end.
Пример 2. Нарисовать квадрат и окружность, которая касается всех сторон квадрата.
Program grafik2;
Uses graph;
Var
driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
line(100,100,200,100);line(200,100,200,200);
line(200,200,100,200);line(100,200,100,100);
end.
Пример 1. Нарисовать отрезок, использовав процедуры установления точки.
Program grafik3;
Uses graph;
Var
driver,mode,i:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
for i:=1 to 200 do
putpixel (10+i,200,15);
end.
Пример 2. Вывести на экран сообщение в любом месте.
Program grafik3;
Uses graph;
Var
driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
outtextxy(100,200,'Выводим сообщение в графическом режиме');
end.
Пример 1. Вывести сообщение в любом месте и заставить его переливаться красками.
Program grafik4;
Uses crt,graph;
Var
i,driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
for i:=1 to 15 do
begin
setcolor(i);
outtextxy(100,200,'Vyvod soobcheniya');
delay(100000); (в делэй вы можете изменить значение в зависимости от того, насколько быстро будет выполняться программа)
end;
end.
Пример 2. Нарисовать систему координат xy, около делений указать значения.
Program grafik4;
Uses crt,graph;
Var
i,driver,mode:integer;
s:string;
begin
driver:=detect;
initgraph(driver,mode,'');
line(100,200,400,200);
for i:=1 to 11 do
begin
line(100+30*(i-1),198,100+30*(i-1),202);
str(i,s);
outtextxy(98+30*(i-1),190,s);
end;
end.
Изображение фигур с однократным использованием процедур. Т.е. фигуры рисуются с использованием оператора цикла.
Пример 1. Нарисовать 4 вертикальных палочки, притом чтобы каждая следующая палочка была ниже предыдущей.
Program grafik5;
Uses graph;
Var
i,dr,md:integer;
begin
dr:=detect;
initgraph(dr,md,'');
for i:=1 to 4 do
line(50*i,300-(5-i)*50,50*i,300);
end.
Пример 2. Нарисовать радугу. Использовать рисование эллипса.
Program grafik5;
Uses graph;
Var
i,driver,mode:integer;
begin
driver:=detect;
initgraph(driver,mode,'');
for i:=1 to 8 do
begin
ellipse(320,200,0,180,150-i*10,110-i*10);
if i<8 then
begin
line(320-150+i*10,200,330-150+i*10,200);
line(320+150-i*10,200,310+150-i*10,200);
end;
if i>1 then
begin
setfillstyle(1,i);
floodfill(320,200-116+i*10,15);
end;
end;
end.
Страничка made By Zender
