Работа с типами данных записи
Пермский государственный технический университет
Кафедра Информационных технологий и автоматизированных систем
Отчет по
Лабораторной работе
«Работа с типами данных записи»
По дисциплине «Информатика»
Выполнил студент группы АУЦ-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.
Вывод
После выполнения этой лабораторной я освоил работу со структурами данных. Я думаю, моя программа будет пользоваться спросом, так как она полезна и удобна в использовании.
Больше работ по теме:
Практическое задание
Рефакторинг. Виключення дублювання коду. Розробка бібліотек класів та знайомство з багатопроектними рішеннями
Практическое задание
Моделирование представления в памяти таблиц
Практическое задание
Генерування підмножин з заданої множини
Практическое задание
Информационные технологии управления
Практическое задание
Предмет: Информационное обеспечение, программирование
Тип работы: Практическое задание
Новости образования
22 Июля 2016 16:26
Более 70 представителей крупных вузов АСЕАН подтвердили участие в форуме во Владивостоке
22 Июля 2016 12:51
Абызов: публикация первичных статсведений снизит бюрократическую нагрузку на школы
22 Июля 2016 11:53
В Чечне свыше 200 школьников сдали ЕГЭ с результатом свыше 90 баллов - министр
22 Июля 2016 05:36
Замглавы Минобрнауки РФ: задача сократить число людей с высшим образованием не стоит
21 Июля 2016 20:19
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