Работа с типами данных записи
СОДЕРЖАНИЕ: Создание программы для обработки структуры данных. Возможность ввода и записи данных на персональном компьютере. Прикладное программирование на языке 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 11
End.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.