Курсовая работа по предмету "Программирование, компьютеры и кибернетика, ИТ технологии"

Узнать цену курсовой по вашей теме


Деление чисел в нормализованной форме



14

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

Федеральное агентство по образованию

Марийский государственный технический университет

Кафедра информатики и

системного программирования

Курсовая работа по дисциплине информатика на тему:

Деление чисел в нормализованной форме

Выполнила: студент ИВТ-11

Васильев Иван Федорович

Проверила: старший преподаватель

Кафедры ИиСП Иванова И.Н.

Йошкар-Ола

2009

Содержание

1. Теоретическая часть
  • 1.1 Теория
  • 1.2 Описание метода решения
  • 2. Алгоритм (блок-схема) работы программы
  • 2.1 Листинг программы
  • 2.2 Тестирование программы
  • 3. Вывод

Введение

Постановка задачи:

Ввод: два числа в десятичной СС в естественной форме. Программа переводит числа в нормализованную форму, делит нормализованные числа.

Вывод: частное от деления в нормализованной форме в десятичной СС.

В данной курсовой работе показан один из алгоритмов деления чисел в нормализованной форме. Такие программы удобны для быстрого получения нормализованного произведения чисел с помощью TP Pascal. Для реализации поставленной задачи я использовала теоретические сведения из курса информатики и ПнаЯВУ, а также полученные ранее знания в области программирования.

1. Теоретическая часть

1.1 Теория

Пусть имеются два числа X1 = M1·pk1 и X2 = M2·pk2 (здесь индексы у мантиссы и порядка означают не систему счисления, а служат номерами чисел). Умножение должно начинаться с выявления большего из k1 и k2, нахождения модуля их разности k =|k1 - k2| и сдвига вправо на k разрядов мантиссы того числа, у которого k оказался меньше. Операция деления, проводимая как над целыми, так и вещественными числами, приводит в общем случае к появлению вещественного числа, поэтому целые числа предварительно преобразуются в вещественный тип, т.е. переводятся в нормализованную форму. Очевидно, при делении X1X2 мантисса частного M = M1/M2, а порядок k = k1-k2. При этом непосредственно операция деления сводится к сдвигу делителя вправо и последовательному вычитанию его из делителя (т.е. сложения с дополнительным кодом вычитаемого). Как и в предыдущих операциях, результат деления при необходимости нормализуется.

1.2 Описание метода решения

Метод решения заключается в считывании из INPUT в файл чисел, переписывании чисел без разделения их на целую и дробную части, подсчитывании количества разрядов чисел, выбора большего разряда, и сдвига вправо на k разрядов меньшего числа, затем деления нормализованных чисел, если возникает необходимость - нормализации результата, и вывода суммы в OUTPUT.

2. Алгоритм (блок-схема) работы программы

2.1 Листинг программы

