Пермский государственный технический университет
Кафедра Информационных технологий и автоматизированных систем
Отчет по
Лабораторной работе
«Работа с типами данных записи»
По дисциплине «Информатика»
Выполнил студент группы АУЦ-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.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.
|