Отчет по практике: Разработка программного обеспечения

Файл исходного текста - программный модуль (Unit) предназначен для размещения текстов программ. В этом файле программист размещает текст программы, написанный на языке PASCAL.

В разделе объявлений описываются типы, переменные, заголовки процедур и функции, которые могут быть использованы другими модулями, через операторы подключения библиотек (Uses). В разделе реализации располагаются тела процедур и функций, описанных в разделе объявлений, а также типы переменных, процедуры и функции, которые будут функционировать только в пределах данного модуля. Раздел инициализации используется редко,и ею можно пропустить. Модуль имеет следующую структуру:

unit Unit1;

interface

// Раздел объявлений

implementation

// Раздел реализации

begin

// Раздел инициализации

end.

При компиляции программы DELPHI создает файл с расширением .dcu, содержащий в себе результат перевода в машинные коды содержимого файлов с расширением .pas и .dfm. Компоновщик преобразует файлы с расширением .dcu в единый загружаемый файл с расширением .exe. В файлах, имеющих расширение .~df, .~dp, .~pa, хранятся резервные копии файлов с образом формы, проекта и исходного текста соответственно.

Пример написания программы линейного алгоритма.

Задание: составить программу вычисления для заданных значений х, у, z арифметического выражения:

[ u=tg2( x + y)-ey-z *cosx2+ sin z2 ]

Настройка формы

Пустая форма в правом верхнем углу имеет кнопки управления, которые предназначены: для свертывания формы в пиктограмму , для разворачивания формы на весь экран  и возвращения к исходному размеру  и для закрытия формы . С помощью мыши, "захватывая" одну из кромок формы или выделенную строку заголовка, отрегулируйте нужные размеры формы и ее положение на экране (рис2.).

Рис.2. Внешний вид формы

Изменение заголовка формы

Новая форма имеет одинаковые имя (Name) и заголовок (Caption) -FORM1. Имя формы менять не рекомендуется, т.к. оно входит в текст программы.

Для изменения заголовка вызовите окно инспектора объектов (F11) и щелкните кнопкой мыши на форме. В форме инспектора объектов найдите и щелкните мышью на Properties - Caption . В выделенном окне наберите "Лраб №1".

Размещение строки ввода (TEdit)

Если необходимо ввести из формы в программу или вывести на форму информацию, которая вмещается в одну строку, используют окно однострочного редактора текста, представляемого компонентом TEdit.

В данной программе с помощью однострочного редактора будут вводиться переменные х, у, z типа extended или integer.

Выберите в меню компонентов Standard пиктограмму , щелкните мышью в том месте формы, где вы хотите ее поставить. Вставьте три компонента TEdit в форму. Захватывая их "мышью", отрегулируйте размеры окон и их положение. Обратите внимание на то, что в тексте программы появились три новьгх однотипных переменных Edit1, Edit2, Edit3. В каждой из этих переменных: расширением .Text будет содержаться строка символов (тип String) и отображаться в соответствующем окне Edit.

Так как численные значения переменных х, у, z имеют действительный тип для преобразования строковой записи числа, находящегося в переменной Edit.Text, в действительное, используется стандартная функция X:=StrToFloat(Edit1.Text).

Если исходные данные имеют целочисленный тип, например integer, то используется стандартная функция Х:=StrToInt(Edit1.Text).

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

С помощью инспектора объектов установите шрифт и размер символов, отображаемых в строке Edit (свойство Font).

Размещение надписей (TLabel)

На форме имеются четыре пояснительные надписи. Для нанесения таких надписей на форму используется компонент TLabel. Выберите в меню компонентов Standard пиктограмму  , щелкните на ней мышью. После этого в нужном месте формы щелкните мышью, появится надпись Label1. Проделайте это для четырех надписей. Для каждой надписи, щелкнув на ней мышью, отрегулируйте размер и, изменив свойство Caption инспектора Объектов, введите строку, например "Введите значение X:", а также выберите размер символов (свойства Font).

Обратите внимание, что в тексте программы автоматически появились четыре новых переменных типа .TLabel. В них хранятся пояснительные строки, которые можно изменять в процессе работы программы.

