">
Информатика Программирование
Информация о работе

Тема: Печать почтовых цифр

Описание: Постановка задачи. Описание программы. Алгоритм решения задачи (блок-схема, выполненная согласно нормативным документам). Табличные данные. Листинг, результаты тестирования программ. Пример отчета по курсовой работе. Система программирования Turbo Pascal.
Предмет: Информатика.
Дисциплина: Программирование.
Тип: Курсовая работа
Дата: 15.08.2012 г.
Язык: Русский
Скачиваний: 4
Поднять уникальность

Похожие работы:

КУРСОВАЯ РАБОТА

Цель работы: закрепление теоретических знаний и практических навыков по умению разрабатывать приложения в среде ТурбоПаскаль.

Тематика: разработка приложения на языке программирования ТурбоПаскаль

Срок выдачи курсовой работы: 5 учебная неделя.

Срок защиты курсовой работы: 16 учебная неделя.

Отчет по курсовой работе включает в себя следующие разделы:

Титульный лист, оформленный по принятым в университете правилам;

1. Постановка задачи (из выданных вариантов);

2. Описание программы Раздел должен описывать основные возможности программы, а именно:

• способ ввода и/или хранения исходных данных, при файловом вводе также описание формата файлов, содержащих данные;

• ограничения на входные данные и проверки корректности данных, выполняемые программой;

• основной алгоритм работы программы;

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

• способы вывода результатов работы программы;

• интерфейс пользователя;

• среда разработки, аппаратные и программные требования разработанного приложения.

3. Алгоритм решения задачи (блок-схема, выполненная согласно нормативным документам)

4. Листинг программы. Листинг приводится шрифтом Courier New, представляется в виде, удобном для чтения и анализа, желательны комментарии к основным действиям и подпрограммам.

5. Результаты тестирования программы. В зависимости от задачи, включить в раздел тестовые наборы входных данных и полученные по ним результаты, для графических программ, возможно, скриншоты тестового прогона программы.

6. Список использованной литературы, оформленный по стандарту:

Номер. Фамилия И.О. Название книги - Город: "Издательство", год, число страниц

Пример:

1. Форсайт Р. Паскаль для всех ? М.: "Машиностроение", 1986, 288 с.

2. Фаронов В.В. Программирование на персональных ЭВМ в среде Турбо Паскаль ? М.: Изд-во МГТУ, 1990, 372 с.

Распечатка отчета включает нумерацию страниц в стандартной рамке (кроме титульного листа).

Основной текст отчета набирается шрифтом Times New Roman, названия разделов выделяются стилем Заголовок 1, все листинги, фрагменты кода, имена переменных, файлов или образцы вывода программы выделяются моноширинным шрифтом Courier New. Возможно использование курсива для смыслового выделения терминов и определений.

Файлы проекта сдаются на проверку вместе с файлом и распечаткой отчета на подписанном CD-диске.

Все файлы, относящиеся к проекту, должны находиться в папке, название которой соответствует названию исполняемого модуля приложения и построено по правилам DOS (имя до 8 символов длиной, содержащее только латинские буквы, цифры и знак подчеркивания).

Созданное приложение должно обеспечивать безошибочную работу с данными, включать в себя средства проверки допустимости вводимых значений или вносимых изменений, обеспечивать удобный и понятный интерфейс

пользователя.

Пример отчета по курсовой работе

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

Федеральное государственное бюджетное образовательное
учреждение высшего профессионального образования
«Сибирский государственный индустриальный университет»

Прокопьевский филиал

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

КУРСОВАЯ РАБОТА

по дисциплине «Информатика и программирование»

Тема:

«Печать почтовых цифр»

Выполнил:

студент гр. ППИ11 Ковалёва Е.Е.

Проверил:

к.п.н., доцент Голунова Л.В.

г. Прокопьевск

2012 г.

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

