Перевод из шкалы Цельсия в шкалу Фаренгейта и наоборот

ФЕДЕРАЛЬНОЕ АГЕНТСТВО  ПО ОБРАЗОВАНИЮ 

 

ГОУ ВПО РОСТОВСКИЙ ГОСУДАРСТВЕННЫЙ 

ЭКОНОМИЧЕСКИЙ УНИВЕРСИТЕТ (РИНХ)

 

ФАКУЛЬТЕТ ИНФОРМАТИЗАЦИИ И УПРАВЛЕНИЯ

         Кафедра   Экономической  информатики

                                                   и автоматизации управления

 

 

 

                                 на тему: Отчет к лабораторной работе №1

 

 

 

По дисциплине:    Технология программирования

Курс:      2

 

Группа:     326

 

Специальность:    Информационные технологии в дизайне

Выполнила:                                      Афонина Инна    

студентка                                       

Проверил:

старший преподаватель  И.И. Мирошниченко

Ростов - на – Дону

2010

 

                                                                                  Содержание

1      Постановка задачи «Фаренгейт»                                                                   3

1.1 Цель решения задачи  «Фаренгейт»                                                            3

1.2 Периодичность решения задачи «Фаренгейт»                                           3

1.3 Определение круга пользователей задачи «Фаренгейт»                           3

1.4 Описание выходной информации задачи «Фаренгейт»                            3

1.5 Описание входной информации                                                                  3

1.6 Описание алгоритма решения задачи «Фаренгейт»                                  3

1.7 Технология решения задачи «Фаренгейт»                                                  4

2 Выполнение самостоятельного задания                                                      8

2.1 Цель решения задачи «Перевод»                                                                 8

2.2 Периодичность решения задачи «Перевод»                                               8

2.3 Определение круга пользователей задачи «Перевод»                               8

2.4 Описание выходной информации задачи «Перевод»                                8

2.5 Описание входной информации                                                                  8

2.6 Описание алгоритма решения задачи «Перевод»                                      8

2.7 Технология решения задачи «Перевод»                                                    10

 

3  Выводы по работе                                                                

4  Краткое описание всех использованных в приложении объектов,          

           свойств, функций, операторов                                                                   19

5   Библиографический список

 

 

 

 

 

 

 

 

 

 

 

1                                                                                                                                                                 

       Постановка задачи «Фаренгейт»

1.1 

       Цель решения задачи «Фаренгейт»

       Перевод температуры из шкалы Фаренгейта в шкалу Цельсия и наоборот.

1.2 

       Периодичность решения задачи «Фаренгейт»

      Задача решается по мере возникновения необходимости.

1.3 

        Определение круга пользователей задачи «Фаренгейт»

        Синоптики, ученые, учащиеся средних и высших заведений.

1.4 

       Описание выходной информации задачи «Фаренгейт»

       Значение температуры в градусах Цельсия при переводе из шкалы     

       Фаренгейта, выводящееся с точностью до двух знаков после запятой,

       и наоборот.

1.5 

        Описание входной информации

1. С клавиатуры возможен ввод любых чисел (как целых, так

     и дробных).     

2. При помощи горизонтальной полосы прокрутки возможен

     ввод целых чисел в интервале от -300 до 300.

1.6 

         Описание алгоритма решения задачи «Фаренгейт»

         Алгоритм задачи представлен в математическом виде. Для перевода    

         температуры из шкалы Фаренгейта в шкалу Цельсия используется

         формула:

                                               C = 5/9 * (F - 32),                               (1)

          где C – температура в градусах Цельсия;

                 F – температура в градусах Фаренгейта.

    

       Для перевода температуры из шкалы Цельсия в шкалу Фаренгейта             

       используется формула:

                                                F = C * 9/5 + 32.                               (2)

 

1.7 

       Технология решения задачи «Фаренгейт»

       Проектируем интерфейс программы. Располагаем на форме две метки с   

       надписями «Фаренгейт» и «Цельсий», необходимых для указания шкалы      

       температур, в которую будет переводиться введённое значение, два   

       текстовых поля: для ввода и вывода значения температуры, командные

       кнопки «Очистить», «Выход» и «Перевод».Ещё располагаем на форме 

       горизонтальную полосу прокрутки, которая имеет интервал

       от -300 до +300. (рис.1)

Рисунок 1 –  Форма с элементами управления

     Для выполнения перевода следует  ввести в одно из текстовых полей      

    необходимое значение температуры и нажать на кнопку «Перевод». Во   

    втором текстовом поле появится результат перевода.(рис.2)

Рисунок 2 –  Перевод температуры из шкалы  Фаренгейта в шкалу Цельсия

 

     Альтернативным способом введения  значения температуры является  использование полосы прокрутки.  Минимальный и максимальный шаг  ползунка равен единице. (рис.3)

 

Рисунок 3 –  Ввод значения температуры при помощи полосы прокрутки

     Чтобы заново ввести  значение и произвести перевод  необходимо нажать кнопку «Очистить»  и ввести новое значение. Для  выхода из программы необходимо  нажать на кнопку «Выход».

     В таблице 1 приводятся  начальные установки свойств  используемых  элементов управления.

 

 

 

Таблица 1 - Свойства используемых  элементов управления.

 

Название элемента	Свойства	Значение
Метка	Caption	Фаренгейт
	Name	Label1
Метка	Caption	Цельсий
	Name	Label2
Полоса прокрутки	Name	Pult
	LargeChange	1
	SmallChange	1
	Max	300
	Min	-300
