Работа с типами данных записи
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
Пермский государственный технический университет
Кафедра Информационных технологий и автоматизированных систем
Отчет по
Лабораторной работе
Работа с типами данных записи
По дисциплине Информатика
Выполнил студент группы АУЦ-10
Галимов Руслан
Проверил ассистент кафедры ИТАС
Баранов А.А
Пермь 2010г
Цель и задачи работы
1.Создание структуры данных;
2.Возможность записи данных;
.Свободное редактирование записанных данных;
Оборудование и программное обеспечение
Персональный компьютер
Манипуляторы клавиатура и мышь
Программы Turbo Pascal
ввод запись данный редактирование
Программа на языке 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.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.