3. Процедура печати:

procedure TForm1.Button3Click(Sender: TObject);

var i:integer;

Prn:TextFile;

begin

if PrintDialog1.Execute then begin

Printer.Copies:=PrintDialog1.Copies;

Printer.Canvas.Font.Name:='Times New Roman';

Printer.Canvas.Font.Size:=14;

AssignPrn(Prn);

try

Rewrite(Prn);

try

for i := 0 to Memo1.Lines.Count - 1 do

writeln(Prn,Memo1.Lines[i]);

with Canvas  do

TextOut((ClientWidth - TextWidth(Memo1.Lines[i])) div 2,

         (ClientHeight - TextHeight(Memo1.Lines[i])) div 2,Memo1.Lines[i]);

finally

CloseFile(Prn);

end;

except

on EInOutError do

MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);

end;

end;

 

end;

 

Полный текст программы представлен в ПРИЛОЖЕНИИ А.

5. Графическое представление результатов

Разработанная нами программа также позволяет нам сохранять документ в файл с указанием пути сохранения документы и именем сохраняемого нами файла (рис. 2.5). Также мы можем произвести печать (рис. 2.6).

 

Рисунок 2.5 – Форма окна при нажатии на кнопку «сохранить в файл»

 

Рисунок 2.6 – Форма окна при нажатии на кнопку «печать»

 

6. Анализ полученных результатов

В результате была разработана  программа в среде  BorlandDelphi, в  которой было реализовано решение  поставленной задачи, согласно варианту задания (вариант 11). В программу  необходимо сначала ввести ввести количество ячеек и полок, на которой будут  размещаться рассматриваемые нами детали. Затем мы задавали наименование детали, число контейнеров и вес  деталей. После введенных данных нажимаем кнопку «Рассортироать» и программа начнет свое выполнение: рассортировывает детали по полкам и ячейкам так, чтобы на нижних полках находились более тяжелые детали. Также наша программа позволяет нам сохранять выведеные нами результаты в файл.

 

 

ЗАКЛЮЧЕНИЕ

В ходе выполнения работы были решены следующие задачи:

— осуществлена постановка задачи согласно варианта;

— рассмотрены основные аспекты работы с массивом в среде Delphi;

— разработана блок-схема алгоритма;

— выполнено описание объектов, свойств, методов;

— рассмотрены формы и основные модули текста программы;

— проанализированы результаты тестирования программного продукта. [12]

Таким образом, основная цель исследования — согласно выданного  варианта задания и основываясь  на методических указаниях реализовать  программное решение задачи № 3 в среде Borland Delphi — была достигнута.

В ходе исследования было установлено, что среда Borland Delphi позволяет быстро, удобно и эффективно решать задачи работы с массивами.

 

 

СПИСОК  ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

1. Архангельский, А .Я. 100 компонентов общего назначения библиотеки Delphi / А. Я. Архангельский. — М. : Бином, 2002. — 319 с.
2. Архангельский, А .Я. Расширение математических возможностей Delphi : библиотека алгоритмов / А. Я. Архангельский. — М. : Бином, 2002. — 409 с.
3. Баженова, И. Ю. Delphi. Самоучитель программиста / И. Ю. Баженова. — М. : Экономика и право, 2004. — 502 с.
4. Банкел, Дж. Фундаментальные алгоритмы и структура данных в Дельфи / Дж. Банкел; пер. С. Ю. Смирнова. — 4-е изд. — М. : Юнити, 2008. — 691 с.
5. Беленький, П. П. Информатика : учеб. пособие / П. П. Беленький. — Ростов н/Д. : Феникс, 2003. — 448 с.
6. Буза, М. К. Windows-приложения: от операции к реализации : учеб. пособие / М. К. Буза. — Минск : Высшая школа, 2008. — 490 с.
7. Гукин, Д. М. Windows XP : учеб. пособие / Д. М. Гукин. — М. : Издательский дом «Вильяме», 2003. — 415 с.
8. Информатика. Базовый курс / С. В. Симонович [и др.]; под ред. С. В. Симонович. — СПб. : Питер, 2001. — 640 с.
9. Конюховский, П. В. Экономическая информатика / П. В. Конюховский. — СПб. : Питер, 2003. — 467 с.
10. Миронченко, А. С. Императивное и объектно-ориентированное программирование на Turbo Pascal и Delphi / А. С. Миронченко. — М. : Бином, 2006. — 492 с.
11. Основы информатики : учеб. пособие / А. Н. Морозевич [и др.]; под ред. А. Н. Морозевича. — 2-е изд. — Минск : Новое знание, 2003. — 544 с.
12. Парижский, С. М. Delphi. Учимся на примерах / С. М. Парижский. — М. : Юнити, 2006. — 419 с.

 

 

 

 

ПРИЛОЖЕНИЯ

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ А

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, ColorGrd, Spin, ExtCtrls, jpeg, Printers;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    StringGrid1: TStringGrid;

    Label1: TLabel;

    SpinEdit1: TSpinEdit;

    GroupBox2: TGroupBox;

    Edit1: TEdit;

    Label2: TLabel;

    Label3: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Memo1: TMemo;

    Button2: TButton;

    SaveDialog1: TSaveDialog;

    Image1: TImage;

    Button3: TButton;

    PrintDialog1: TPrintDialog;

    procedure FormCreate(Sender: TObject);

    procedure SpinEdit1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

StringGrid1.Cells[0,0]:='';

StringGrid1.Cells[1,0]:='наименование  товара';

StringGrid1.Cells[2,0]:='колич. контейнеров';

StringGrid1.Cells[3,0]:='вес контейнера';

for i:=1 to 4 do   StringGrid1.Cells[0,i]:=inttostr(i);

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

var i: integer;

begin

  StringGrid1.rowCount:=SpinEdit1.Value+ 1 ;

  for i:=1 to SpinEdit1.Value do   StringGrid1.Cells[0,i]:=inttostr(i);