Referat.me

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

Вид работы: лабораторная работа

Рубрика: Информатика и программирование

Размер файла: 19.37 Kb

Скачать файл: referat.me-136799.docx

Краткое описание работы: Основы работы на языке высокого уровня Turbo Pascal. Основное оборудование и программное обеспечение. Операторы, необходимы для работы в графической среде Turbo Pascal. Запуск графического режима. Текст программы в графической среде Turbo Pascal.

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

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

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

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

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

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

Пермь 2010

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

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

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 программа графический

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

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

  • Автоматизований облік надходження, зберігання і збуту продукції на товарній базі

    Розробка програми "товарна база", призначеної для збереження та перегляду, а також автоматизованої обробки інформації, що надає користувач. Формальна та неформальна постановка задачі. Структура зберігаючих даних. Вихідний код програми, її апробація.

  • Автоматизований аналіз злочинності по областям

    Розробка програми "Злочин", що призначена для збереження та перегляду, а також автоматичного аналізу всієї інформації про злочинність. Порядок і основні принципи формування структури даних, постановка задачі. Написання та лістинг розробленої програми.

  • Основные операторы языка Turbo-Paskal. Процедуры и функции

    Принцип работы основных операторов языка программирования Turbo-Paskal: оператор присваивания, выбора Case, безусловного перехода, цикла, уловный, составной. Формальное описание и вызов функции и процедуры. Требования к списку фактических параметров.

  • Разработка программы на четырех языках программирования

    Этапы написания программы на четырех языках программирования (Turbo Pascal 7.0, Borland C++ 3.11, Delphi 7, Builder C++ 6.0), которая выводит на экран имя и фамилию студента, используя стандартные средства графики и простейшие геометрические фигуры.

  • Лабараторная работа №4

    Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.

  • Вращение треугольника

    Содержание Введение 2 В программу также были включены функции предоставляющие пользователю некоторый сервис и удобство при работе ( использование модулей Turbo-Vision 2.0 for Borland Pascal). 5

  • Работа с типами данных записи

    Создание программы для обработки структуры данных. Возможность ввода и записи данных на персональном компьютере. Прикладное программирование на языке Turbo Pascal. Свободное редактирование записанных данных с помощью программы, написанной на Turbo Pascal.

  • Язык Paskal. Основные элементы языка. Структура программы

    Ознакомление со структурой языка программирования Turbo-Pascal 7.0, его алфавитом, выражениями и простейшими конструкциями (метками, идентификаторами). Способы описания арифметических, вещественных, логических и символьных операций в программной среде.

  • Написание игры &quot;Змейка&quot; средствами языка Turbo Pascal

    Изучение текстового режима языка программирования Turbo Pascal. Написание игры "Змейка" с помощью средств, процедур и функций языка программирование Turbo Pascal. Структурное и функциональное описание разработки. Листинг и общие примеры работы программы.

  • Динамические структуры данных: двоичные деревья

    Дерево — это совокупность элементов, называемых узлами (при этом один из них определен как корень), и отношений (родительский–дочерний), образующих иерархическую структуру узлов.