Текстовое поле	Name	Faren
	Text	-
Текстовое поле	Name	Cels
	Text
Командная кнопка	Name	Cmd1
	Caption	Перевод
Командная кнопка	Name	Clear
	Caption	Очистить
Командная кнопка	Name	CmdExit
	Caption	Выход

 

Приложение:

Private Sub clear_Click()

Faren.Text = ""

Cels.Text = ""

Faren.SetFocus

End Sub

 

Private Sub Cmd1_Click()

If Faren.Text = "" Then

Faren.Text = Int((Cels.Text * 5 / 9 + 32) * 100) / 100: GoTo 1

End If

If Cels.Text = "" Then

Cels.Text = Int((Faren.Text - 32) * 5 / 9 * 100) / 100

End If

1: End Sub

 

Private Sub Pult_Change()

Faren.Text = Pult.Value

Cels.Text = Int((Pult.Value - 32) * 5 / 9 * 100) / 100

End Sub

Private Sub cmdExit_Click()

End

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

2   Выполнение самостоятельного задания

2.1 

Цель  решения задачи «Перевод»

Перевод чисел в единицы измерения длинны: сантиметры, дюймы, миллиметры, метры.

2.2 

Периодичность решения задачи «Перевод»

Задача  решается при возникновении необходимости.

2.3 

Определение круга пользователей задачи «Перевод»

Математики, физики, учащиеся средних и высших заведений.

2.4 

Описание  выходной информации задачи «Перевод»

Значения  при переводе единиц длины, выводятся  с точностью до двух знаков после  запятой.

2.5 

Описание  входной информации

С клавиатуры возможен ввод любых целых чисел  и при помощи горизонтальной полосы прокрутки.

2.6 

Описание  алгоритма решения задачи «Перевод»

Алгоритм  задачи представлен в математическом виде.

Для перевода сантиметров в остальные единицы  измерения используются формулы :

                Dym.Text = Int(Santi.Text / 2.54)                 (1)

                Mili.Text = Int(Santi.Text * 10)                     (2)

                Metr.Text = Int(Santi.Text / 100),                 (3)                   

где Santi -вводимая переменная, измеряемая в сантиметрах;

      Dym -выводимая переменная, измеряемая в дюймах;

      Mili - выводимая переменная, измеряемая в миллиметрах;

      Metr -выводимая переменная, измеряемая в метрах.

 

Для перевода дюймов в остальные единицы измерения используются формулы:

                       Santi.Text = Int(Dym.Text * 2.54)               (4)

                       Mili.Text = Int(Dym.Text * 10 * 2.54)         (5)

                       Metr.Text = Int(Dym.Text * 2.54 / 100).      (6)                         

 

Для перевода миллиметров в остальные единицы  измерения используются формулы:

                         Santi.Text = Int(Mili.Text / 10)               (8)

                         Dym.Text = Int(Mili.Text / 10 / 2.54)      (9)

                         Metr.Text = Int(Mili.Text / 1000).           (10)

 

Для перевода метров в остальные единицы измерения используются формулы:

                         Santi.Text = Int(Metr.Text * 100)           (11)

                         Dym.Text = Int(Metr.Text * 100 / 2.54)  (12)

                        Mili.Text = Int(Metr.Text * 1000).           (13)

 

 

 

 

 

 

 

 

 

 

 

2.7 Технология решения задачи «Перевод»

Форма содержит четыре текстовых поля: для ввода и для вывода результатов перевода единиц длины.: сантиметров, дюймов, миллиметров, метров.

Каждое текстовое поле имеет  соответствующие надписи (метки) с названиями единиц измерения длины: сантиметры, дюймы, миллиметры, метры.

А также командные кнопки «Очистить», «Выход» и «Перевод».

На форме предусмотрена горизонтальная полоса прокрутки.(рис.1)

Рисунок 1 – Форма с элементами управления

 

 

Для выполнения перевода следует ввести в любое пустое текстовое поле необходимое значение, затем нажать на кнопку «Перевод» и во всех остальных текстовых полях появится результат перевода в другие единицы длины. (рис.2)

Рисунок 2 –  Перевод значения из сантиметров  в дюймы, миллиметры, метры.

 

Альтернативным  же способом введения значений является использование полосы прокрутки.(рис.3)

Рисунок 3 – Ввод значения температуры  при помощи полосы прокрутки.

     Чтобы заново ввести  значение и произвести перевод  необходимо нажать кнопку «Очистить»  и ввести новое значение. Для  выхода из программы необходимо  нажать на кнопку «Выход».

В таблице 2 приводятся начальные установки свойств используемых  элементов управления.

 

Название элемента	Свойства	Значение
Метка	Caption	Сантиметры
	Name	Label1
Метка	Caption	Дюймы
	Name	Label2
Метка	Caption	Миллиметры
	Name	Label3
Метка	Caption	Метры
	Name	Label4
Полоса прокрутки	Name	Pult
	Max	-
	Min	-
	Value	-
Название элемента	Свойства	Значение
Текстовое поле	Text	-
	Name	Santi
Текстовое поле	Text	-
	Name	Dym
Текстовое поле	Text	-
	Name	Mili
Текстовое поле	Text	-
	Name	Metr
Командная кнопка	Caption	Перевод
	Name	Cmd1
Командная кнопка	Caption	Очистка
	Name	Clear
Командная кнопка	Caption	Выход
	Name	cmdExit