Пермский государственныйтехнический университет
КафедраИнформационных технологий и автоматизированных систем
Отчет по
Лабораторнойработе
«Работа стипами данных записи»
По дисциплине«Информатика»
Выполнил студент группы АУЦ-10
Галимов Руслан
Проверил ассистент кафедры ИТАС
Баранов А.А
Пермь 2010г
Цель и задачи работы
1. Созданиеструктуры данных;
2. Возможностьзаписи данных;
3. Свободноередактирование записанных данных;Оборудование и программное обеспечение
— Персональный компьютер
— Манипуляторы клавиатура и мышь
— Программы 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;
ProcedureHeader(s:String);
Begin
ClrScr;
TextColor(Yellow);
GotoXY(30,1);Write(s);
GotoXY(1,3);
TextColor(LightGray);
End;
ProcedureViewing;
Begin
Header('Prosmotr');
For i:=1 toMaxIndex Do
With a[i] DoBegin
Write(a[i].Familia,'',a[i].Imia,' ',a[i].Otchestvo);
WriteLn('Mesto Progivanuia: ',a[i].MestoProgivanuia);
Write('Datarogdenuia: ',a[i].Day,'.',a[i].Month,'.',a[i].Year);
write('UchebnaiaGruppa:',a[i].UchebnaiaGruppa);
write('NomerTelefona:',a[i].NomerTelefona);
End;
ReadKey;
End;
ProcedureEditing;
Begin
Repeat
Header('Uzmenenie');
Write('Vveditenomer kartochki: ');
ReadLn(i);
With a[i] DoBegin
Write('Familia:'); ReadLn(a[i].Familia);
Write('Imia:'); ReadLn(a[i].Imia);
Write('Otchestvo:'); ReadLn(a[i].Otchestvo);
Write('Datarogdenuia: '); ReadLn(a[i].Day,a[i].Month,a[i].Year);
Write(' MestoProgivanuia: '); Readln(a[i].MestoProgivanuia);
write('NomerTelefona:');Readln (a[i].NomerTelefona);
End;
WriteLn;
WriteLn('Probel- menu');
WriteLn('Lubaiadrugaia — prodolgitb');
UntilReadKey=#32
End;
ProcedureClearArray;
Begin
For i:=1 toMaxIndex Do
With a[i] DoBegin
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;
ProcedureDeleting;
Begin
Repeat
Header('Ydalenie');
Writeln('Vvedenie:');
Writeln('1 — chtobi ydalitb odny 3apicb');
Writeln('0 — chtobi ydalitb Bce 3apicu');
Case ReadKeyof
1': Begin
Write('Vveditenomer cartochki: ');
ReadLn(i);
With a[i] DoBegin
a[i].Familia:='Familia';
a[i].Imia:='Umia';
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;
TextColor(Red);
WriteLn('Dannieudaleni');
TextColor(LightGray);
End;
0': Begin
ClearArray;
TextColor(Red);
WriteLn('BceDannie udaleni');
TextColor(LightGray);
End;
End;
Writeln;
WriteLn('Probel- menu');
WriteLn('Lubaiadrugaia — prodolgitb');
UntilReadKey=#32
End;
Begin
ClearArray;
Repeat
Header('Laboratornaia10');
WriteLn('1 — Prosmotr');
WriteLn('2 — Izmenitb');
WriteLn('3 — Udalitb');
WriteLn('Esc — ‚л室');
Case ReadKeyof
1': Viewing;
2': Editing;
3': Deleting;
#27: Exit;
End;
Until 11
End.
Вывод
После выполнения этойлабораторной я освоил работу со структурами данных. Я думаю, моя программабудет пользоваться спросом, так как она полезна и удобна в использовании.