Лабораторная работа : Создание графических объектов с помощью псевдографики 


Полнотекстовый поиск по базе:

Главная >> Лабораторная работа >> Информатика, программирование


Создание графических объектов с помощью псевдографики




Пермский государственный технический университет

Кафедра: Информационных технологий и автоматизированных систем

Лабораторная работа по теме:

«Создание графических объектов с помощью псевдографики»

По дисциплине «Информатика»

Пермь 2010

Цели и задачи работы

  1. Изучить основы работы на языке высокого уровня Turbo Pascal.

  2. Разработать программу, которая бы нарисовала инициалы студента, причем одну из букв раскрасить.

Оборудование и программное обеспечение

      • Персональный компьютер

      • Манипуляторы клавиатура и мышь

      • Программы Turbo Pascal

Ход работы

Операторы, необходимы для работы в графической среде Turbo Pascal

  • Uses graph – использование графического режима

  • В разделе переменных описываем gd (графический драйвер), gm (графический режим), error (сообщение об ошибке)

  • Запуск графического режима осуществляется следующим образом:

Initgraph (gd,gm,'');

gd:=detect;

error:=graphresult;

if error <>0 then

Begin

writeln('Обнаружена ошибка ');

halt;

end;

  • Moveto (X,Y) – установить курсор в точку с координатами X,Y

  • Lineto (X,Y) – провести линию из положения курсора в точку с координатами X,Y

  • Setcolor (цвет) – последующий текст и линии будит рисоваться заданным цветом

  • OuttextXY (X,Y) – написать текст в точке с координатами X,Y

  • setlinestyle (3,0,1)установка пунктирной линии

  • setlinestyle (0,0,1) – установка обычной линии

  • Line (X1,Y1,X2,Y2) – провести линию из точки X1,Y1 в точку X2,Y2

  • setfillstyle (solidfill,red) – установка параметров завливки, solidfill – залить всю ограниченную область заданным цветом

  • floodfill (X,Y,getmaxcolor) – X,Y координаты точки принадлежащей ограниченной области

  • Closegraph – закрытие графического режима

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

Program Iniciali;

uses graph;

var error,gd,gm,m,n:integer;

x,y,z,x1,x2,y1,y2,a:real;

begin

m:=100;

n:=100;

gd:=detect;

a:=30;

z:=100;

InitGraph(gd,gm,'');

error:=GraphResult;

If error <> 0 then

begin

writeln('AaAAA PANEKA!');

halt;

end;

moveto((getmaxx div 2),0);

lineto((getmaxx div 2),(getmaxy div 2));

lineto(0,round ((getmaxy div 2)+sin(pi/6)/cos(pi/6)*(getmaxx div 2)));

moveto((getmaxx div 2),(getmaxy div 2));

lineto((getmaxx),round((getmaxy div 2)+sin(pi/12)/cos(pi/12)*(getmaxx)));

moveto(m,n);

x:=z*cos(pi/6);

y:=z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n+25;

lineto(m,n);

moveto(m,n);

z:=75;

x:=-z*cos(pi/6);

y:=-z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n+200;

lineto(m,n);

moveto(m,n);

z:=25;

x:=-z*cos(pi/6);

y:=-z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n-225;

lineto(m,n);

z:=25;

x:=-z*cos(pi/6);

y:=z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n+225;

lineto(m,n);

moveto(m,n);

z:=25;

x:=z*cos(pi/6);

y:=-z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

n:=n-225;

moveto(m,n);

z:=25;

x:=-z*cos(pi/6);

y:=z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

moveto(m,n);

z:=100;

x:=z*cos(pi/6);

y:=-z*sin(pi/-6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

moveto(m,n);

z:=25;

x:=z*cos(pi/6);

y:=-z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

end;

moveto(m,n);

m:=m+100;

lineto(m,n);

n:=n-200;

lineto(m,n);

x:=-z*cos(pi/6);

y:=z*sin(pi/6);

m:=m+round(x);

n:=n-round(y);

lineto(m,n);

readln;

closegraph;

end.

Вывод

turbo pascal программа графический

В ходе данной лабораторной работы я научился работать с графической средой Turbo Pascal.

Похожие работы:

  • Графика в Турбо Паскале

    Реферат >> Информатика, программирование
    ... создавать настоящие шедевры «компьютерной псевдографики». Но для серьезной работы ... Тип линии может быть создан с помощью одной из следующих констант: ... процедуры и функции, предназначенные для создания графических объектов в Турбо Паскале. Используя выше ...
  • Addobe Page Maker

    Реферат >> Информатика, программирование
    ... графики и псевдографики набирать табличный материал; - работать с некоторыми графическими редакторами (CPEN, PAINTBRUSH ... для текста, размещенного поверх объектов, созданных с помощью графических инструментов (прямоугольников, многоугольников, линии, эллипсов ...
  • Персональный компьютер

    Реферат >> Информатика, программирование
    ... символы национальных алфавитов и символы псевдографики. Поэтому первая половина является ... ПК. Пользователь с помощью мыши может “отбуксировать” (перетащить) графический объект на экране в иное ... уже после ее создания. Для создания таблицы следует поместить ...
  • Основные понятия информатики

    Шпаргалка >> Информатика, программирование
    ... помощью меню выполняются необходимые действия по сохранению, изменению, печати созданного графического ... графических изображений. Инструменты рисования объектов. Графические редакторы имеют набор инструментов для рисования простейших графических объектов ...
  • Шпоры к ГОС экзаменам Воронеж, 2004г.)

    Реферат >> Информатика, программирование
    ... правовых норм, определяющих создание, юридический статус и ... графическим. Пользователь наблюдает на экране графические объекты и элементы управления. С помощью ... эффективный вывод графической информации (с помощью символов псевдографики), сервисные ...
  • Сравнительный анализ текстовых редакторов

    Курсовая работа >> Информатика, программирование
    ... графических объектов Microsoft Word позволяет вставлять в документ графические объекты, созданные как в других программах, так и с помощью ... OLE-объектов в тексте (таблицы, графика и т.д.). Автоматическое распознавание и преобразование таблиц псевдографики. ...
  • Основы кодирования

    Реферат >> Информатика, программирование
    ... информации осуществляется с помощью специальных программ ( ... инженерами проблему создания новой теории ... псевдографики и научных символов. Кодирование графической информации ... виде совокупности элементарных графических объектов. Объекты векторного изображения, ...
  • Проектирование школьного сайта

    Реферат >> Педагогика
    ... любой управляющий символ, напри­мер символы псевдографики DOS и другие. Те, кто ... за созданием нескольких страниц вам захочется их посмотреть с помощью вашей ... ограничений, обу­словленных языком HTML. Включение графических объектов осуществля­ется так же, как в ...
  • Информационный процесс в автоматизированных системах

    Курсовая работа >> Коммуникации и связь
    ... букв национальных алфавитов, символов псевдографики и научных символов. ... в виде совокупности элементарных графических объектов. Объекты векторного изображения, в отличии ... С помощью СМИ возможно манипулирование общественным мнением, создание необходимых ...
  • Курсовик по FoxPro

    Реферат >> Информатика, программирование
    ... виде диаграммы “объекты-связи”. Рисунок 1.1.1 – Диаграмма “объекты - связи”. ... графических возможностей FOX PRO содержит средства создания изображений из элементов псевдографики: ... Рисунок 4.7.2 – Пример экрана помощи. Создание новых таблиц и арифметические ...