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

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

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





















Отчет по

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



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



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





Выполнил студент группы АУЦ-10

Галимов Руслан

Проверил ассистент кафедры ИТАС

Баранов А.А









Пермь 2010г


Цель и задачи работы



Создание структуры данных;

Возможность записи данных;

Свободное редактирование записанных данных;

Оборудование и программное обеспечение

Персональный компьютер

Манипуляторы клавиатура и мышь

Программы 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.




Вывод



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