Демонстрация графических проектов

angel

Uses crt, Graph;

Var P:pointer;{указатель на область}

Size:Word; {размер области}

X1,Y1:Word; {координаты нач точки}

gd,gm: integer;

Begin gd:=detect;

InitGraph(gd,gm,'');

SetColor(11);SETTEXTSTYLE(4,0,7);

outtextxy(20,200,'My name is Angel!');

Readln;

CloseGraph

еnd.

Gruzovik

program gryzovik;

uses graph;

var

grDriver:integer;

grMode:integer;

begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

SetColor(5);

bar(100,100,300,200);

bar(300,200,400,50);

bar(400,200,511,130);

rectangle(310,60,390,140);

line(450,130,420,30);

line(420,30,500,30);

line(500,30,470,130);

SetColor(7);

circle(140,230,30);

circle(210,230,30);

circle(400,230,30);

circle(470,230,30);

readln;

end.

Budil

program Budil;

uses graph;

var

grDriver:integer;

grMode:integer;

Begin

grDriver:=Detect;

InitGraph(grDriver,grMode,'');

SetBkColor(3);

SetColor(5);

Circle(250,180,60);

Circle(270,180,60);

Circle(210,235,7);

Circle(310,235,7);

Circle(260,180,7);

Circle(260,115,10);

SetColor(11);

Line(260,180,260,140);

Line(260,180,270,150);

Circle(260,230,5);

Circle(260,125,5);

Circle(230,180,5);

Circle(290,180,5);

readln;

еnd.

Velik

program Zad_1;

uses graph;

var grDriver:integer;

grMobe:integer;

Begin

grDriver:=Detect;

InitGraph(grDriver,grMobe,'');

SetColor(12);

circle(200,150,30);

circle(200,150,23);

circle(330,150,30);

circle(330,150,23);

line(200,150,280,150);

line(280,150,320,110);

line(320,110,210,110);

line(210,110,250,150);

line(200,150,210,110);

circle(200,150,5);

circle(270,150,10);

line(270,150,270,170);

line(265,170,275,170);

line(200,145,270,140);

line(200,155,270,160);

line(330,150,320,110);

line(320,110,320,98);

line(320,98,310,98);

line(210,110,210,100);

circle(210,100,5);

line(210,100,220,100);

line(270,150,270,130);

line(265,130,275,130);

readln;

End.

Урок №4

Структура программы на языке Turbo Pascal

План:

1. Заголовок программы, раздел описаний, исполняемая часть.
2. Арифметические операции и типы переменных.
3. Практическая работа «Создание программы с использованием линейного алгоритма».