Создание программы

Размещено на http://www.allbest.ru/

[Введите текст]

Министерство транспорта Российской Федерации

Федеральное агентство железнодорожного транспорта

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

Омский государственный университет путей сообщения (ОмГУПС (ОмИИТ))

Кафедра «Инфокоммуникационные системы и информационная безопасность»

ОТЧЕТ

по учебной практике за 2014/2015 учебный год

Студент гр.24п

В.А.Федотов

Омск 2015

Содержание

1. Задание 1(ДСК)

1.1 Описание задания

1.2 Графический интерфейс

1.3 Листинг программы

1.4 Скриншоты выполнения программы

2. Задание 2(ПСК)

2.1 Описание задания

2.2 Графический интерфейс

2.3 Листинг программы

2.4 Скриншоты выполнения программы

Задание3(текстовый редактор)

3.1 Описание задания

3.2 Графический интерфейс

3.3 Листинг программы

3.4 Скриншоты выполнения программы

4. Задание 4 (движение снежинок)

4.1 Описание задания

4.2 Графический интерфейс

4.3 Листинг программы

4.4 Скриншоты выполнения программы

Заключение

Библиографический список

1. Задание 1: Программа для построения графика заданной функции в декартовой системе координат

1.1 Необходимо построить график функции f(x) на интервале [a,b]

