Программы для работы с большим объемом информации, записанной в файлах - Программирование, компьютеры и кибернетика курсовая работа
Главная
Программирование, компьютеры и кибернетика
Программы для работы с большим объемом информации, записанной в файлах
Реализация программ для работы с большим объемом информации, записанной в файлах. Набор инструментальных и алгоритмических средств для разработки программы. Структура данных, описание основных модулей. Требования к программному и аппаратному обеспечению.
посмотреть текст работы
скачать работу можно здесь
полная информация о работе
весь список подобных работ
Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Также в этот модуль может быть включена функция на проверку корректности имени файла с точки зрения используемых символов.
1. Вирт Н. Алгоритмы и структуры данных / Н. Вирт; Пер. с англ.Д.Б. Подшиваловой. - 2-е изд., испр. - СПб.: Изд-во "Невский диалект", 2001. - 352 с.
2. Абрамов В.Г. Введение в язык Паскаль / В.Г. Абрамов, Н.П. Трифонов, Г.Н. Трифонова - М.: Наука, 1988. - 378 с.
3. Программирование на языке Паскаль: задачник / О.Ф. Ускова [и др.]; под ред. О.Ф. Усковой - СПб.: Питер, 2002. - 336 с.
U nit HelpUtils; // вспомогательные процедуры
proce dure ShowMessage (txt: string);
function InputQuery (txt: string): Boolean;
function InputFileName (txt: string; var FileName: string;
procedure ShowMessage (txt: string);
function InputQuery (txt: string): Boolean;
// проверка на корректность имени файла
function CheckFileName (FileName: string): Boolean;
const Banned = ['\','/',': ','*','? ','"','<','>','|'];
while Result and (i<=Length (FileName)) do
Result: = not (FileName [i] in Banned);
function InputFileName (txt: string; var FileName: string;
Writeln (txt,' (пустая строка - отмена) ');
ShowMessage ('Имя введено некорректно! ');
if FileExists (name) then FileName: =name
if not FileExists (name) then FileName: =name
if InputQuery ('Файл существует. Заменить? ')
unit UElem; // процедуры для работы с одним элементом
pr ocedure InputDate (var d: TDate);
procedure InputCatalog (var f: TCatalog);
func tion DateToStr (d: TDate): string;
procedure PrintCatalog (f: TCatalog);
procedure SaveCatalog (var t: TextFile; f: TCatalog);
function LoadCatalog (var t: TextFile; var f: TCatalog): Boolean;
function TryStrToDate (s: string; var d: TDate): Boolean;
procedure EditCatalog (var f: TCatalog);
function CountDaysInMonth (m, g: integer): integer;
2: if (g mod 4) =0 then CountDaysInMonth: =29
procedure InputDate (var d: TDate);
Writeln ('Введите последние две цифры года создания файла');
then ShowMessage ('Ошибка! Повторите ввод! ');
Writeln ('Введите месяц создания файла');
then ShowMessage ('Ошибка! Повторите ввод! ');
Writeln ('Введите день создания файла');
if not (d. day in [1. CountDaysInMonth (d. month,d. year)])
then ShowMessage ('Ошибка! Повторите ввод! ');
until d. day in [1. CountDaysInMonth (d. month,d. year)];
procedure InputCatalog (var f: TCatalog);
then ShowMessage ('Ошибка! Имя не должно быть пустым! Повторите ввод! ');
Writeln ('Введите количество блоков');
ShowMessage ('Ошибка! Размер файла должен быть положительным! Повторите ввод! ');
function DateToStr (d: TDate): string;
Result: =Result+IntToStr (d. day) +'. ';
if d. month<10 then Result: =Result+'0';
Result: =Result+IntToStr (d. month) +'. ';
if d. year<10 then Result: =Result+'0';
Result: =Result+IntToStr (d. year);
procedure PrintCatalog (f: TCatalog);
procedure SaveCatalog (var t: TextFile; f: TCatalog);
Writeln (t,'Спецификация: ',f. special);
Writeln (t,'Дата создания: ',DateToStr (f. Create));
Writeln (t,'Количество блоков: ',f. blocks);
// проверка корректности содержимого файла
function GetValueFromFile (var t: TextFile; var s: string): Boolean;
function CheckDate (d: TDate): boolean;
Result: = (d. year in [00.99]) and (d. month in [1.12]) and
(d. day in [1. CountDaysInMonth (d. month,d. year)]);
function LoadCatalog (var t: TextFile; var f: TCatalog): Boolean;
var s: string; d: TDate; num: integer;
if GetValueFromFile (t,s) and ( s<>'') then f. name: =s
if Result and GetValueFromFile (t,s) then f. special: =s
if Result and GetValueFromFile (t,s) and TryStrToDate (s,d) and CheckDate (d)
if Result and GetValueFromFile (t,s) and TryStrToInt (s, num) and (num>=0)
function TryStrToDate (s: string; var d: TDate): Boolean;
if not (Result and TryStrToInt (Copy (s,1,p-1),d. Day) and (d. day in [1.31]))
if not (Result and (p>0) and TryStrToInt (Copy (s,1,2),d. month) and (d. month in [1.12]))
if not (Result and TryStrToInt (s,d. year) and (d. year in [00.99]))
Result: = Result and ( d. day in [1. CountDaysInMonth (d. month,d. year)])
procedure EditCatalog (var f: TCatalog);
if InputQuery ('Изменить имя файла? ') then
ShowMessage ('Ошибка! Имя не должно быть пустым! Повторите ввод! '); until f. name<>'';
if InputQuery ('Изменить специализацию файла? ') then
Writeln ('Введите новую специализацию');
if InputQuery ('Изменить дату создания файла? ')
if InputQuery ('Изменить количество блоков? ') then
Writeln ('Введите новое количество блоков');
ShowMessage ('Размер файла должен быть положительным! Повторите ввод! '); until f. blocks>=0;
unit UFile; // процедуры для работы с файлами
uses SysUtils, HelpUtils, UElem, Windows;
procedure NewFile (var f: TFile; var FileName: string);
procedure OpenFile (var f: TFile; var FileName: string);
procedure LoadFromText (var f: TFile; var FileName: string);
procedure PrintFile (var f: TFile);
procedure SaveToText (var f: TFile; FileName: string);
procedure EditElems (var f: TFile);
procedure DeleteElems (var f: TFile);
// вывод файлов с заданной спецификацией
// добавление нескольких элементов в файл
function AddSomeElems (var f: TFile): Integer;
procedure NewFile (var f: TFile; var FileName: string);
if InputFileName ('Введите имя нового файла', FileName,False) then
if InputQuery ('Добавить данные? ') then AddSomeElems (f);
procedure OpenFile (var f: TFile; var FileName: string);
if InputFileName ('Введите имя существующего файла', FileName,true) then
procedure LoadFromText (var f: TFile; var FileName: string);
var name: string; tf: TextFile; el: TCatalog; ok: Boolean;
if InputFileName ('Введите имя текстового файла', name,true) and
InputFileName ('Введите имя типизированного файла', FileName, false)
if name=FileName then ShowMessage ('Имена должны быть разными! ')
if LoadCatalog (tf,el) then write (f,el) else ok: =False;
if ok then ShowMessage ('Данные загружены')
else ShowMessage ('Ошибка при загрузке');
procedure PrintFile (var f: TFile);
if Eof (f) then ShowMessage ('Файл пуст')
procedure SaveToText (var f: TFile; FileName: string);
var name: string; tf: TextFile; el: TCatalog;
if InputFileName ('Введите имя текстового файла', name,false)
if name=FileName then ShowMessage ('Имена должны быть разные! ')
ShowMessage ('Текстовый файл создан');
function SelectNum (var f: TFile; n: Integer; var num: Integer; var el: TCatalog): Boolean;
Writeln ('Введите номер элемента');
Writeln ('Ошибка! Повторите ввод');
Result: = InputQuery ('Этот элемент? ');
procedure EditElems (var f: TFile);
if Eof (f) then ShowMessage ('Файл пуст')
if SelectNum (f, FileSize (f), num,el)
procedure DeleteElems (var f: TFile);
if n=0 then ShowMessage ('Файл пуст')
// вывод файлов с заданной спецификацией
var el: TCatalog; name: string; ok: Boolean; fout: TFile; s: string [3];
if Eof (f) then ShowMessage ('Файл пуст')
if InputFileName ('Введите имя нового файла-отчета', name,False)
Writeln ('Введите искомую спецификацию');
if InputQuery ('Напечатать отчет? ') then PrintFile (fout);
ShowMessage ('Не найден ни один файл с заданной спецификацией');
els e ShowMessage ('Прервано пользователем');
Program MainProgram; // главная программа
f: TFile; item: Integer; FileName: string;
writeln ('3 - Загрузить данные из текстового файла');
writeln ('5 - Сохранить в текстовый файл');
writeln ('7 - Редактировать запись');
writeln ('9 - Занести в файл-отчёт записи о файлах с заданной спецификацией');
case item of // вызов соответствующих подпрограмм
Написание программы для работы со списком документов, разработка функционала. Требования к аппаратному и программному обеспечению. Описание интерфейса пользователя. Структура программы и описание данных. Процедура тестирования и его результаты. курсовая работа [1,5 M], добавлен 26.08.2012
Описание предметной области, входной и выходной информации, функциональное и информационное моделирование, разработка структуры базы данных. Требования к аппаратному и программному обеспечению. Компоненты и интерфейс программы, ее вызов и загрузка. дипломная работа [4,8 M], добавлен 06.07.2012
Обоснование необходимости разработки виртуального магазина. Описание форм программы. Требования к аппаратному и программному обеспечению. Тестирование и выявление ошибок. Область применения программы. Расчет экономического эффекта проекта. Охрана труда. дипломная работа [1,7 M], добавлен 20.12.2012
Актуальность защиты информации и персональных данных. Постановка задачи на проектирование. Базовая модель угроз персональных данных, обрабатываемых в информационных системах. Алгоритм и блок-схема работы программы, реализующей метод LSB в BMP-файлах. курсовая работа [449,5 K], добавлен 17.12.2015
Базовая модель угроз персональных данных, обрабатываемых в информационных системах персональных данных. Метод сокрытия информации в наименьших битах графических контейнеров. Алгоритм и блок-схема работы программы, реализующей метод LSB в BMP-файлах. курсовая работа [475,1 K], добавлен 05.12.2014
Особенности разработки программы для ведения автоматизированной базы данных, организованной на информационных файлах. Тестовые наборы, проектирование кода программы. Принципы проведения испытаний и принципы проверки алгоритма на работоспособность. лабораторная работа [1,6 M], добавлен 23.11.2014
Синтаксический анализ простой программы на языке С. Предварительный выбор метода решения задачи. Разработка технологии обработки информации. Проектирование программных модулей. Процесс тестирования программы. Требования к программному обеспечению. курсовая работа [934,7 K], добавлен 01.07.2011
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .
© 2000 — 2021
Программы для работы с большим объемом информации, записанной в файлах курсовая работа. Программирование, компьютеры и кибернетика.
Математика Самостоятельные И Контрольные Работы 2 Класс
Реферат по теме Тіньова складова національної економіки та напрямки протидії
Реферат по теме Самоорганизующаяся Вселенная
Реферат: Реформи братів Гракхів
Дипломная работа по теме Проект внедрения волоконно-оптической линии связи между УТС 'Югорскгазтелеком' и 5 городскими АТС
Курсовая работа: Планування реалізації стратегії у ресторані "Декаданс Хаус" та заходи щодо підвищення його ефективності
Двигательная Активность В Жизни Человека Реферат
Курсовая Работа На Тему Тепломассообмен При Испарении И Горении Капель Жидких Топлив
Контрольная работа по теме Здоровый образ жизни, учет индивидуальных и возрастных факторов в его реализации
Курсовая работа: Госбюджет и проблемы его формирования. Скачать бесплатно и без регистрации
Разминка Реферат По Физкультуре
Реферат: Організаційні аспекти соціальної роботи
Реферат по теме Премирование работников: учет и налогообложение
Реферат по теме И.В. Сталин
Дипломная работа: Зависимость поведенческой культуры подростков от уровня информированности по проблеме СПИДА. Скачать бесплатно и без регистрации
Представление Данных В Компьютере Реферат
Сочинение Описание 5 Предложений
Реферат На Тему Банковский Баланс И Принципы Его Построения
Доклад: Русская Православная Церковь
Реферат: Профилактика близорукости у детей и подростков. Скачать бесплатно и без регистрации
Описание и разработка ЭИС - Программирование, компьютеры и кибернетика курсовая работа
Технологическое оснащение в сфере коммерции. Грузоподъемные механизмы и их эксплуатация - Маркетинг, реклама и торговля контрольная работа
Сетевые корпорации как объект управления - Менеджмент и трудовые отношения курсовая работа