Реферат по предмету "Информатика, программирование"


Работа с типами данных записи

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

Вывод
После выполнения этойлабораторной я освоил работу со структурами данных. Я думаю, моя программабудет пользоваться спросом, так как она полезна и удобна в использовании.


Не сдавайте скачаную работу преподавателю!
Данный реферат Вы можете использовать для подготовки курсовых проектов.

Поделись с друзьями, за репост + 100 мильонов к студенческой карме :

Пишем реферат самостоятельно:
! Как писать рефераты
Практические рекомендации по написанию студенческих рефератов.
! План реферата Краткий список разделов, отражающий структура и порядок работы над будующим рефератом.
! Введение реферата Вводная часть работы, в которой отражается цель и обозначается список задач.
! Заключение реферата В заключении подводятся итоги, описывается была ли достигнута поставленная цель, каковы результаты.
! Оформление рефератов Методические рекомендации по грамотному оформлению работы по ГОСТ.

Читайте также:
Виды рефератов Какими бывают рефераты по своему назначению и структуре.

Сейчас смотрят :

Реферат майбутньої держави мала грунтуватися на владі однієї націоналістичної партії На чолі руху мав
Реферат 18-19 июня 2004 года
Реферат Http://www animalrights ru/tema/veggie/19. htm#top Вегетарианство как мировоззрение
Реферат Прошлое настоящее и будущее в пьесе АП Чехова Вишневый сад
Реферат Анализ сущности и проблем современного страхового рынка и разработка перспектив его развития
Реферат Здоровый образ жизни и его составляющие 2
Реферат Ноогенетические аспекты современного глобально-цивилизационного процесса
Реферат ВОВ (1941-1945)
Реферат Московский мещанин А.И. Бардин - "создатель" "Слова о полку Игореве"
Реферат Традиция местного самоуправления в России на историческом материале Российской империи
Реферат Equality Essay Research Paper Equality in Footwear
Реферат Рынок ГКО в Беларуси
Реферат Автор: учитель математики Смирнова Неделя математики в школе. Открытие недели
Реферат The History Of The Barbie Doll Essay
Реферат The Strategies The Meiji Government Used To