GraphABC ◊ Точка, отрезок, окружность, прямоугольникРисуем линииРисуем окружностиПодписываем рисункиМаленькие картиныСоставление алгоритмлв. Часть1 Часть 2Часть 3Часть 4Часть 5Более сложные  программы Рисуем линии

Повторяем

procedure Line(x1,y1,x2,y2: integer); - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

procedure MoveTo(x,y: integer); - передвигает невидимое перо к точке с координатами (x,y); эта функция работает в паре с функцией LineTo(x,y).

procedure LineTo(x,y: integer); - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y).

procedure SetPenColor(color: integer); - устанавливает цвет пера, задаваемый параметром color.

function PenColor: integer; - возвращает текущий цвет пера.

procedure SetPenWidth(w: integer); - устанавливает ширину пера, равную w пикселам.

type ColorType=integer; - стандартные цвета задаются символическими константами:

clBlack – черный clPurple – фиолетовый clWhite – белый clMaroon – темно-красный clRed – красный clNavy – темно-синий clGreen – зеленый clBrown – коричневый clBlue – синий clSkyBlue – голубой clYellow – желтый clCream – кремовый

clAqua – бирюзовый clOlive – оливковый clFuchsia – сиреневый clTeal – сине-зеленый clGray – темно-серый clLime – ярко-зеленый clMoneyGreen – цвет зеленых денег clLtGray – светло-серый clDkGray – темно-серый clMedGray – серый clSilver – серебряный

 

Пример 1. Нарисуем ручку.

program ruchka;

uses graphabc;

begin

setwindowsize (640,480);

setwindowtitle ('Ручка');

setpencolor (clbrown);

setpenwidth (2);

line(180,50,180,220);

line(180,195,200,195);

line(180,220,180,245);

line(180,245,200,220);

lineto(200,50);

line(180,220,200,220);

line(182,50,182,45);

line(182,45,210,45);

lineto(210,100);

lineto(205,100);

lineto(200,50);

lineto(205,50);

line(180,50,210,50);

setfontcolor(clteal);

setfontstyle(fsbold);

textout (20,20,'Моя ручка!');

end.

 

Можешь загрузить!       Пример 1

Пример 2. Нарисуем часы.

program chasi;

uses graphabc;

begin

setwindowsize (640,480);

setwindowtitle ('Часы');

setpencolor (clbrown);

setpenwidth (2);

line(100,50,80,100);

lineto(80,140);

lineto(100,190);

lineto(105,190);

lineto(105,180);

lineto(195,180);

lineto(195,190);

lineto(200,190);

lineto(220,140);

lineto(220,100);

lineto(200,50);

lineto(195,50);

lineto(195,60);

lineto(105,60);

lineto(105,50);

line(100,50,105,50);

line(90,100,90,140);

lineto(210,140);

lineto(210,100);

lineto(90,100);

rectangle(95,105,105,110);

rectangle(110,105,120,110);

line(105,120,105,135);

line(115,120,115,135);

line(120,120,120,135);

line(125,120,125,135);

line(135,120,135,135);

line(160,125,160,135);

line(165,125,165,135);

setfontcolor(clblue);

setfontstyle(fsbold);

textout (20,20,'Мои электронные часы!');

end.

Можешь загрузить!       Пример 2

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

1. С помощью линий напиши своё имя.

2. С помощью линий напиши название а) дня недели,    б) месяца.

3. Нарисуй рисунок состоящий из линий.

 

Copyright © 2008 Гимназия №1 имени К.Калиновского г.Свислочь © Синица А.А.