РефератыИнформатика, программированиеРаРабота с типами данных записи

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

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


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


Отчет по


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


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


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


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


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


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


Баранов А.А


Пермь 2010г


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


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


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


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


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

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


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


-Программы Turbo Pascal


ввод запись данный редактирование


Программа на языке TurboPascal


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].D

ay,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.


Вывод


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

Сохранить в соц. сетях:
Обсуждение:
comments powered by Disqus

Название реферата: Работа с типами данных записи

Слов:340
Символов:5282
Размер:10.32 Кб.