Чувашский государственный университет им. И.Н.Ульянова

Кафедра электрических и электронных аппаратов Отчёт по лабораторным работам. Turbo Pascal 7.0

Вариант №5

Выполнил студентк

группы ЭТ-21-10:

Волков В.А.

Проверила: Иванова С.П.

Чебоксары 2013г.

Лабораторная работа 1.

Цель работы: изучение графических возможностей средыTurboPascal7.0, а так же средств разработки графических изображений, реализованных посредством стандартного модуляGraph.

Практическое задание 1:

Составить программу, последовательно (по нажатию на Enterили через 1-3 секунды) выполняющую следующие действия:

1. залить фон белым цветом

2. вывести черную точку в правой верхней части экрана

3. нарисовать диагональ экрана толстой пунктирной зеленой линией

4. установить текущий указатель в точку (100, 180) и построить от нее сплошную красную линию нормальной толщины к точке (250, 200)

5. переместить ТУ на 30 пикселей по горизонтали и на 10 – по вертикали

6. построить ломаную линию синего цвета, используя функцию LineRel.

Текст программы:

program Lab_1_1;

uses Graph;

var

graphdriver,

graphmode,

errorcode:integer;

begin

graphdriver:=detect;

initgraph (graphdriver, graphmode, 'C:\BP\BGI');

setbkcolor(15);

readln;

putpixel(getmaxx-3,3,0);

readln;

setlinestyle(1,0,3);

setcolor(2);

line(0,0,getmaxx,getmaxy);

readln;

moveto(100,180);

setlinestyle(0,0,1);

setcolor(red);

lineto(250,200);

readln;

setcolor(blue);

moverel(30,30);

linerel(50,50);

linerel(50,-50);

linerel(50,50);

linerel(50,-50);

linerel(50,50);

linerel(50,-50);

readln;

closegraph;

end.

Результаты выполнения программы представлены на рис1.

рис1Результат выполнения программы “Lab_1_1”

Практическое задание 2:

Составьте программу, строящую все упомянутые в таблице графические объекты с различными параметрами (цвет контура и заполнения, орнамент заполнения, стиль и толщина линии и т.п.)

Текст программы:

program Lab_1_2;

uses Graph;

var

GraphDriver,

graphmode,

errorcode:integer;

dp:array[1..20] of integer;

k:integer;

begin

graphdriver:=detect;

initgraph(graphdriver,graphmode,'c:\bp\bgi');

setcolor(13);setlinestyle(3,0,1);

arc(80,140,0,270,45);

setfillstyle(9,14);

bar(160,90,200,170);

setcolor(12);

setlinestyle(2,0,3);

circle(500,120,50);

setcolor(6);

setlinestyle(0,0,3);

ellipse(80,250,220,150,20,40);

setcolor(9);

setlinestyle(0,0,1);

setfillstyle(2,11);

fillellipse(230,300,60,25);

setfillstyle(9,6);

pieslice(370,240,240,100,45);

setcolor(2);

rectangle(500,240,580,360);

setfillstyle(7,2);

sector(30,440,30,85,190,60);

setfillstyle(6,13);

bar3d(240,90,320,180,40,true);

setfillstyle(7,14);

setlinestyle(4,0,4);

sector(400,350,345,15,40,60);

readln;

closegraph;

end.

Результаты выполнения программы представлены ниже:

Практическое задание 3:

По периметру экрана построить семейство разноцветных квадратиков, а в середине – множество разноцветных точек.

Текст программы:

program Lab_1_3;

uses Graph;

var

GraphDriver,

graphmode,

errorcode:integer;

dp:array[1..20] of integer;

k:integer;

begin

graphdriver:=detect;

initgraph(graphdriver,graphmode,'c:\bp\bgi');

setcolor(4);

setlinestyle(2,0,3);

circle(300,250,150);

setcolor(8);

setlinestyle(2,0,3);

circle(300,100,30);

circle(300,400,30);

circle(150,250,30);

circle(450,250,30);

circle(194,144,30);

circle(406,144,30);

circle(406,356,30);

circle(194,356,30);

readln;

closegraph;

end.

Результат работы программы представлен на рис.2: