Transcript Основы языка Pascal

Основы языка Pascal
Графика
Текст
OutTextXY(x : integer, y : integer, st : string) - выводит на
экран строку st с позиции (x,y)
Например:
Var st:string;
…
st:=‘Сюда записываем то, что хотим вывести на экран’;
OutTextXY(300,200,st);
…
SetTextStyle(f : integer, d : integer, s : integer) устанавливает шрифт f, его направление d и размер s
Например:
SetTextStyle(7, 0, 2);
Задание №1: «Фотоаппарат»
Необходимо нарисовать такой же рисунок в Turbo
Pascal. Цвета можно использовать по своему
усмотрению.
Задание №2: «Лягушка»
Необходимо нарисовать такой же рисунок в Turbo
Pascal. Цвета можно использовать по своему
усмотрению.
4
Выполненное задание «фотоаппарат»
program ph;
uses graph,crt;
var g1,g2:integer; s:string;
begin
g1:=detect;
initgraph(g1,g2, 'C:\BP\BGI'); {инициализация графики}
SetFillStyle(1,1); {выбираем цвет и стиль для закрашиваемых фигур}
Bar(150,180,490,320); {рисуем основной прямоугольник}
SetFillStyle(1,7);
Bar(150,120,490,180); {рисуем верхний прямоугольник}
SetFillStyle(1,Black);
FillEllipse(390,250,50,50); {рисуем объектив}
Bar(180,145,220,165);
SetColor(7); {устанавливает основной цвет,
которым будет осуществляться рисование}
Circle(390,250,35); {дорисовываем объектив}
SetColor(6);
s:='Nikon'; {задаем текст надписи}
SetTextStyle(7,0,2); {устанавливаем шрифт, его направление и размер}
OutTextXY(170,290,s); {выводим строку s с позиции x,y}
readln;
CloseGraph;
end.
Выполненное задание «лягушка»
program frog;
uses graph;
var g1,g2:integer;
begin
g1:=detect;
initgraph(g1,g2, 'C:\BP\BGI'); {инициализируем графику}
SetColor(Blue); {выбираем цвет линий}
line(180,240,320,185); line(320,185,460,240); line(180,240,460,240); {рисуем верхний треугольник}
SetColor(Green);
line(180,240,320,295); line(320,295,460,240); line(180,241,460,241); {рисуем нижний треугольник}
SetColor(Red); {выбираем цвет контура}
SetFillStyle(1,Red); {выбираем цвет закрашиваемой фигуры}
FillEllipse(140,240,40,40); {рисуем левый «глаз» }
SetColor(Yellow);
SetFillStyle(1,Yellow);
FillEllipse(500,240,40,40); {рисуем правый «глаз»}
SetFillStyle(1,Blue); {выбираем цвет закрашивания}
FloodFill(320,220,Blue); {закрашиваем замкнутую область вокруг заданной точки с цветом контура
«Blue»}
SetFillStyle(1,Green);
FloodFill(320,260,Green);
readln;
CloseGraph;
end.