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

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

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

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

Отчет по

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

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

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

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

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

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

Баранов А.А

Пермь 2010г

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

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

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

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

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

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

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

§Программы Turbo Pascal

ввод запись данный редактирование

Uses Crt;

= 10;

= Record,Imia,Otchestvo,MestoProgivanuia: String;: Integer;,Day,UchebnaiaGruppa,NomerTelefona: Byte;;

i: Byte;:array[1..MaxIndex] of Worker;Header(s:String);;(Yellow);(30,1); Write(s);(1,3);(LightGray);;Viewing;('Prosmotr');i:=1 to MaxIndex Doa[i] Do Begin(a[i].Familia,' ',a[i].Imia,' ',a[i].Otchestvo);(' Mesto Progivanuia: ',a[i].MestoProgivanuia);('Data rogdenuia: ',a[i].Day,'.',a[i].Month,'.',a[i].Year);('UchebnaiaGruppa: ',a[i].UchebnaiaGruppa);('NomerTelefona: ',a[i].NomerTelefona);;;;Editing;('Uzmenenie');('Vvedite nomer kartochki: ');(i);a[i] Do Begin('Familia: '); ReadLn(a[i].Familia);('Imia: '); ReadLn(a[i].Imia);('Otchestvo: '); ReadLn(a[i].Otchestvo);('Data rogdenuia: '); ReadLn(a[i].Day,a[i].Month,a[i].Year);(' Mesto Progivanuia: '); Readln(a[i].MestoProgivanuia);('NomerTelefona:'); Readln (a[i].NomerTelefona);;;('Probel - menu');('Lubaia drugaia - prodolgitb');ReadKey=#32;ClearArray;i:=1 to MaxIndex Doa[i] Do Begin[i].Familia:='Familia';[i].Imia:='Imia';[i].Otchestvo:='Otchestvo';[i].MestoProgivanuia:='MestoProgivanuia';[i].Day:=0;[i].Month:=0;[i].Year:=0;[i].NomerTelefona:=0;;;Deleting;('Ydalenie');('Vvedenie:');('1 - chtobi ydalitb odny 3apicb');('0 - chtobi ydalitb Bce 3apicu');ReadKey of

': Begin('Vvedite nomer cartochki: ');(i);a[i] Do Begin[i].Familia:='Familia';[i].Imia:='Umia';[i].Otchestvo:='Otchestvo';[i].MestoProgivanuia:='Mesto Progivanuia';[i].Day:=0;[i].Month:=0;

a[i].Year:=0;

a[i].NomerTelefona:=0;;(Red);('Dannie udaleni');(LightGray);;

': Begin;(Red);('Bce Dannie udaleni');(LightGray);;;;('Probel - menu');('Lubaia drugaia - prodolgitb');ReadKey=#32;;('Laboratornaia 10');('1 - Prosmotr');('2 - Izmenitb');('3 - Udalitb');('Esc - ‚л室');ReadKey of

': Viewing;

': Editing;

': Deleting;

#27: Exit;

End;1<>1.

Вывод

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