Xreferat.com » Рефераты по информатике и программированию » Работа с типами данных записи

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

Размещено на /

Пермский государственный технический университет

Кафедра Информационных технологий и автоматизированных систем


Отчет по

Лабораторной работе


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


По дисциплине «Информатика»


Выполнил студент группы АУЦ-10

Галимов Руслан

Проверил ассистент кафедры ИТАС

Баранов А.А


Пермь 2010г

Цель и задачи работы


Создание структуры данных;

Возможность записи данных;

Свободное редактирование записанных данных;

Оборудование и программное обеспечение

Персональный компьютер

Манипуляторы клавиатура и мышь

Программы 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.


Вывод


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

Размещено на

Если Вам нужна помощь с академической работой (курсовая, контрольная, диплом, реферат и т.д.), обратитесь к нашим специалистам. Более 90000 специалистов готовы Вам помочь.
Бесплатные корректировки и доработки. Бесплатная оценка стоимости работы.

Поможем написать работу на аналогичную тему

Получить выполненную работу или консультацию специалиста по вашему учебному проекту
Нужна помощь в написании работы?
Мы - биржа профессиональных авторов (преподавателей и доцентов вузов). Пишем статьи РИНЦ, ВАК, Scopus. Помогаем в публикации. Правки вносим бесплатно.

Похожие рефераты: