Пермский государственный
технический университет
Кафедра
Информационных технологий и автоматизированных систем
Отчет по
Лабораторной
работе
«Работа с
типами данных записи»
По дисциплине
«Информатика»
Выполнил студент группы АУЦ-10
Галимов Руслан
Проверил ассистент кафедры ИТАС
Баранов А.А
Пермь 2010г
Цель и задачи работы
1.
Создание
структуры данных;
2.
Возможность
записи данных;
3.
Свободное
редактирование записанных данных;
Оборудование и программное обеспечение
- Персональный компьютер
- Манипуляторы клавиатура и мышь
- Программы Turbo Pascal
ввод
запись данный редактирование
Программа на языке Turbo Pascal
Uses Crt;
Const
MaxIndex = 10;
Type
Worker =
Record
Familia,Imia,Otchestvo,MestoProgivanuia:
String;
Year: Integer;
Month,Day,UchebnaiaGruppa,NomerTelefona:
Byte;
End;
Var i: Byte;
a:array[1..MaxIndex]
of Worker;
Procedure
Header(s:String);
Begin
ClrScr;
TextColor(Yellow);
GotoXY(30,1);
Write(s);
GotoXY(1,3);
TextColor(LightGray);
End;
Procedure
Viewing;
Begin
Header('Prosmotr');
For i:=1 to
MaxIndex Do
With a[i] Do
Begin
Write(a[i].Familia,'
',a[i].Imia,' ',a[i].Otchestvo);
WriteLn('
Mesto Progivanuia: ',a[i].MestoProgivanuia);
Write('Data
rogdenuia: ',a[i].Day,'.',a[i].Month,'.',a[i].Year);
write('UchebnaiaGruppa:
',a[i].UchebnaiaGruppa);
write('NomerTelefona:
',a[i].NomerTelefona);
End;
ReadKey;
End;
Procedure
Editing;
Begin
Repeat
Header('Uzmenenie');
Write('Vvedite
nomer kartochki: ');
ReadLn(i);
With a[i] Do
Begin
Write('Familia:
'); ReadLn(a[i].Familia);
Write('Imia:
'); ReadLn(a[i].Imia);
Write('Otchestvo:
'); ReadLn(a[i].Otchestvo);
Write('Data
rogdenuia: '); ReadLn(a[i].Day,a[i].Month,a[i].Year);
Write(' Mesto
Progivanuia: '); Readln(a[i].MestoProgivanuia);
write('NomerTelefona:');
Readln (a[i].NomerTelefona);
End;
WriteLn;
WriteLn('Probel
- menu');
WriteLn('Lubaia
drugaia - prodolgitb');
Until
ReadKey=#32
End;
Procedure
ClearArray;
Begin
For i:=1 to
MaxIndex Do
With a[i] Do
Begin
a[i].Familia:='Familia';
a[i].Imia:='Imia';
a[i].Otchestvo:='Otchestvo';
a[i].MestoProgivanuia:='MestoProgivanuia';
a[i].Day:=0;
a[i].Month:=0;
a[i].Year:=0;
a[i].NomerTelefona:=0;
End;
End;
Procedure
Deleting;
Begin
Repeat
Header('Ydalenie');
Writeln('Vvedenie:');
Writeln('1 -
chtobi ydalitb odny 3apicb');
Writeln('0 -
chtobi ydalitb Bce 3apicu');
Case ReadKey
of
1': Begin
Write('Vvedite
nomer cartochki: ');
ReadLn(i);
With a[i] Do
Begin
a[i].Familia:='Familia';
a[i].Imia:='Umia';
a[i].Otchestvo:='Otchestvo';
a[i].MestoProgivanuia:='Mesto
Progivanuia';
a[i].Day:=0;
a[i].Month:=0;
a[i].Year:=0;
a[i].NomerTelefona:=0;
End;
TextColor(Red);
WriteLn('Dannie
udaleni');
TextColor(LightGray);
End;
0': Begin
ClearArray;
TextColor(Red);
WriteLn('Bce
Dannie udaleni');
TextColor(LightGray);
End;
End;
Writeln;
WriteLn('Probel
- menu');
WriteLn('Lubaia
drugaia - prodolgitb');
Until
ReadKey=#32
End;
Begin
ClearArray;
Repeat
Header('Laboratornaia
10');
WriteLn('1 -
Prosmotr');
WriteLn('2 -
Izmenitb');
WriteLn('3 -
Udalitb');
WriteLn('Esc -
‚л室');
Case ReadKey
of
1': Viewing;
2': Editing;
3': Deleting;
#27: Exit;
End;
Until 1<>1
End.
Вывод
После выполнения этой
лабораторной я освоил работу со структурами данных. Я думаю, моя программа
будет пользоваться спросом, так как она полезна и удобна в использовании.
Другие работы по теме:
Классификация логистических систем
Классификация систем имеет весьма условный характер. Границы между отдельными их типами и видами расплывчаты и определяются преимущественно отношением исследователя к изучаемой системе, а не реальной действительностью.
Текст программы. 7 Используемые переменные. 7. Структура узла бинарного дерева. 7. Функция создания дерева. 7
Написать программу, читающую текст алгебраической формулы в инфиксной форме, включающей операции сложения, вычитания, умножения и деления, операнды (a, b, c, …, X, y, z) и круглые скобки
Магнитная запись
Технология записи информации на магнитные носители появилась сравнительно недавно - примерно в середине 20-го века. Но уже несколько десятилетий спустя - эта технология стала очень распространенной во всём мире.
Информационная система географических названий США
Введение 1 Изменения наименований Список литературы Введение Информационная система географических названий (англ. Geographic Names Information System, GNIS) - база данных, содержащая названия и информацию о расположении более чем двух миллионов физических и культурных объектов, находящихся в США и подконтрольных им территориях.
Наша эра
Введение 1 Начало отсчёта 2 Распространение записи 3 Конфликт светской и религиозной записей 3.1 Доводы в поддержку светской записи 3.2 Доводы в поддержку религиозной записи
Дневник Анны Франк
Дневник под названием « Убежище » (нидерл. Het achterhuis), более известный просто как Дневник Анны Франк — записи, которые вела еврейская девочка Анна Франк с 12 июня 1942 по 1 августа 1944 года в период нацистской оккупации Нидерландов. Впервые издан в Нидерландах в 1947 году, в США и Великобритании в 1952 году под названием «Дневник юной девушки» (англ.
Компьютерные приводы и их виды
Методы чтения и записи различных типов данных на сменные магнитные или оптические носители. Типы приводов: floppy-дисковод, Iomega Zip, накопители на съемных дисках, CD или DVD-приводы, их производители. Увеличение скорости чтения и записи на дисководах.
Программирование на "Си".
‹ЂЃЋђЂ’ЋђЌЂџ ђЂЃЋ’Ђ N3 Њ®Ј®д ©«®ўлҐ Їа®Ја ¬¬л Ё ЁбЇ®«м§®ў ЁҐ ¤Ё ¬ЁзҐбЄ®© Ї ¬пвЁ 1.Ћд®а¬Ёвм «Ј®аЁв¬ аҐиҐЁп § ¤ зЁ « Ў®а в®а®© а Ў®вл N1 ў ўЁ¤Ґ ¤ўге дгЄжЁ©, § ЇЁб ле ў ®в¤Ґ«мле д ©« е. ђ бб-
Принципы построения ОЗУ
Изучение принципов построения оперативных запоминающих устройств Цель работы: Изучение основных принципов построения оперативных запоминающих
Магнитные носители информации. Запись информации на магнитные носители
Доклад по физике по теме: “ Магнитная запись. Магнитные носители информации” Технология записи информации на магнитные носители появилась сравни-тельно недавно — примерно в середине 20-го века (40-ые - 50-ые годы). Но уже нес-колько десятилетий спустя — 60-ые - 70-ые годы — это технология стала очень рас-пространённой во всём мире.
Лабараторная работа №4
Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
Проектирование и реализация базы данных
Расчет предельно-допустимых сбросов (ПДС) для предприятий различных видов деятельности. Разработка и реализация базы данных "ПДС". Схема данных и программные тексты.
Запись строковых выражений, кавычки
С большим удивлением узнал, что многие (иногда даже не начинающие) PHP-программисты не знакомы с разницей между обработкой данных в кавычках (") и апострофах (').
Индексы
Речь пойдет об алгоритмах и структурах данных, их организации и поддержке. Термин индекс далее используется строго в целях обозначения дополнительных поисковых или оптимизирующих структур. Основным языком примеров выбран язык МUMPS.
Создание базы данных "Стадионы города" на языке C
Создание на языке C базы данных "Стадионы города", требования к программе. Осуществление загрузки базы данных в массив и вывод главного меню в основной программе. Алгоритм работы программы в виде блок-схемы. Описание функций программы и ее листинг.
Технология хранения, поиска и сортировки информации
Настольные системы, функционирующие под управлением операционной системой Windows. Манипуляции, связанные с мышью. Основные элементы диалогового окна. Простейшая база данных (БД), поиск информации в БД, сортировка данных и защита БД. Среда Access.
Записи в языке Turbo Pascal
Запись в языке программирования – это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. Поле записи как обычная переменная. Операторы сравнения, присоединения. Программа с использованием массива структур.
Создание электронной записной книжки
Написание программы на языке Delphi - создание электронной записной книжки. Описание типов "запись", полей и массива, составление процедур. Создание приветствия и редактирование записи. Создание команды для вызова справки. Принцип работы программы.
Введение в программирование
Сущность отладки, условия ее выполнения. Ошибки при компиляции программы, создание и изменение исходных символьных файлов. Процесс преобразования кода в машинный. Первый программист, виды трансляторов, классификация и уровни языков программирования.
Проектирование баз данных MS Access
Проектирование базы данных Access. Система управления базами данных. Создание и обслуживание базы данных, обеспечение доступа к данным и их обработка. Постановка задач и целей, основных функций, выполняемых базой данных. Основные виды баз данных.
Устройства памяти
Text Graphics Презентацию выполняли Корепанова А Макрушина Т Graphics Устройства Памяти Устройства Памяти - устройства памяти данных, которые используются в компьютерах, чтобы хранить данные. Компьютер имеет много типов устройств памяти данных. Некоторые из них могут быть тематическими категориями как сменные Устройства Памяти данных и другие как не сменные Устройства Памяти данных.
Лабораторные по информатике
Микропроцессоры. Отчет по лабораторным работам. Лабораторная работа №1. Задание. Составить программу записи во все порты О ЭВМ чередующихся нулей и единиц. Например в порт Р0 записать число в двоичной форме 01010101, в порт Р1 - 10101010 и т.д. Затем необходимо инвертировать значения во всех портах, т.е. в Р0 - 10101010, в Р1 - 01010101 и т.д.
Устройства для чтения и хранения информации
Graphics Graphics В данной презентации будут описаны устройства для чтения и хранения информации В данной презентации будут описаны устройства для чтения и хранения информации
Обработка последовательных файлов в программе
Кузнецова В. С., преподаватель информатики, МОУ межшкольный учебный комбинат №2, г. Хабаровск Одним из трудных для учащихся и преподавателей разделов программирования является программирование обработки файлов. В Хабаровском межшкольном учебном комбинате №2 накоплен определенный опыт по обучению школьников приемам программирования, в том числе, при работе с файлами.
Обзор современных портативных сейсмостанций
Geometrics Es-3000 Ультрапортативная сейсмостанция Es-3000 представляет из себя измерительный модуль, подключаемый к переносному компьютеру (Notebook) посредством сетевого кабеля (Ethernet). Регистрирующий модуль включает 8 или 12 каналов, без возможности расширения. Программное обеспечение ESOS управляет работой системы по записи данных, обработка осуществляется программой SIPQC или SeisImager/2D.
Бухгалтерский баланс и отчётность 2
Реферат Бухгалтерский баланс и отчётность Отчетность предприятия является логическим продолжением процедур финансового учета и представляет собой систему показателей, характеризующих