«Структурное и неструктурное программирование»




Скачать 67.13 Kb.
Название«Структурное и неструктурное программирование»
Дата публикации13.08.2013
Размер67.13 Kb.
ТипКонтрольная работа
litcey.ru > Информатика > Контрольная работа


Министерство образования и науки РФ

Государственное образовательное учреждение высшего профессионального образования

«Удмуртский государственный университет»

Филиал в г. Воткинске

Кафедра Математики и Информатики
ЗС-Вт-080801-34(к) «Прикладная информатика (в экономике)»
КОНТРОЛЬНАЯ РАБОТА




ТЕМА
«Структурное и неструктурное программирование»

Выполнил

Студент группы ЗС-Вт-080801-34(к)

А.С. Калинин подпись
Проверил

Научный руководитель:

И. А. Лебедева подпись

«___»___________20__г.

Воткинск – 2012 г.

Содержание
1. Техническое задание 3

2. Описание программы 5

3. Приложение А Блок-схема программы 7

4. Приложение Б Программный код 8

5. Приложение В Контрольные примеры работы программы 9
1 . Техническое задание
1.1 Введение
Программа «Перевод числа из десятичной, в шестнадцатеричную систему счисления». Область применения – для контроля выполнения контрольной работы по курсу “Разработка и стандартизация программных средств и информационных технологий” для студентов 3-го курса сокращенной формы обучения специальности “Прикладная информатика (в экономике)”.
1.2 Основание для разработки
Задание на контрольную работу по курсу “Разработка и стандартизация программных средств и информационных технологий” для студентов 3-го курса сокращенной формы обучения специальности “Прикладная информатика (в экономике)”.

Утвержден 11.03.2012 г. в «Удмуртский государственный университет» Филиал в г. Воткинске Кафедра Математики и Информатики
1.3 Назначение разработки
Программа будет использоваться для перевода чисел из десятичной – в шестнадцатеричную систему счисления.
1.4 Требования к программному изделию.
1.4.1 Функциональные характеристики:


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

1.4.2 Требования к составу и параметрам технических средств


  • ОЗУ 256 Мб RAM или более;

  • Персональный компьютер с процессором IntelPentium 486 МГц;

  • Монитор с разрешением Super VGA (800 × 600);

  • Клавиатура.


1.4.3 Требования к информационной и программной совместимости


  • Операционная система Windows;

  • Пакет прикладных программ Microsof office 2003.


1.5 Стадии и этапы разработки


  • Исследование предметной области, формулирование требований;

  • Разработка технического задания;

  • Создание блок-схемы алгоритма работы программы;

  • Разработка программного кода;

  • Тестирование.

Срок сдачи: 15.03.2012г.

Исполнитель: Калинин Андрей Сергеевич.


2 . Описание программы
2.1 Общие сведения
Программа «Перевод числа из десятичной, в шестнадцатеричную систему счисления». Для функционирования необходимо наличие операционной системы Windows и пакета прикладных программ Microsoft office с встроенной средой программирования VBA for Access. Программа написана на языке VBA for Access.
2.2 Функциональное назначение
Программа предназначена для перевода чисел из десятичной – в шестнадцатеричную систему счисления. Программа работает только с целыми числами.
2.3 Описание логической структуры
2.3.1 Алгоритм работы


  • Ввод числа в десятичной системе;

  • Преобразование числа в шестнадцатеричную систему;

  • Вывод числа в шестнадцатеричной системе.


2.4 Используемые технические средства


  • Персональный компьютер с процессором Intel Pentium 486 Мгц;

  • ОЗУ 256 Мб RAM или более;

  • Монитор с разрешением Super VGA (800 × 600);

  • Клавиатура.


2.5 Вызов и загрузка
Для запуска программы необходимо открыть проект файл базы данных «РиСПСиИТ.mdb» После запуска программы в диалоговом окне необходимо ввести десятичное число и нажать кнопку Старт. Результат работы программы отобразиться в поле выходное число.
2.6 Входные данные
Одно любое целое знаковое число в десятичной системе.
2.7 Выходные данные
Одно целое знаковое число в шестнадцатеричной системе, начинающееся с 0х.

Приложение А
Блок-схема программы





Приложение Б
Программный код
Option Compare Database

Option Explicit
Function LngToStr(ByVal Value As Long, Baza As Byte) As String

Dim M As Byte

On Error GoTo Err_LngToStr ' Обработчик ошибок

Do

M = Value Mod Baza + 48

If M > 57 Then M = M + 7

Value = Value \ Baza

LngToStr = Chr$(M) & LngToStr

Loop While Value > 0

Exit_LngToStr:

Exit Function

Err_LngToStr:

MsgBox Err.Description

Resume Exit_LngToStr

End Function

Function StrToLng(Value As String, Baza As Byte) As Long

Dim M As Byte, I As Byte

On Error GoTo Err_StrToLng ' Обработчик ошибок

For I = 1 To Len(Value)

M = Asc(Mid$(Value, I, 1)) - 48

If M > 9 Then M = M - 7

StrToLng = StrToLng * Baza + M

Next I

Exit_StrToLng:

Exit Function

Err_StrToLng:

MsgBox Err.Description

Resume Exit_StrToLng

End Function

' Алгоритм перевода из 10 в 16 ричную систему счисления

' Dec - десятичное число

Function DectoHex(Dec As String) As String

Dim Ost As Integer ' Результат перевода из 10 в 16

Dim Razrad As Integer ' Разряд числа

On Error GoTo Err_DectoHex

Razrad = Dec ' Начальное значение разряда