Алфавитные печатные устройства печатают все символы одного размера (формата). Большие символы, при помощи которых иногда печатается текст (например, заголовки), бывают составлены из отдельных маленьких символов, подобно тому как из различных лампочек образуются символы световой рекламы. Составим программу, которая будет читать натуральные числа и печатать их при помощи больших цифр, как показано на рисунке. В программе надо будет иметь сформированные образцы цифр. После этого можно читать строку за строкой исходные данные (числа) и печатать их при помощи больших цифр. 2. Описание программы

Табличные данные вводятся из текстового файла с указанным пользователем именем. Для ввода данных с клавиатуры вместо имени файла следует ввести con, в этом случае система Турбо Паскаль позволяет прочитать данные с клавиатуры вместо файла.

Входной файл должен иметь следующий формат:

Название_товара1 Остаток1 Приход Расход

Название_товара2 Остаток1 Приход Расход

. . .

т.е., в одной строке текстового файла хранится информация об 1 товаре, вводимые величины разделены хотя бы 1 пробелом, число строк в файле произвольно. Название товара не должно содержать пробелов внутри. Лишние пробелы во входных данных удаляются.

При этом данные заносятся в следующие массивы:

tovar – строковый массив наименований товаров;

ostatok1, prihod, rashod, ostatok2 – числовые массивы для столбцов Остаток1 (остаток на начало отчетного периода), Приход, Расход и Остаток2 (остаток после отчетного периода) соответственно.

Размерности массивов ограничены константой Мax в программе. Программа контролирует количество вводимых строк, чтобы оно не превысило Max. Проверка корректности типов вводимых данных не производится.

Основной алгоритм обработки табличных данных сводится к циклу, выполняемому rows раз, где rows – количество введенных строк данных. В этом цикле рассчитывается Остаток2 по формуле Остаток2=Остаток1+Приход-Расход, а также накапливаются суммы по столбцам таблицы для формирования строки "Итого".

Программа состоит из одного программного модуля tabl.pas. Перечислим основные подпрограммы файла tabl.pas и укажем их назначение:

• function Chislo (var s:string):real; — функция выделяет из входной строки s очередное вещественное или целое число и возвращает его. Используется для извлечения значений столбцов Остаток1, Приход, Расход из строки таблицы.

• function DeSpace (var s:string):string; — функция удаляет лишние пробелы в строке s. Лишними считаются более одного пробела, идущего подряд, а также пробелы в конце и начале строки. Необходимо для обеспечения большей гибкости в начальном представлении табличных данных.

• procedure ReadData (var f:text; var rows:integer); — процедура читает табличные данные из файла с дескриптором f, заносит их в массивы, а также определяет общее число прочитанных строк данных (rows)

• procedure Obrabotka (rows:integer); — процедура реализует основной алгоритм обработки табличных данных, то есть, вычисление столбца Остаток2 и строки Итого

• procedure WriteData (var f:text; rows:integer); — процедура пишет результирующую таблицу в файл f. Если в качестве имени выходного файла введено con, результаты выдаются на экран монитора.

Как видно из описания основных модулей, программа может сохранять результаты своей работы в текстовом файле с выбранным пользователем именем, либо выводить их на экран.

Приложение имеет диалоговый интерфейс, все необходимые данные вводятся пользователем из окна консоли.

Работа выполнена с помощью системы программирования Turbo Pascal 7.1 на ПК Pentium-IV с операционной системой Windows XP. Программа может исполняться в любой DOS- или Windows-совместимой операционной системе, инсталляции и установки дополнительного программного обеспечения не требует.

3. Алгоритм решения задачи (блок-схема, выполненная согласно нормативным документам)

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

Program Pr003;

uses crt;

var i,j,k,x,n:integer;a:array[1..30]of integer;

Procedure Nul;{Процедура нуль}

begin

gotoxy(n+1,10);writeln(***);

for i:=1 to 5 do

begin gotoxy(n,10+i);writeln(* *);

end;{3 пробела}

gotoxy(n+1,11+i);writeln(***);

end;

Procedure Edin;{Единица}

begin

gotoxy(n+3,10);writeln(*);

