Название: Работа с типами данных записи
Вид работы: лабораторная работа
Рубрика: Информатика и программирование
Размер файла: 17.68 Kb
Скачать файл: referat.me-136779.docx
Краткое описание работы: Создание программы для обработки структуры данных. Возможность ввода и записи данных на персональном компьютере. Прикладное программирование на языке Turbo Pascal. Свободное редактирование записанных данных с помощью программы, написанной на Turbo Pascal.
Работа с типами данных записи
Пермский государственный технический университет
Кафедра Информационных технологий и автоматизированных систем
Отчет по
Лабораторной работе
«Работа с типами данных записи»
По дисциплине «Информатика»
Выполнил студент группы АУЦ-10
Галимов Руслан
Проверил ассистент кафедры ИТАС
Баранов А.А
Пермь 2010г
Цель и задачи работы
1. Создание структуры данных;
2. Возможность записи данных;
3. Свободное редактирование записанных данных;
Оборудование и программное обеспечение
-Персональный компьютер
-Манипуляторы клавиатура и мышь
-Программы Turbo Pascal
ввод запись данный редактирование
Программа на языке TurboPascal
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.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.
Похожие работы
-
Автоматизований аналіз злочинності по областям
Розробка програми "Злочин", що призначена для збереження та перегляду, а також автоматичного аналізу всієї інформації про злочинність. Порядок і основні принципи формування структури даних, постановка задачі. Написання та лістинг розробленої програми.
-
Разработка программы формирования перестановок, сочетаний, размещений (Turbo Pascal 7.0.)
Сущность понятия "комбинаторика". Программа формирования перестановок, сочетаний, размещений с выводом результатов на экран дисплея. Алгоритм программы, написанной на языке Паскаль. Список идентификаторов переменных программы. Список процедур программы.
-
Разработка программы на четырех языках программирования
Этапы написания программы на четырех языках программирования (Turbo Pascal 7.0, Borland C++ 3.11, Delphi 7, Builder C++ 6.0), которая выводит на экран имя и фамилию студента, используя стандартные средства графики и простейшие геометрические фигуры.
-
Лабораторная работа №5
Цель работы: изучение условного оператора, оператора отбора, составного оператора и правил программирования разветвляющихся алгоритмов. Задание № 17
-
Лабараторная работа №4
Цель работы: изучение правил записи констант, переменных, выражений, операторов присваивания, раздела определения констант, раздела описания переменных и общей структуры программы на языке Turbo-Pascal.
-
Вращение треугольника
Содержание Введение 2 В программу также были включены функции предоставляющие пользователю некоторый сервис и удобство при работе ( использование модулей Turbo-Vision 2.0 for Borland Pascal). 5
-
Создание графических объектов с помощью псевдографики
Основы работы на языке высокого уровня Turbo Pascal. Основное оборудование и программное обеспечение. Операторы, необходимы для работы в графической среде Turbo Pascal. Запуск графического режима. Текст программы в графической среде Turbo Pascal.
-
Язык Paskal. Основные элементы языка. Структура программы
Ознакомление со структурой языка программирования Turbo-Pascal 7.0, его алфавитом, выражениями и простейшими конструкциями (метками, идентификаторами). Способы описания арифметических, вещественных, логических и символьных операций в программной среде.
-
Введение в программирование
Сущность отладки, условия ее выполнения. Ошибки при компиляции программы, создание и изменение исходных символьных файлов. Процесс преобразования кода в машинный. Первый программист, виды трансляторов, классификация и уровни языков программирования.
-
Динамические структуры данных: двоичные деревья
Дерево — это совокупность элементов, называемых узлами (при этом один из них определен как корень), и отношений (родительский–дочерний), образующих иерархическую структуру узлов.