f(x)=cos((x-6/(x-3)) при x >5, f(x)=(1+x^4)^0.5 при х?5

1.2 Описание графического интерфейса

Пользовательский интерфейс данной программы составлен при помощи поля класса TImage, 7 меток класса TLabel динамически изменяющихся в зависимости от введенных данных (задание масштаба), 2 полей класса TEdit для введения данных пользователем (левая и правая граница аргумента) и кнопки класса TButton для запуска пользователем программы.

1.3 Листинг программы

unit Pact1_;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

StdCtrls, Math;

type dmassiv = array [1..2,1..100] of real;

type

{ TForm1 }

TForm1 = class(TForm)

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

lstep: TLabel;

Load: TButton;

al: TEdit;

bl: TEdit;

Image1: TImage;

lmin: TLabel;

lmax: TLabel;

procedure FormCreate(Sender: TObject);

procedure LoadClick(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

a,n,vx, vy, b, i, currx, curry, k ,h:integer;

miny, maxy, step, ortx, orty, j:real;

funct: dmassiv;

sminy, smaxy,sstep:string;

implementation

{$R *.lfm}

function var9(x:real):real;

begin

if x>5 then var9:=cos((x-6)/(x-3));

if x<=5 then var9:=sqrt(1+power(x,4));

end;

function tabulate(ortx, orty,miny, step:real; a,n:integer): dmassiv;

var i: integer;

begin

for i:=0 to n-1 do begin

tabulate[1,i+1]:=i*ortx;

tabulate[2,i+1]:=(var9(a+i*step)-miny)*orty;

end;

end;

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

n:=100;

vx:=Form1.Image1.Width-100;

vy:=Form1.Image1.Height-100;

Form1.Image1.Color:=clWhite;

end;

procedure TForm1.LoadClick(Sender: TObject);

begin

Form1.Image1.Canvas.Clear;

Form1.Image1.Canvas.rectangle(0,0,700,500);

Form1.Image1.Canvas.Pen.Width:=1;

Form1.Image1.Canvas.Pen.Color:=clblue;

for k:=1 to 9 do begin

Form1.Image1.Canvas.MoveTo(50,k*50);

Form1.Image1.Canvas.lineTo(650,k*50);

end;

for h:=1 to 13 do begin

Form1.Image1.Canvas.MoveTo(h*50,50);

Form1.Image1.Canvas.lineTo(h*50,450);

end;

a:=strtoint(al.Text);

b:=strtoint(bl.Text);

step:=(b-a)/(n-1);

miny:=var9(a);

maxy:=var9(a);

j:=a;

while j<=b do begin

if var9(j)<miny then miny:=var9(j);

if var9(j)>maxy then maxy:=var9(j);

j:=j+step;

end;

ortx:=vx/(b-a);

orty:=vy/(maxy-miny);

sminy:=Inttostr(trunc(miny*100)div(100))+','+Inttostr(trunc(miny*100)mod(100));

smaxy:=Inttostr(trunc(maxy*100)div(100))+','+Inttostr(trunc(maxy*100)mod(100));

sstep:=Inttostr(trunc(step*100)div(100))+','+Inttostr(trunc(step*100)mod(100));

Form1.lmin.Caption:='~'+sminy;

Form1.lmax.Caption:='~'+smaxy;

Form1.lstep.Caption:='~'+sstep;

funct:=tabulate(ortx, orty, miny, step, a, n);

Form1.Image1.Color:=clWhite;

Form1.Image1.Canvas.Pen.Color:=clRed;

Form1.Image1.Canvas.Pen.Width:=2;

Form1.Image1.Canvas.font.color:=clblue;

Form1.Image1.Canvas.TextOut(640,460,inttostr(b));

Form1.Image1.Canvas.TextOut(60,460,inttostr(a));

Form1.Image1.Canvas.TextOut(5,440,inttostr(trunc(miny)));

Form1.Image1.Canvas.TextOut(5,100,inttostr(trunc(maxy)));

Form1.Image1.Canvas.TextOut(40,40,'Y');

Form1.Image1.Canvas.TextOut(660,430,'X');

Form1.Image1.Canvas.MoveTo(50,trunc(500-(var9(a)-miny)*400/(maxy-miny)-50));

for i:=0 to n-1 do begin

currx:=trunc(i*step*(600/(b-a))+50);

curry:=trunc(500-(var9(a+step*i)-miny)*(400/(maxy-miny))-50);

Form1.Image1.Canvas.Lineto(currx, curry);

end;

end;

end.

1.4 Скриншоты работы программы

Рис.1.1 Запуск программы

Рис.1.2 Выполнение программы при введении а=-10, b=10

Программа позволяет строить график функции (1) в декартовой системе координат на отрезке, заданном пользователем. Также строятся линии сетки с подписью максимального, минимального значений и отрезка [a;b], минимального и максимального значения функции на отрезке [a;b] и выводится шаг построения функции .

2. Задание: программа для построения графиков в полярной системе координат

2.1 Необходимо построить график функции в полярной системе координат на интервале [F₁, F₂]

Примечание: исходная функция R=2/(0.1+(F-2*(F/2))/F) была тождественно равна 20, и для большей наглядности графика функция была изменена:

R=2/(0.1+(F-2*(F/2))/F)*cos(F)*sin(F)+F^2

2.2 Описание графического интерфейса

Пользовательский интерфейс данной программы составлен при помощи поля класса TImage,2 вспомогательных меток класса TLabel 2 полей класса TEdit для введения данных пользователем (левая и правая граница аргумента) и кнопки класса TButton для запуска пользователем программы.

2.3 Листинг программы

Unit prc2;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

StdCtrls, Math;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

efi1: TEdit;

efi2: TEdit;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

fi1, fi2, fi, step, maxro, ortro: real;

n, i, j, vy:integer;

implementation

{$R *.lfm}

function ro(fi:real):real;

begin

ro:=2/(0.1+(fi-2*(fi/2))/fi)*sin(fi*cos(fi))+power(fi,2);

end;

function x(fi:real):real;

begin

x:=ro(fi)*cos(fi);

end;

function y(fi:real):real;

begin

y:=ro(fi)*sin(fi);

end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=10000;

vy:=Form1.Image1.Height;

fi1:=strtofloat(efi1.text)*pi;

fi2:=strtofloat(efi2.text)*pi;

step:= (fi2-fi1)/(n-1);

maxro:=ro(fi1);

for j:=0 to 5 do begin

Form1.Image1.Canvas.pen.Color:=clgreen;

Form1.Image1.Canvas.pen.Width:=1;

Form1.Image1.Canvas.Brush.Color:=clblack;

Form1.Image1.Canvas.Ellipse(40*j,40*j,500-40*j, 500-40*j);

end;

Form1.Image1.Canvas.pen.Color:=clgreen;

Form1.Image1.Canvas.pen.Width:=1;

Form1.Image1.Canvas.Moveto(250,0);

Form1.Image1.Canvas.lineto(250,500);

Form1.Image1.Canvas.MoveTo(0,250);

Form1.Image1.Canvas.Lineto(500,250);

Form1.Image1.Canvas.pen.Color:=clred;

Form1.Image1.Canvas.pen.Width:=2;

for i:=0 to n-1 do begin

fi:=fi1+i*step;

if ro(fi)>maxro then maxro:=ro(fi);

end;

ortro:=vy/(2*maxro);

Form1.Image1.Canvas.Moveto(trunc(x(fi1)*ortro+250),trunc(y(fi1)*ortro)+250);

for i:=1 to n do begin

fi:=fi1+i*step;

Form1.Image1.Canvas.Lineto(trunc(x(fi)*ortro+250),trunc(y(fi)*ortro)+250);

end;

end;

end.

2.4 Скриншоты работы программы

Рис.2.1 Запуск программы

Рис.2.2 Выполнение программы при введении интервала пользователем

Данная программа позволяет позволяет построить график функции в ПСК на отрезке заданном пользователем, так же строятся концентрические окружности

3. Задание3: Создание системы меню(TMainMenu)

3.1 Необходимо cоздать программу - текстовый редактор (аналог Notepad). В основном меню программы должны присутствовать как минимум следующие команды: создание нового файла, открытие существующего файла, сохранение файла, сохранение файла под новым именем, изменение шрифта. В качестве основы редактора можно использовать компонент ТМемо.

3.2 Описание графического интерфейса

Пользовательский интерфейс данной программы состоит из поля ввода текста (класс TMemo), главного меню, в котором в качестве подменю находится создание, сохранение, сохранение нового файла, открытие и отдельно вынесенное подменю шрифтов.

3.3 Листинг программы

unit prakt3;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ActnList,

Menus, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Action1: TAction;

ActionList1: TActionList;

DFont: TFontDialog;

MainMenu1: TMainMenu;

writfield: TMemo;

Mopen: TMenuItem;

Mfonts: TMenuItem;

MFile: TMenuItem;

MCreateNew: TMenuItem;

MSaveas: TMenuItem;

MSave: TMenuItem;

DOpen: TOpenDialog;

DSave: TSaveDialog;

procedure Action1Execute(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure MCreateNewClick(Sender: TObject);

procedure MfontsClick(Sender: TObject);

procedure MopenClick(Sender: TObject);

procedure MSaveasClick(Sender: TObject);

procedure MSaveClick(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.MCreateNewClick(Sender: TObject);

begin

form1.writfield.Lines.Clear;

Form1.Caption:='new document';

DOpen.Filename:='';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.writfield.Lines.Clear;

Form1.Caption:='new document';

DOpen.Filename:='';

end;

procedure TForm1.MfontsClick(Sender: TObject);

begin

Form1.DFont.Execute;

Form1.writfield.Font:=Form1.DFont.Font;

end;

procedure TForm1.MopenClick(Sender: TObject);

begin

Form1.writfield.Lines.Clear;

DOpen.execute;

Form1.writfield.Lines.LoadFromFile(DOpen.FileName);

Form1.Caption:=DOpen.FileName;

end;

procedure TForm1.MSaveasClick(Sender: TObject);

begin

DSave.Execute;

Form1.writfield.Lines.SaveToFile(DSave.FileName);

Form1.Caption:=DSave.FileName;

ShowMessage(' document was accesivily saved');

end;

procedure TForm1.MSaveClick(Sender: TObject);

begin

if not(Form1.Caption='new document') then begin

Form1.writfield.Lines.SaveToFile(Form1.Caption);

ShowMessage(' document was accesivily saved');

end

else begin DSave.Execute;

Form1.writfield.Lines.SaveToFile(DSave.FileName);

Form1.Caption:=DSave.FileName;

ShowMessage(' document was accesivily saved');

end;

end;

end.

3.4 Скриншоты работы программы

Рис.3.1 Запуск программы

Рис.3.2 Выплывающее меню для работы с файлом в файловой системе

Рис. 3.3 Сохранение файла

Рис. 3.4 Открытие файла

Рис. 3.5 Меню работы со шрифтом

Рис. 3.6 Изменение шрифта при помощи указанного выше меню

Программа позволяет создавать, открывать, редактировать, сохранять текстовые файлы. график пользователь текстовый редактор

4. Задание: Работа в графическом режиме (класс TCanvas)

4.1 Требуется создать программу с имитацией падения снежинок. Снежинки отображаются в виде точек

Для каждой снежинки создается запись (или объект), содержащий следующие поля:

– x - координата по оси X;

– y - координата по оси Y;

– v - скорость.

При запуске программы создается N снежинок. Для каждой случайным образом определяется положение и начальная скорость падения. По событию таймера для каждой снежинки определяется новое положение на экране с учетом скорости, после чего скорость опять изменяется случайным образом.

При нажатии на форме левой кнопки мыши направление движения снежинок изменяется в точку, где была нажата кнопка мышки.

4.2 Описание графического интерфейса программы

Пользовательский интерфейс данной программы составлен при помощи объекта класса TImage (на котором графически отображается положение снежинок) и 2 кнопок для выполнения действий со снежинками.

4.3 Листинг программы

unit prakt4;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

ActnList, StdCtrls;

type

snowflake=record

x,y: integer;

spdx, spdy: integer;

end;

type

{ TForm1 }

TForm1 = class(TForm)

bursting: TAction;

BBurst: TButton;

Brestart: TButton;

snowhip: TAction;

spawning: TAction;

snowing: TAction;

ActionList1: TActionList;

Image1: TImage;

boom: TTimer;

Winteriscomming: TTimer;

hipping: TTimer;

procedure BrestartClick(Sender: TObject);

procedure burstingExecute(Sender: TObject);

procedure BBurstClick(Sender: TObject);

procedure snowhipExecute(Sender: TObject);

procedure snowingExecute(Sender: TObject);

procedure Image1Click(Sender: TObject);

procedure spawningExecute(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

const n = 500;

var

Form1: TForm1;

snow: array[1..500] of snowflake;

i, j,tempx, tempy, tempx_, tempy_:integer;

curhip: Tpoint;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Image1Click(Sender: TObject);

begin

winteriscomming.Enabled:=false;

bursting.Enabled:=false;

hipping.Enabled:=true;

curhip.x:=Mouse.CursorPos.x-55;

curhip.y:=Mouse.CursorPos.y-75;

end;

procedure TForm1.spawningExecute(Sender: TObject);

begin

i:=1;

randomize;

for i:=1 to n do begin

snow[i].x:=random(998)+1;

snow[i].y:=random(500)-350;

snow[i].spdx:=0;

snow[i].spdy:=random(4)+4;

end;

winteriscomming.Enabled:=true;

end;

procedure TForm1.snowingExecute(Sender: TObject);

begin

With Form1.Image1.Canvas do begin

for i:=1 to n do begin

tempx:=snow[i].x;

tempy:=snow[i].y;

snow[i].x:=snow[i].x+snow[i].spdx;

snow[i].y:=snow[i].y+snow[i].spdy;

if snow[i].x>=(Width+20) then snow[i].x:=(-10);

if snow[i].x<=(-20) then snow[i].x:=(Width+10);

if snow[i].y>=(Height+20) then snow[i].y:=random(500)-350;

if snow[i].y<(-150) then snow[i].y:=random(500)-350;

pixels[snow[i].x,snow[i].y]:=clwhite;

end;

for j:=1 to N do begin

pixels[trunc(snow[j].x-snow[j].spdx),trunc(snow[j].y-snow[j].spdy)]:=clblack;

end;

end;

end;

procedure TForm1.snowhipExecute(Sender: TObject);

begin

for i:=1 to N do begin

snow[i].spdx:=trunc((curhip.x-snow[i].x)/4);

snow[i].spdy:=trunc((curhip.y-snow[i].y)/4);

end;

for i:=1 to N do begin

tempx:=snow[i].x;

tempy:=snow[i].y;

snow[i].x:=snow[i].x+snow[i].spdx;

snow[i].y:=snow[i].y+snow[i].spdy;

Form1.Image1.Canvas.pixels[tempx, tempy]:=clblack;

Form1.Image1.Canvas.pixels[snow[i].x, snow[i].y]:=clwhite;

end;

for i:=1 to N do

Form1.Image1.Canvas.Pixels[trunc(snow[i].x-snow[i].spdx),trunc(snow[i].y-snow[i].spdy)]:=clblack;

end;

procedure TForm1.burstingExecute(Sender: TObject);

begin

for i:=1 to N do begin

tempx_:=snow[i].x;

tempy_:=snow[i].y;

snow[i].x:=snow[i].x+snow[i].spdx;

snow[i].y:=snow[i].y+snow[i].spdy;

if snow[i].x>=(Width+20) then snow[i].x:=(-10);

if snow[i].x<=(-20) then snow[i].x:=(Width+10);

if snow[i].y>=(Height+20) then snow[i].y:=random(500)-350;

if snow[i].y<(-150) then snow[i].y:=random(500)-350;

Form1.Image1.Canvas.pixels[tempx_, tempy_]:=clblack;

Form1.Image1.Canvas.pixels[snow[i].x, snow[i].y]:=clwhite;

end;

for i:=1 to N do

Form1.Image1.Canvas.Pixels[trunc(snow[i].x-snow[i].spdx),trunc(snow[i].y-snow[i].spdy)]:=clblack;

end;

procedure TForm1.BrestartClick(Sender: TObject);

begin

for i:=1 to N do

Form1.Image1.Canvas.Pixels[snow[i].x, snow[i].y]:=clblack;

i:=1;

for i:=1 to n do begin

snow[i].x:=random(998)+1;

snow[i].y:=random(500)-350;

snow[i].spdx:=0;

snow[i].spdy:=random(4)+4;

end;

Winteriscomming.Enabled:=true;

hipping.Enabled:=false;

bursting.Enabled:=false;

end;

procedure TForm1.BBurstClick(Sender: TObject);

begin

hipping.Enabled:=false;

boom.Enabled:=true;

winteriscomming.Enabled:=false;

for i:=1 to N do begin

snow[i].spdx:=random(36)-18;

snow[i].spdy:=random(36)-18;

end;

end;

end.

4.4 Скриншоты выполнения программы

Рис. 4.1 Старт работы программы - падение снеженок

Рис. 4.2 Движение снежинок к одной точке в которое находился курсор при нажатии

Рис. 4.3 Раслет снежинок из точки последнего нажатия, при нажатии кнопки “BOOM!!”, снежинки начинают двигаться хаотично, если кнопка была нажата на 1 стадии работы программы, то снежинки просто изменият скорость.

Рис. 4.4 после нажатия на кнопку “restart” программа автоматически переходит к своей первой стадии

Заключение

В ходе практических занятий были успешно выполнены 4 различных программы, в которых была выполнена работа с графическими элементами в среде программирования Lazarus, а также программа для работы с текстовым файлом в файловой системе и редактирования этого файла.

Библиографический список

1 Мансуров, К.Т. Основы программирования в среде Lazarus / К.Т. Мансуров. М., 2010. 772 с.

2 Free Pascal и Lazarus: Учебник по программированию/ Е.Р. Алексеев, О.В. Чеснокова, Т.В. Кучер. М.: Изд. ALT Linux; ДМК Пресс, 2010. 438 c.

Размещено на Allbest.ru

...