Работа с типами данных записи
Write ('Imia: '); ReadLn (a. Imia); WriteLn ('Esc — ‚л室'); Программы Turbo Pascal. WriteLn ('Bce Dannie udaleni'); WriteLn ('Probel — menu'); WriteLn ('Probel — menu'); WriteLn ('2 — Izmenitb'); WriteLn ('1 — Prosmotr'); Procedure Header (s:String); Header ('Laboratornaia 10'); WriteLn ('Dannie udaleni'); WriteLn ('3 — Udalitb'); GotoXY (30,1); Write (s); For i:=1 to MaxIndex Do. For i:=1… Читать ещё >
Работа с типами данных записи (реферат, курсовая, диплом, контрольная)
Пермский государственный технический университет Кафедра Информационных технологий и автоматизированных систем Отчет по Лабораторной работе
«Работа с типами данных записи»
По дисциплине «Информатика»
Выполнил студент группы АУЦ-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;
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.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.