Выполнил студент группы АУЦ-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);

--> ЧИТАТЬ ПОЛНОСТЬЮ <--