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

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

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

Отчет по

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

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

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

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

Вывод

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


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