gotoxy(n+2,11);writeln(**);

gotoxy(n+1,12);writeln(* *);

gotoxy(n,13);writeln(* *);{2 пробела}

gotoxy(n+3,14);writeln(*);

gotoxy(n+3,15);writeln(*);

gotoxy(n+1,16);writeln(****);

end;

Procedure Dwa;{два}

begin

gotoxy(n+1,10);writeln(***);

gotoxy(n,11);writeln(* *);{3 пробела}

gotoxy(n+4,12);writeln(*);

gotoxy(n+3,13);writeln(*);

gotoxy(n+2,14);writeln(*);

gotoxy(n+1,15);writeln(*);

gotoxy(n,16);writeln(*****);

end;

Procedure Tri;{три}

begin

gotoxy(n,10);writeln(*****);

gotoxy(n+3,11);writeln(*);

gotoxy(n+2,12);writeln(*);

gotoxy(n+3,13);writeln(*);

gotoxy(n+4,14);writeln(*);

gotoxy(n,15);writeln(* *);{три пробела}

gotoxy(n+1,16);writeln(***);

end;

Procedure Chet;{четыре}

begin

gotoxy(n+4,10);writeln(*);

gotoxy(n+3,11);writeln(**);

gotoxy(n+2,12);writeln(* *);

gotoxy(n+1,13);writeln(* *);

gotoxy(n,14);writeln(* *);{3 пробела}

gotoxy(n,15);writeln(*****);

gotoxy(n+4,16);writeln(*);

end;

Procedure Pjat;{пять}

begin

gotoxy(n,10);writeln(*****);

gotoxy(n,11);writeln(*);

gotoxy(n,12);writeln(****);

gotoxy(n+4,13);writeln(*);

gotoxy(n+4,14);writeln(*);

gotoxy(n,15);writeln(* *);{3пробела}

gotoxy(n+1,16);writeln(***);

end;

Procedure Shes;{шесть}

begin

gotoxy(n+1,10);writeln(***);

gotoxy(n,11);writeln(*);

gotoxy(n,12);writeln(****);

for i:=1 to 3 do

begin gotoxy(n,12+i);writeln(* *);{3пробела}end;

gotoxy(n+1,16);writeln(***);

end;

Procedure Sem;{семь}

begin

gotoxy(n,10);writeln(*****);

gotoxy(n,11);writeln(* *);{3пробела}

for i:=1 to 4 do

begin gotoxy(n+4-i,11+i);writeln(*);end;

gotoxy(n,16);writeln(*);

end;

Procedure Wos;{восемь}

begin

gotoxy(n+1,10);writeln(***);

gotoxy(n,11);writeln(* *);{3пробела}

gotoxy(n+1,12);writeln(* *);

gotoxy(n+2,13);writeln(*);

gotoxy(n+1,14);writeln(* *);

gotoxy(n,15);writeln(* *);

gotoxy(n+1,16);writeln(***);

end;

Procedure Dew;{девять}

begin

gotoxy(n+1,10);writeln(***);

for i:=1 to 3 do

begin gotoxy (n,10+i);writeln(* *);end;

gotoxy(n+1,14);writeln(****);

gotoxy(n+4,15);writeln(*);

gotoxy(n+1,16);writeln(***);

end;

Begin

ClrScr;

write(введите натуральное число);readln(x);

j:=0;

Repeat

j:=j+1;a[j]:=(x mod 10);{последняя цифра}

x:=(x div 10);

Until(x=0);

n:=8;

for k:=j downto 1 do

begin

case a[k]of

0:nul;

1:edin;

2:dwa;

3:tri;

4:chet;

5:pjat;

6:shes;

7:sem;

8:wos;

9:dew;

end;

n:=n+7;

end;

readln;

End.

5. Результаты тестирования программы



Интернет-ресурсы:

http://эссе.рф - сборник не проиндексированных рефератов. Поиск по рубрикам и теме. Большинство текстов бесплатные. Магазин готовых работ.