Работа с типами данных записи

Создание программы для обработки структуры данных. Возможность ввода и записи данных на персональном компьютере. Прикладное программирование на языке Turbo Pascal. Свободное редактирование записанных данных с помощью программы, написанной на Turbo Pascal.

Рубрика Программирование, компьютеры и кибернетика
Вид лабораторная работа
Язык русский
Дата добавления 13.05.2011
Размер файла 11,4 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Размещено на http://www.allbest.ru/

Пермский государственный технический университет

Кафедра Информационных технологий и автоматизированных систем

Отчет по

Лабораторной работе

«Работа с типами данных записи»

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

Выполнил студент группы АУЦ-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.

Вывод

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

Размещено на Allbest.ru


Подобные документы

  • Рассмотрение правил записи, способов ввода и вывода, использования функций обработки символьных данных в Pascal. Описание алгоритмизации и программирования файловых структур данных, проектирования структуры файла. Ознакомление с работой данных массива.

    курсовая работа [336,2 K], добавлен 27.06.2015

  • При помощи Turbo Pascal достаточно не просто создать программу, которая бы демонстрировала работу с базами данных. Для этого существует огромное количество специализированных программ. Основа и сущность формирования базы данных при помощи Turbo Pascal.

    курсовая работа [479,7 K], добавлен 04.07.2008

  • Особенности разработки программ на языке Turbo Pascal на примере программы обработки массива данных с построением диаграммы. Функции программы и основные требования к ней. Состав входных и выходных данных. Использование предметной области "Садовод".

    курсовая работа [789,1 K], добавлен 13.03.2013

  • Анализ эффективности методов сортировки данных в языке Turbo Pascal. Разработка эскизного и технического проекта программы. Сортировка без и с использованием дополнительной памяти, за исключением небольшого стека (массива). Сортировка связанных списков.

    курсовая работа [359,0 K], добавлен 23.05.2012

  • Разработка программ на языке Turbo Pascal на основе использования массивов данных. Особенности хранения данных, способы объявления переменных, действия над элементами массивов, их ввод и вывод. Практическое применение одномерных и многомерных массивов.

    методичка [17,8 K], добавлен 25.11.2010

  • Программа на языке Turbo Pascal для шифрования данных с помощью шифра Тритемиуса. Входные, выходные данные. Схема алгоритма и текст программы. Порядок ввода исходных данных и описание получаемых результатов. Тестовых задания и анализ их функционирования.

    курсовая работа [4,0 M], добавлен 06.01.2011

  • Запись в языке программирования – это структура данных, состоящая из фиксированного числа компонентов, называемых полями записи. Поле записи как обычная переменная. Операторы сравнения, присоединения. Программа с использованием массива структур.

    реферат [11,5 K], добавлен 19.01.2009

  • Разработка программы на языке Turbo Pascal, обеспечивающей работу пользователя в диалоговом режиме с возможностью выбора функций с помощью одноуровневого меню вертикального типа. Блок-схема и листинг программы, описание руководства пользователя.

    курсовая работа [1,5 M], добавлен 17.03.2014

  • Информационные технологии и защиты данных. Методы защиты информации. Виды информационной безопасности и умышленные угрозы. Программирование на языке Turbo Pascal. Типы числовых данных. Функции ввода и вывода. Логические операторы, символьные переменные.

    курсовая работа [1,7 M], добавлен 16.05.2016

  • Разработка эскизного и технического проектов программы "Helpopr" (ввод, хранение и вывод данных на дисплей по запросу пользователя). Язык программирования Turbo Pascal. Описание алгоритма программы. Требования к компьютеру и программному обеспечению.

    курсовая работа [198,1 K], добавлен 03.02.2010

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.