|
||||||||||||
|
||||||||||||
|
|||||||||
МЕНЮ
|
БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА - РЕФЕРАТЫ - Разработка программного продукта на языке высокого уровняРазработка программного продукта на языке высокого уровняКУБАНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТЗАДАНИЕна курсовое проектированиеСтуденту 4 п Хвостику Алексею АлександровичуТема работы: “Разработка программного продукта на языке высокого уровня”. Содержание задания: Написать программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Запрос окончания работы после ввода значения ноль. Если С - температура в градусах Цельсия, а F - в градусах Фаренгейта, то имеет место соотношение: Объем работы: а) пояснительная записка к проекту -19стр. б) приложения Срок выполнения работы: г.Срок защиты: г.Дата выдачи задания: _ г.Дата сдачи работы: _ г.Руководитель работы_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ С.В. Гончаров Задание принял студент_ _ _ _ _ _ _ _ _ _ _ _ _ __ А.А. Хвостик Павловская 2009 г. Задание на курсовую работу студента группы 4П СПО Вариант №29. Написать программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Запрос окончания работы после ввода значения ноль. Если С - температура в градусах Цельсия, а F - в градусах Фаренгейта, то имеет место соотношение: Принял: _________________________ “____” “___________________” 2008г. Подпись _________________ Содержание 1)Введение 2)Основная часть: а) Постановка задачи б) Разработка программного продукта в) Тестирование программы г) Сопровождение 3) Заключение 4) Список литературы 5) Приложение (листинг программы, дискета) Введение Среда Delphi - это сложный механизм, обеспечивающий высокоэффективную работу программиста. Визуально она реализуется несколькими одновременно раскрытыми на экране окнами. Окна могут перемещаться по экрану, частично или полностью перекрывая друг друга, что обычно вызывает у пользователя, привыкшего к относительной “строгости” среды текстового процессора Word или табличного процессора Excel, ощущение некоторого дискомфорта. После приобретения опыта работы с Delphi это ощущение пройдет, и вы научитесь быстро отыскивать нужное окно, чтобы изменить те или иные функциональные свойства создаваемой вами программы, ибо каждое окно несет в себе некоторую функциональность, т. е. предназначено для решения определенных задач. Запустите Delphi - и вы увидите нечто, похожее на рис. 2.1 (на рисунке показаны окна Delphi версии 6; для других версий окна могут иметь незначительные отличия). На нем изображены шесть наиболее важных окон Delphi: главное окно 1, окно Дерева объектов (Object Tree View) 2, окно Инспектора объектов 3, окно браузера 4, окно формы 5 и окно кода программы 6. Чтобы упорядочить окна так, как они показаны на рисунке, вам придется вручную изменять их положение и размеры, т. к. обычно окно кода программы почти полностью перекрыто окном формы. Впрочем, добиваться максимального сходства того, что вы видите на экране вашего ПК, с изображением, показанным на рис. 2.1, вовсе не обязательно: расположение и размеры окон никак не влияют на их функциональность; если вы не видите на экране окна кода, но хотите его увидеть, просто нажмите клавишу F12 [Если к этому моменту активным было окно Инспектора Объектов, вам придется нажать на F12 еще раз.]. Повторное нажатие F12 вновь активизирует окно формы и т. д. - эта клавиша работает как двоичный переключатель, попеременно показывая окно формы или окно кода программы. Замечу, что при первом запуске Delphi поверх всех окон появится окно, показанное на рис. 2.2.
Рис. 2.1. Наиболее важные окна Delphi: Рис. 2.2. Окно связи с Inprise (Borland) С помощью этого окна вы сможете получить доступ к Web-страницам корпорации Inprise для просмотра самой свежей информации о корпорации и ее программных продуктах, копирования дополни тельных файлов, чтения ответов на наиболее часто задаваемые вопросы и т. д. При повторных запусках Delphi это окно появляется автоматически с некоторой периодичностью, определяемой настройками на странице окна Tolls | Environment Options, связанной с закладкой Delphi Direct. Вы также сможете его вызвать в любой момент с помощью опции Help | Delphi Direct главного меню. Основная часть Постановка задачи Составить программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Программа будет написана на Delphi 7 - среде разработки программ. При решении задачи воспользуемся стандартными функция выбранного языка программирования, которые используются для выполнения часто встречающихся вычислений и преобразований, которые язык Delphi предоставляет программисту. Событие OnClick используется для выполнения расчетов и OnKeyPress - событие нажатия клавиш на клавиатуре. Системные требования Программный продукт помещается на дискету. Его размер 395Kb. Производим системный анализ, который даёт возможность: 1. Определить функции и характеристики программного продукта. 2. Обозначить интерфейс продукта с другими системными элементами. 3. Определить проектные ограничения программного продукта. 4. Построить модели: процесса, данных, режимов функционирования продукта. 5. Создать такие формы представления информации и функций системы, которые можно использовать в ходе проектирования. Данный программный продукт работает с операционными системами такими как: Windows 98/2000/ME/XP. Этот программный продукт может работать как на слабых машинах, так и на сильных так как у него слабые системные требования. Программный продукт оперирует строковыми и числовыми вычислениями. Интерфейс программного продукта выполнен только под операционную систему Windows и будет работать в ней и в других операционных системах, совместимых с ней. При загрузке его на другой платформе или несовместимой с Windows он не будет работать. Разработка программного продуктаБлок схема программыВ своей блок-схеме, для повышения наглядности я решил использовать следующие типы блоков:1. Операция начала и конца алгоритма2. Оператор ввода и вывода данных3. Оператор действияБлок схемаСтруктура данныхДля моей программы используются строковые и числовые данные.ПроектированиеОсновные задачиОсновной задачей, является вывод на экран дисплея, результата для задаваемого значения температуры.Выбранный язык программированияЯ выбрал язык программирования, знания о котором достаточны для решения поставленной задачи. Это язык Pascal, а среда программирования, в которой это делалось - Borland Delphi v7.0. ИнтерфейсИнтерфейс программы выполнен в виде окна с двумя функциональными кнопками «Найти значение температуры для задаваемого значения ».Рис.1. Интерфейс программыНаписание программыunit FuntToKg1_;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Button1: TButton;Label2: TLabel;Label1: TLabel;Label3: TLabel;Edit2: TEdit;Label4: TLabel;Button2: TButton;Label5: TLabel;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.DFM}// щелчок на кнопке Пересчетprocedure TForm1.Button1Click(Sender: TObject);varf: real; // в цельсияхk: real; // ответ в фаренгейтахbeginform1.Label2.Caption:='';try // возможна ошибка, если в поле// Edit1 будет не числоf:=StrToFloat(Edit1.Text);k:=18*f/10+32;label2.caption:=Edit1.text+' C - это ' +FloatToStrF(k,ffGeneral,4,2)+' F';excepton EConvertError do // ошибка преобразованияbeginShowMessage('Ошибка! Градусы следует ввести числом.');form1.Edit1.SetFocus; // курсор в поле вводаend;end;end;procedure TForm1.Button2Click(Sender: TObject);varm: real; // в цельсияхn: real; // ответ в фаренгейтахbeginform1.Label5.Caption:='';try // возможна ошибка, если в поле// Edit1 будет не числоm:=StrToFloat(Edit2.Text);n:=((m-32)*10)/18;label5.caption:=Edit2.text+' F - это ' +FloatToStrF(n,ffGeneral,4,2)+' C';excepton EConvertError do // ошибка преобразованияbeginShowMessage('Ошибка! Градусы следует ввести числом.');form1.Edit2.SetFocus; // курсор в поле вводаend;end;end;end.Тестирование программыДля тестирования я пересчитал на калькуляторе значения заданные по условию, сравнил результаты своих вычислений с данными, которые выдает программа, и оказалось все верно.СопровождениеРабота в созданной мною программе не требует каких либо специфических навыков от пользователя. Достаточно запустить исполняемый файл Project1.exe. На экране монитора появится окно программы представленное на рисунке.№1. По нажатию на кнопку «Найти 1-й член последовательности» появится результат.ЗаключениеВ заключение хочется отметить о важности проделанной работы. За период решения задачи курсового проекта я научился работе со стандартными функциями языка программирования Pascal, работе с циклами, условиями, выводом информации в среде программирования Borland Delphi и построению блок-схемы алгоритма работы программы. Список использованной литературы1. Кэнту М. «Delphi7: Для профессионалов»:- Санкт-Питербург:20042. А.Я.Архангельский. «100 компонентов общего назначения Delphi»-М.: 20013. Курс лекций по предмету «Основы алгоритмизации и программирования»4. Курс лекций по предмету «Технология разработки программных продуктов»5. В.Озеров «Советы по Delphi»ПриложениеЛИСТИНГ ПРОГРАММЫunit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Edit1: TEdit;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Button1: TButton;Label3: TLabel;procedure Button1Click(Sender: TObject);procedure Edit1KeyPress(Sender: TObject; var Key: Char);procedure Edit2KeyPress(Sender: TObject; var Key: Char);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);vara,b,s,n:Real;i:Word;c:Integer;begina:=(StrToFloat(Edit1.Text));b:=(StrToFloat(Edit2.Text));n:=1;c:=-1;i:=1;repeati:=i+1;n:=n+1/i;c:=-c;s:=c*n;until (s<a) or (s>b);Label3.Caption:=(FloatTostr(s));end;procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);beginif not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;end;procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);beginif not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;end;end. |
РЕКЛАМА
|
|||||||||||||||||
|
БОЛЬШАЯ ЛЕНИНГРАДСКАЯ БИБЛИОТЕКА | ||
© 2010 |