Размещение многострочного окна вывода (ТМето)

Для вывода результатов работы программы обычно используется текстовое окно, которое представлено компонентом (ТMemo). Выберите в меню компонентов пиктограмму  и поместите компонент ТМеmо на форму. С помощью мыши отрегулируйте его размеры и местоположение. После установки с помощью инспектора свойства ScrollBars - SSBoth в окне появятся вертикальная и горизонтальная полосы прокрутки.

В тексте программы появилась переменная Memo1 типа ТMemo. Информация, которая отображается построчно в окно типа ТMemo, находится в массиве строк Memo1.Lines. Каждая строка имеет тип String.

Для чистки окна используется метод Memo1.Сlеаr. Для того чтобы добавить новую строку в окно, используется метод Memo1.Lines.Add (переменная типа String).

Если нужно вывести число, находящееся в переменной действительного или целого типа, то его надо предварительно преобразовать к типу String и добавить в массив Memo1.Lines.

Например, если переменная u:=100 целого типа, то метод Memo1.Line.Add сделает это и в окне появится строка "Значение u=100". Если переменная u:=-256,38666 действительная, то при использовании метода Meno1.Lines.Add('Значение u='+FloatToStrF(u.ffFixed,8,2)) будет выведена строка "Значение u= -256.39". При этом под все число отводится восемь позиций, из которых две позиции занимает его дробная часть.

Если число строк в массиве Memo1 превышает размер окна, то для просмотра всех строк используется вертикальная полоса прокрутки. Если длина строки Memo1 превосходит количество символов в строке окна, то в окне отображается только начало строки. Для просмотра всей строки используется горизонтальная полоса прокрутки.

Написание программы обработки события нажатия кнопки(ButtonClick)

Поместите на форму кнопку, которая описывается компонентом TButton, для чего выберем в меню компонентов Standard пиктограмму . С помощью инспектора объектов измените заголовок (Caption) - Button1 на слово "Выполнить" или другое по вашему желанию. Отрегулируйте положение и размер кнопки.

После этого два раза щелкните мышью на кнопке, появится текст программы, дополненной заголовком процедуры обработчика события - нажатия кнопки (Procedure TForm1.ButtonClick(Sender : TObject);).

Наберите текст этой процедуры, приведенный в примере.

Запуск и работа с программой

Запустить программу можно нажав Run в главном меню Run, или клавишу F9, или пиктограмму . При этом происходит трансляция и, если нет ошибок, компоновка программы и создание единого загружаемого файла с расширением .exe. На экране появляется активная форма программы.

Работа с программой происходит следующим образом. Нажмите (щелкните мышью) кнопку "Выполнить". В окне Memo1 появляется результат. Измените исходные значения х, у, z в окнах Edit и снова нажмите кнопку "Выполнить" - появятся новые результаты. Завершить работу программы можно нажав или в главном меню Run, или кнопку {} на форме.

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

unit tema1;

interface

uses

Windows, Messages. SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1:TLabel;

Edit1:TEdit;

Label2: TLabel;

Edit2:TEdit:

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Memo1:TMemo;

Buttonl : TButfon;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

 private

{ Private declarations }

 public

{ Public declarations }

 end;

var

Form1: TForm1;

Implementation

 {$R*.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z, a, b, c, u : extended;

begin

x:=StrToFloat(Edit1.Text); // Считывается значение X

Memo1.Lines.Add('X = '+Edit1.Text); // Вывод X в окно Memo1

y:=StrToFloat(Edit2.Text); // Считывается значение Y

Memo1.Lines.Add('Y = '+Edit2.Text); // Вывод Y в окно Memo1

z:=StrToFloat(Edit3.Text); // Ситывается значение Z

Memo1.Lines.Add('Z = '+Edit3.Text); // Вывод Z в окно Memo1

 // Вычисляем арифметическое выражение

a:=Sqr(Sin(x+y)/Cos(x+y));

b:=Exp(y-z);

c:=Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));

u:=a-b*c;

 // Выводим результат в окно Memo1

Memo1.Lines.Add('Результат U = '+FloatToStrF(u,ffFixed,8,3));

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11