Ost = Dec ' начальное значение остатка

Do ' Цикл

Ost = CInt(Razrad) Mod 16 ' Смотрим остаток от деления

Razrad = Razrad \ 16 ' Целочисленное деление

' Присваиваем буквы в зависимости от остатка

Select Case Ost ' В зависимости от остатка присваиваем цифры или буквы

Case 0 To 9: DectoHex = Ost & DectoHex

Case 10: DectoHex = "A" & DectoHex

Case 11: DectoHex = "B" & DectoHex

Case 12: DectoHex = "C" & DectoHex

Case 13: DectoHex = "D" & DectoHex

Case 14: DectoHex = "E" & DectoHex

Case 15: DectoHex = "F" & DectoHex

End Select

Loop While Razrad > 16 And Ost <= 16
' Присваиваем буквы в зависимости от разряда

Select Case Razrad ' В зависимости от разряда присваиваем буквы или цифры

Case 0 To 9: DectoHex = Razrad & DectoHex

Case 10: DectoHex = "A" & DectoHex

Case 11: DectoHex = "B" & DectoHex

Case 12: DectoHex = "C" & DectoHex

Case 13: DectoHex = "D" & DectoHex

Case 14: DectoHex = "E" & DectoHex

Case 15: DectoHex = "F" & DectoHex

End Select

Exit_DectoHex:

Exit Function

Err_DectoHex:

MsgBox Err.Description

Resume Exit_DectoHex

End Function
' Нажатие кнопки Старт

Private Sub CmdStart_Click()

Dim Result As String ' Результат обработки перевода числа

Dim ValueFirst As Byte ' Значение СС исходного числа

Dim ValueLast As Byte ' Значение СС выходного числа

Dim ValueEdVar As String ' Значение СС единичного варианта
Select Case GruFirst.Value

Case 1: ValueFirst = 2

Case 2: ValueFirst = 8

Case 3: ValueFirst = 16

Case 4: ValueFirst = 10

End Select

Select Case GruLast.Value

Case 1: ValueLast = 2

Case 2: ValueLast = 8

Case 3: ValueLast = 16

Case 4: ValueLast = 10

End Select

' Функция перевода из одной СС в другую

TxtFirst.SetFocus

Result = LngToStr(StrToLng(TxtFirst.Text, ValueFirst), ValueLast)

TxtLast.SetFocus

TxtLast.Text = Result

' Решение единичного варианта

If ValueFirst = 10 And ValueLast = 16 Then

TxtFirst.SetFocus

ValueEdVar = DectoHex(TxtFirst.Text)

txtEdVar.SetFocus

txtEdVar.Text = ValueEdVar

End If

End Sub
' Нажата кнопка закрыть форму

Private Sub CmdExit_Click()

On Error GoTo Err_CmdExit_Click

DoCmd.Close

Exit_CmdExit_Click:

Exit Sub

Err_CmdExit_Click:

MsgBox Err.Description

Resume Exit_CmdExit_Click

End Sub


Приложение В
Контрольные примеры работы программы
Контрольные примеры работы программы представлены в таблице 1:

Таблица 1 - Контрольные примеры работы программы

Вводимые данные

Выводимый результат

100

64

32541

7F1D

416

1A0

-5

Overflow

кк

Type mismach




Похожие:

«Структурное и неструктурное программирование» iconЗадание на контрольную работу по курсу “Разработка и стандартизация...
Задача (сформулирована в лекции Темы 7 “Структурное и неструктурное программирование”, вопрос №6)
«Структурное и неструктурное программирование» iconЗадание на контрольную работу по курсу “Разработка и стандартизация...
Задача (сформулирована в лекции Темы 7 “Структурное и неструктурное программирование”, вопрос №6)
«Структурное и неструктурное программирование» iconМетодические указания к выполнению курсовой работы по дисциплине «Операционные системы»
Структурное программирование — это метод программирования, опирающийся на структурную организацию программы. Его основная цель, основной...
«Структурное и неструктурное программирование» iconЧто такое программирование?
Программирование — область информатики, посвященная разработке программ управления компьютером с целью решения различных информационных...
«Структурное и неструктурное программирование» iconМетодические указания по подготовке к зачету для студентов заочной формы обучения см21
Предмет и цели линейной оптимизации. Математическое программирование. Линейное программирование (ЛП)
«Структурное и неструктурное программирование» iconГоу впо «Тюменский государственный университет» Нижневартовский экономико-правовой...
Предмет и цели линейной оптимизации. Математическое программирование. Линейное программирование (ЛП)
«Структурное и неструктурное программирование» iconУчебно-методический комплекс для студентов заочной формы обучения Тематика дисциплины
Предмет и цели линейной оптимизации. Математическое программирование. Линейное программирование (ЛП)
«Структурное и неструктурное программирование» iconМетодические указания к курсовому проектированию по дисциплине «Прикладное программирование»
Прикладное программирование: Методические указания к курсовому проектированию по дисциплине «Прикладное программирование»/ Сост.:...
«Структурное и неструктурное программирование» iconПрограмма элективного курса по информатике «Программируем на языке Паскаль»
Понятно, что программирование - стержень профильного курса информатики. Но какова его роль и есть ли необходимость изучать программирование...
«Структурное и неструктурное программирование» iconФедотов Дмитрий Вадимович Дом тел.: (495) 573-0864 Моб тел.: +7( 903) 741-3542...
Разработка концепции сайта, дизайн, верстка, программирование, презентации, Flash анимация и программирование
Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
litcey.ru
Главная страница