Программа считывает числа в файл, убирает `. , считает количество разрядов - k умножаем на 10, до тех пор пока не дойдем до дробной части, с помощью IF THEN ELSE находим больший k у одного из чисел, а к меньшему числу добавляем нули, тем самым сдвигая его вправо, в то же время делим больший k на 1 разряд, предварительно присвоив его другому элементу, до тех пор пока k1 не будет равно k2, записываем в файл числа построчно, начиная с “0. ” - для нормализации, затем нули (если таковые имеются), и само число без “. ”. Считываем записанное построчно как числа и выполняем деление. Часто возникают ситуации, когда необходима нормализация результата, его нормализуем таким же образом как и вводимые числа. Выводим результат + “*k”.

PROGRAM DELENIEVNORMFORME;

USES CRT;

CONST

pt=0. ;

z=0;

x1=10;

VAR

lst1,lst2: INTEGER;

j,x,M,k1,k2,k: REAL;

st,st1,st2,jst,xst: string;

temp,temp1: text;

Ch: CHAR;

BEGIN

ASSIGN (temp, temp. DAT); { Создаем временные файлы, для промежуточных преобразований над числами }

ASSIGN (temp1, temp1. DAT);

REWRITE (temp);

REWRITE (temp1);

WRITELN (Введите первое число: ); {Считываем оба числа в файл}

READ (st);

WRITELN (temp,st);

WRITELN (Введите второе число: );

READLN;

READLN (st);

WRITE (temp,st);

k1: =1;

k2: =1;

RESET (temp);

WHILE NOT EOF (temp) {Переписываем числа во второй файл, убирая . }

DO

BEGIN

WHILE NOT EOLN (temp)

DO

BEGIN

READ (temp,Ch);

IF (Ch = . )

THEN

ELSE

WRITE (temp1,Ch);

END;

READLN (temp);

WRITELN (temp1)

END;

RESET (temp);

REPEAT {Считаем количество разрядов первого числа}

BEGIN

READ (temp,Ch);

k1: =k1*x1;

END

UNTIL (Ch = . ) OR (EOLN (temp));

READLN (temp);

REPEAT {Считаем количество разрядов второго числа}

BEGIN

READ (temp,Ch);

k2: =k2*x1;

END

UNTIL (Ch = . ) OR (EOLN (temp));

RESET (temp1);

REWRITE (temp);

st1: =;

st2: =;

IF k1>k2 {ищем на сколько разрядов сдвигать вправо меньшее число }

THEN

BEGIN

k: =k1/k2;

READLN (temp1,st);

READ (temp1,st);

REPEAT

BEGIN

st2: =st2 + z;

k1: =k1/x1;

END;

UNTIL k2=k1;

END

ELSE

IF k1<k2

THEN

BEGIN

k: =k2/k1;

READ (temp1,st);

REPEAT

BEGIN

st1: =st1 + z;

k2: =k2/x1;

END

UNTIL k2=k1;

END

ELSE

k: =k1;

st1: =pt+st1; {Нормализуем числа}

st2: =pt+st2;

RESET (temp1);

REWRITE (temp);

READLN (temp1,jst);

READ (temp1,xst);

WRITE (temp,st1,jst);

WRITELN (temp);

WRITE (temp,st2,xst);

RESET (temp);

READLN (temp,j);

READ (temp,x);

M: = (j/x); {делим}

IF M > 1 { при необходимости результат деления нормализуем }

THEN

BEGIN

REWRITE (temp);

REWRITE (temp1);

WRITE (temp,M: 1: 10);

RESET (temp);

WHILE NOT EOLN (temp)

DO

BEGIN

READ (temp,Ch);

IF Ch = .

THEN

ELSE

WRITE (temp1,Ch);

END;

RESET (temp1);

READ (temp1,st);

WRITE (Частное от деления в нормализованной форме: ,0. ,st,*,k: 1: 0);

END

ELSE

WRITE (Частное от деления в нормализованной форме: , M: 1: 10,*,k: 1: 0);

END.

2.2 Тестирование программы

Для тестирования введем два числа

На выходе имеем частное от деления в нормализованной форме

3. Вывод

При выполнении этой курсовой работы, был составлен наиболее оптимальный алгоритм деления чисел в нормализованной форме. Более глубоко изучена работа со строковыми данными и типами REAL и INTEGER. Эта программа в первую очередь наиболее необходима людям, которые вручную делят числа в нормализованной форме, чтобы заменить ручной труд на машинный.




Не сдавайте скачаную работу преподавателю!
Данную курсовую работу Вы можете использовать для написания своего курсового проекта.

Доработать Узнать цену работы по вашей теме
Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем курсовую работу самостоятельно:
! Как писать курсовую работу Практические советы по написанию семестровых и курсовых работ.
! Схема написания курсовой Из каких частей состоит курсовик. С чего начать и как правильно закончить работу.
! Формулировка проблемы Описываем цель курсовой, что анализируем, разрабатываем, какого результата хотим добиться.
! План курсовой работы Нумерованным списком описывается порядок и структура будующей работы.
! Введение курсовой работы Что пишется в введении, какой объем вводной части?
! Задачи курсовой работы Правильно начинать любую работу с постановки задач, описания того что необходимо сделать.
! Источники информации Какими источниками следует пользоваться. Почему не стоит доверять бесплатно скачанным работа.
! Заключение курсовой работы Подведение итогов проведенных мероприятий, достигнута ли цель, решена ли проблема.
! Оригинальность текстов Каким образом можно повысить оригинальность текстов чтобы пройти проверку антиплагиатом.
! Оформление курсовика Требования и методические рекомендации по оформлению работы по ГОСТ.

Читайте также:
Разновидности курсовых Какие курсовые бывают в чем их особенности и принципиальные отличия.
Отличие курсового проекта от работы Чем принципиально отличается по структуре и подходу разработка курсового проекта.
Типичные недостатки На что чаще всего обращают внимание преподаватели и какие ошибки допускают студенты.
Защита курсовой работы Как подготовиться к защите курсовой работы и как ее провести.
Доклад на защиту Как подготовить доклад чтобы он был не скучным, интересным и информативным для преподавателя.
Оценка курсовой работы Каким образом преподаватели оценивают качества подготовленного курсовика.

Другие популярные курсовые работы:

Сейчас смотрят :

Курсовая работа Управление персоналом проекта и психологические аспекты
Курсовая работа Право собственности в международном частном праве
Курсовая работа Анализ инвестиционной привлекательности предприятия
Курсовая работа Анализ влияния внешней и внутренней среды на принятие управленческих решений
Курсовая работа Планирование прибыли и рентабельности предприятия питания
Курсовая работа Совершенствование управления труда
Курсовая работа Сравнение бухгалтерского и налогового учета
Курсовая работа Уголовно-правовая характеристика преступлений против половой свободы
Курсовая работа Амнистия и помилование
Курсовая работа Сервис обслуживания авиаперелетов
Курсовая работа Исследование ценностных ориентаций старшеклассников
Курсовая работа Исследование личностных особенностей в процессе социализации детей в условиях детского дома
Курсовая работа Обеспечение материально-технического обеспечения предприятия
Курсовая работа Swot-анализ рынка мобильной связи ОАО "МегаФон"
Курсовая работа Анализ состояния и использования основных фондов