Алгоритмы и организация данных - Программирование, компьютеры и кибернетика лабораторная работа

Алгоритмы и организация данных - Программирование, компьютеры и кибернетика лабораторная работа



































Программа последовательного поиска в последовательном неотсортированном массиве реквизитов единственного значения. Алгоритм сортировки простым выбором. Программа индексирования основного файла по одному реквизиту. Индексные файлы по реквизитам.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Федеральное агентство по образованию РФ
ФГОУ СПО «Перевозский строительный колледж»
Лабораторная работа по дисциплине «Базы данных»
на тему: «АЛГОРИТМЫ И ОРГАНИЗАЦИЯ ДАННЫХ»
Подготовил студент 351 группы: Дмитриев А.С.
Напишите программу последовательного поиска в последовательном неотсортированном массиве реквизитов единственного значения q. Используйте любой доступный вам язык программирования.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, jpeg, ExtCtrls;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
a:Array [1..SIZE] of Integer; // массив
found:Boolean; // TRUE - совпадение образца с элементом массива
i:Integer; // индекс элемента массива
If Length (StringGrid1.Cells[0,0])>3 then
ShowMessage ('Ошибка в P (1) !!! Нельзя ввести число больше "999".');
If Length (StringGrid1.Cells[1,0])>3 then
ShowMessage ('Ошибка в P (2) !!! Нельзя ввести число больше "999".');
If Length (StringGrid1.Cells[2,0])>3 then
ShowMessage ('Ошибка в P (3) !!! Нельзя ввести число больше "999".');
If Length (StringGrid1.Cells[3,0])>3 then
ShowMessage ('Ошибка в P (4) !!! Нельзя ввести число больше "999".');
If Length (StringGrid1.Cells[4,0])>3 then
ShowMessage ('Ошибка в P (5) !!! Нельзя ввести число больше "999".');
ShowMessage ('Ошибка в "Образец" !!! Нельзя ввести число больше "999".');
If (StringGrid1.Cells[0,0]='') or (StringGrid1.Cells[1,0]='') or (StringGrid1.Cells[2,0]='') or (StringGrid1.Cells[3,0]='') or (StringGrid1.Cells[4,0]='') then
ShowMessage ('Введены не все элементы уравнения. ПРОДОЛЖЕНИЕ НЕВОЗМОЖНО!');
ShowMessage ('Не введен образец. ПРОДОЛЖЕНИЕ НЕВОЗМОЖНО!');
a[i]:=StrToInt (StringGrid1.Cells[i-1,0]);
If Length (StringGrid1.Cells[0,0])=0 then
ShowMessage ('Введены не все элементы массива!!!');
found:=FALSE; // пусть нужного элемента в массиве нет
ShowMessage ('Совпадение с элементом номер P ('+IntToStr (i)+').'+#13+'Поиск успешен.') else
ShowMessage ('Совпадение с образцом нет.');
procedure TForm1.FormActivate(Sender: TObject);
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
procedure TForm1.StringGrid1Click(Sender: TObject);
If StringGrid1.Cells[0,0]=StringGrid1.Cells[1,0] then
If Length (StringGrid1.Cells[0,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[1,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[0,0]=StringGrid1.Cells[2,0] then
If Length (StringGrid1.Cells[0,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[2,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[0,0]=StringGrid1.Cells[3,0] then
If Length (StringGrid1.Cells[0,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[3,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[0,0]=StringGrid1.Cells[4,0] then
If Length (StringGrid1.Cells[0,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[4,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[1,0]=StringGrid1.Cells[2,0] then
If Length (StringGrid1.Cells[1,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[2,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[1,0]=StringGrid1.Cells[3,0] then
If Length (StringGrid1.Cells[1,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[3,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[1,0]=StringGrid1.Cells[4,0] then
If Length (StringGrid1.Cells[1,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[4,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[2,0]=StringGrid1.Cells[3,0] then
If Length (StringGrid1.Cells[2,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[3,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[2,0]=StringGrid1.Cells[4,0] then
If Length (StringGrid1.Cells[2,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[4,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If StringGrid1.Cells[3,0]=StringGrid1.Cells[4,0] then
If Length (StringGrid1.Cells[3,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
If Length (StringGrid1.Cells[4,0])<>0 then
ShowMessage ('Нельзя ввести одинаковые числа!!!');
Реализует ли приведенная ниже программа алгоритм сортировки простым выбором?
Приведенная программа не реализует алгоритм сортировки простым выбором.
Напишите программу индексирования основного файла по одному реквизиту. Используйте любой доступный вам язык программирования.
Индексирование основного файла по одному реквизиту будем делать на примере вот этой таблицы:
Индексирование файла будем делать по реквизиту «A».
Индексный файл будет выглядеть так:
2. Ввод размеров таблицы, т.е. количество столбцов и строк.
4. Запись этой таблицы в файл «Baza.txt».
5. Ввод названия реквизитов, по которым нужно индексировать файл.
6. Проверка всех записей основного реквизита на упорядоченность, т.е. расположение по возрастанию или убыванию (по алфавиту или по цифрам):
1) Если все записи упорядочены, то:
1) Если записей в реквизите меньше 10, то в индексе необходимо помещать указатель на каждую запись.
2) Если записей в реквизите больше 10, то в индексе необходимо помещать указатель не на каждую запись, а на ключи, которые будут создаваться, например, с промежутком в 7 записей (промежуток зависит от того, сколько записей в реквизите всего находится).
2) Если все записи не упорядочены, то, в индексе необходимо помещать указатель на каждую запись, а сам индексный файл можно упорядочить по значениям ключа индексирования.
7. Запись индексированной таблицы в файл «Index.txt».
Рассмотрите файл из двух реквизитов А и В с первой записью (11,8) и последующими значениями А и В, получаемыми по формулам:
состоящий из 25 записей. Создайте индексные файлы по реквизитам А и В и двум реквизитам совместно. Необходимые дополнительные параметры выберите самостоятельно.
Структура данных с указанием типов. Общая структурная схема программы. Алгоритмы сортировки вставками. Назначение make-файла. Функции управления программой; перемещения и корректировки введенных данных и их удаления справочника, загрузки данных из файла. курсовая работа [1,3 M], добавлен 12.01.2016
Разработка программы для осуществления сортировки данных методами "Выбора" с использованием языка C# и Visual Studio 2012. Плавный метод сортировки. Основные фазы сортировки во внутреннем представлении пирамиды. Программа сортировки методами выбора. курсовая работа [637,6 K], добавлен 29.11.2014
Описание алгоритма сортировки с двоичным включением, выбор структур данных. Пример сортировки массива, отсортированного случайным образом. Алгоритм покрытия по методу "Построение одного кратчайшего покрытия". Волновой алгоритм поиска длиннейшего пути. курсовая работа [78,2 K], добавлен 24.09.2010
Основные определения поиска подстроки в строке. Простейшие алгоритмы поиска подстроки в строке. Алгоритмы последовательного поиска и Рабина-Карпа, создание и описание программы, реализующей их. Порядок работы с приложением. Тестирование алгоритмов. курсовая работа [2,7 M], добавлен 24.05.2012
Структура заданного исходного файла и структуры данных, соответствующие данным файла. Подпрограмма проверки принадлежности текста к одной из шести кодовых таблиц. Алгоритмы перекодировки файла в cp1251. Алгоритм сортировки записей исходного файла. курсовая работа [63,7 K], добавлен 12.12.2010
Методы реализации алгоритмов сортировки и алгоритмов поиска на языках программирования высокого уровня. Программирование алгоритмов сортировки и поиска в рамках создаваемого программного средства на языке Delphi. Создание руководства пользователя. курсовая работа [1,7 M], добавлен 16.04.2012
Организация возможности просмотра текстовых файлов и осуществления поиска нужных слов в тексте. Редактирование текста (шрифт, размер). Алгоритм поиска подстроки в строке (метод Кнута-Морриса-Пратта). Загрузка текста из файла (с расширением .txt). курсовая работа [2,2 M], добавлен 29.05.2013
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Алгоритмы и организация данных лабораторная работа. Программирование, компьютеры и кибернетика.
Дипломная работа: Налоговые правонарушения как основание налоговой ответственности
Прокуратура Курсовая
Контрольная работа: Торговое оборудование
Поэтов Надо Слушать Душой Сочинение
Условия И Факторы Становления Родительства Реферат
Контрольные Работы По Алгебре 11 Колягин
Реферат: Артемида
Книга: Мальчик
Реферат: HivAids Essay Research Paper HIVAIDS is an
Дипломная Работа На Тему Выбор Оптимального Портфеля Ценных Бумаг Инвестиционным Отделом "Приватбанка"
Контрольная работа по теме Купля-продажа недвижимого имущества
Дипломная работа по теме Арабские страны Северной Африки в постбиполярной системе международных отношений
Дипломная работа по теме Динаміка та еколого-біологічні особливості дендрофлори пам’ятки місцевого значення саду імені Т.Г Шевченко м. Харкова
Курсовая работа по теме Современные проблемы и перспективы развития интеграционных процессов в Западной Европе
Курсовая Работа На Тему Системы Теплоснабжения Станкостроительного Завода От Котельной
Реферат На Тему Врожденные Аномалии Развития Цнс
Реферат: Особливості маркетингу туристичних послуг на прикладі готелю Гірський
Бизнес Информатика Эссе
Отмена Крепостного Права Эссе По Истории
Контрольная работа: Адміністративно-запобіжні заходи
Решение алгебраических задач геометрическим способом - Педагогика курсовая работа
Управление карьерой: опыт, проблемы, перспективы - Менеджмент и трудовые отношения курсовая работа
Репертуар, направленный на развитие музыкального восприятия у детей дошкольного возраста - Педагогика курсовая работа


Report content on this page

Report Page

Please submit your DMCA takedown request to dmca@telegram.org