КУБАНСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ЗАДАНИЕ
на курсовое проектирование
Студенту
4 п
Хвостику Алексею Александровичу
Тема работы: “Разработка программного продукта на языке высокого уровня”.
Содержание задания:
Написать программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Запрос окончания работы после ввода значения ноль.
Если С – температура в градусах Цельсия, а F – в градусах Фаренгейта, то имеет место соотношение:

Объем работы:
а) пояснительная записка к проекту –19стр.
б) приложения
Срок выполнения работы: г.
Срок защиты: г.
Дата выдачи задания: _ г.
Дата сдачи работы: _ г.
Руководитель работы_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ С.В. Гончаров
Задание принял студент_ _ _ _ _ _ _ _ _ _ _ _ _ __ А.А. Хвостик
Павловская 2009 г.
Задание
на курсовую работу студента группы 4П СПО
Вариант №29.
Написать программу, которая для выбираемой единицы измерения (градусы Фаренгейта или градусы Цельсия) и для задаваемого значения температуры в этой единице измерения, выводит значение температуры в другой единице измерения. Запрос окончания работы после ввода значения ноль.
Если С – температура в градусах Цельсия, а F – в градусах Фаренгейта, то имеет место соотношение:

Принял: _________________________
“____” “___________________” 2008г.
Подпись _________________
Содержание
1)Введение
2)Основная часть:
а) Постановка задачи
б) Разработка программного продукта
в) Тестирование программы
г) Сопровождение
3) Заключение
4) Список литературы
5) Приложение (листинг программы, дискета)
Введение
Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз,
а первые результаты появляются уже в течение первых 7 дней.
Зарегистрироваться и Начать продвижение
Среда Delphi - это сложный механизм, обеспечивающий высокоэффективную работу программиста. Визуально она реализуется несколькими одновременно раскрытыми на экране окнами. Окна могут перемещаться по экрану, частично или полностью перекрывая друг друга, что обычно вызывает у пользователя, привыкшего к относительной “строгости” среды текстового процессора Word или табличного процессора Excel, ощущение некоторого дискомфорта. После приобретения опыта работы с Delphi это ощущение пройдет, и вы научитесь быстро отыскивать нужное окно, чтобы изменить те или иные функциональные свойства создаваемой вами программы, ибо каждое окно несет в себе некоторую функциональность, т. е. предназначено для решения определенных задач.
Запустите Delphi - и вы увидите нечто, похожее на рис. 2.1 (на рисунке показаны окна Delphi версии 6; для других версий окна могут иметь незначительные отличия). На нем изображены шесть наиболее важных окон Delphi: главное окно 1, окно Дерева объектов (Object Tree View) 2, окно Инспектора объектов 3, окно браузера 4, окно формы 5 и окно кода программы 6.
Чтобы упорядочить окна так, как они показаны на рисунке, вам придется вручную изменять их положение и размеры, т. к. обычно окно кода программы почти полностью перекрыто окном формы. Впрочем, добиваться максимального сходства того, что вы видите на экране вашего ПК, с изображением, показанным на рис. 2.1, вовсе не обязательно: расположение и размеры окон никак не влияют на их функциональность; если вы не видите на экране окна кода, но хотите его увидеть, просто нажмите клавишу F12 [Если к этому моменту активным было окно Инспектора Объектов, вам придется нажать на F12 еще раз.]. Повторное нажатие F12 вновь активизирует окно формы и т. д. - эта клавиша работает как двоичный переключатель, попеременно показывая окно формы или окно кода программы.
Сервис онлайн-записи на собственном Telegram-боте
Попробуйте сервис онлайн-записи VisitTime на основе вашего собственного Telegram-бота:
— Разгрузит мастера, специалиста или компанию;
— Позволит гибко управлять расписанием и загрузкой;
— Разошлет оповещения о новых услугах или акциях;
— Позволит принять оплату на карту/кошелек/счет;
— Позволит записываться на групповые и персональные посещения;
— Поможет получить от клиента отзывы о визите к вам;
— Включает в себя сервис чаевых.
Для новых пользователей первый месяц бесплатно.
Зарегистрироваться в сервисе
Замечу, что при первом запуске 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_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = 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;
var
Form1: TForm1;
implementation
{$R *.DFM}
// щелчок на кнопке Пересчет
procedure TForm1.Button1Click(Sender: TObject);
var
f: real; // в цельсиях
k: real; // ответ в фаренгейтах
begin
form1.Label2.Caption:='';
try // возможна ошибка, если в поле
// Edit1 будет не число
f:=StrToFloat(Edit1.Text);
k:=18*f/10+32;
label2.caption:=Edit1.text+' C - это ' +
FloatToStrF(k,ffGeneral,4,2)+' F';
except
on EConvertError do // ошибка преобразования
begin
ShowMessage('Ошибка! Градусы следует ввести числом.');
form1.Edit1.SetFocus; // курсор в поле ввода
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
m: real; // в цельсиях
n: real; // ответ в фаренгейтах
begin
form1.Label5.Caption:='';
try // возможна ошибка, если в поле
// Edit1 будет не число
m:=StrToFloat(Edit2.Text);
n:=((m-32)*10)/18;
label5.caption:=Edit2.text+' F - это ' +
FloatToStrF(n,ffGeneral,4,2)+' C';
except
on EConvertError do // ошибка преобразования
begin
ShowMessage('Ошибка! Градусы следует ввести числом.');
form1.Edit2.SetFocus; // курсор в поле ввода
end;
end;
end;
end.
Тестирование программы
Для тестирования я пересчитал на калькуляторе значения заданные по условию, сравнил результаты своих вычислений с данными, которые выдает программа, и оказалось все верно.
Сопровождение
Работа в созданной мною программе не требует каких либо специфических навыков от пользователя. Достаточно запустить исполняемый файл Project1.exe. На экране монитора появится окно программы представленное на рисунке.№1. По нажатию на кнопку «Найти 1-й член последовательности» появится результат.
Заключение
В заключение хочется отметить о важности проделанной работы. За период решения задачи курсового проекта я научился работе со стандартными функциями языка программирования Pascal, работе с циклами, условиями, выводом информации в среде программирования Borland Delphi и построению блок-схемы алгоритма работы программы.
Список использованной литературы
1. Кэнту М. «Delphi7: Для профессионалов»:- Санкт-Питербург:2004
2. А.Я.Архангельский. «100 компонентов общего назначения Delphi»-М.: 2001
3. Курс лекций по предмету «Основы алгоритмизации и программирования»
4. Курс лекций по предмету «Технология разработки программных продуктов»
5. В.Озеров «Советы по Delphi»
Приложение
ЛИСТИНГ
ПРОГРАММЫ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = 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;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,s,n:Real;
i:Word;
c:Integer;
begin
a:=(StrToFloat(Edit1.Text));
b:=(StrToFloat(Edit2.Text));
n:=1;
c:=-1;
i:=1;
repeat
i:=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);
begin
if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;
end;
end.
|