Кубанського державного університету
ЗАВДАННЯ
на курсове проектування
Студенту 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 - подія натиснення клавіш на клавіатурі.
Системні вимоги
Програмний продукт поміщається на дискету. Його розмір 395 Kb.
Виробляємо системний аналіз, який дає можливість:
1. Визначити функції і характеристики програмного продукту.
2. Окреслити інтерфейс продукту з іншими системними елементами.
3. Визначити проектні обмеження програмного продукту.
4. Побудувати моделі: процесу, даних, режимів функціонування продукту.
5. Створити такі форми подання інформації та функцій системи, які можна використовувати під час проектування.
Даний програмний продукт працює з операційними системами такими як: Windows 98/2000/ME/XP. Цей програмний продукт може працювати як на слабких машинах, так і на сильних так як у нього слабкі системні вимоги. Програмний продукт оперує рядковими і числовими обчисленнями. Інтерфейс програмного продукту виконаний тільки під операційну систему Windows і буде працювати в ній і в інших операційних системах, сумісних з нею. При завантаженні його на іншій платформі або несумісною з Windows він не буде працювати.
Розробка програмного продукту
Блок схема програми
У своїй блок-схемі, для підвищення наочності я вирішив використовувати такі типи блоків:
Операція початку і кінця алгоритму
Оператор введення і виведення даних
Оператор дії
Блок схема
Структура даних
Для моєї програми використовуються рядкові та числові дані.
Проектування
Основні завдання
Основним завданням, є вивід на екран дисплея, результату для задається значення температури.
Вибрана мова програмування
Я вибрав мову програмування, знання про яке достатні для вирішення поставленого завдання. Це мова Pascal, а середовище програмування, в якій це робилося - Borland Delphi v 7.0.
Інтерфейс
Інтерфейс програми виконаний у вигляді вікна з двома функціональними кнопками «Знайти значення температури для задається значення».
Рис.1. Інтерфейс програми
Написання програми
unit FuntToKg 1_;
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 ('Помилка! Градуси слід ввести числом.');
form 1. Edit 1. SetFocus; / / курсор в полі введення
end;
end;
end;
procedure TForm1.Button2Click (Sender: TObject);
var
m: real; / / у Цельсія
n: real; / / відповідь у фаренгейтах
begin
form 1. Label 5. 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 ('Помилка! Градуси слід ввести числом.');
form 1. Edit 2. SetFocus; / / курсор в полі введення
end;
end;
end;
end.
Тестування програми
Для тестування я перерахував на калькуляторі значення задані за умовою, порівняв результати своїх обчислень з даними, які надає програма, і виявилося все вірно.
Супровід
Робота у створеній мною програмі не вимагає яких або специфічних навичок від користувача. Досить запустити виконуваний файл Project 1.exe. На екрані монітора з'явиться вікно програми представлене на малюнку. № 1. По натисненню на кнопку «Знайти 1-й член послідовності» з'явиться результат.
Висновок
На закінчення хочеться відзначити про важливість виконаної роботи. За період виконання завдання курсового проекту я навчився роботі зі стандартними функціями мови програмування Pascal, роботі з циклами, умовами, виведенням інформації в середовищі програмування Borland Delphi і побудови блок-схеми алгоритму роботи програми.
Список використаної літератури
Кент М. «Delphi 7: Для професіоналів»: - Санкт-Пітербург: 2004
А. Я. Архангельський. «100 компонентів загального призначення Delphi»-М.: 2001
Курс лекцій з предмету «Основи алгоритмізації та програмування»
Курс лекцій з предмету «Технологія розробки програмних продуктів»
В. Озеров «Поради по 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.