Категория
Информатика
Тип
лабораторная работа
Страницы
3 стр.
Дата
08.03.2013
Формат файла
.doc — Microsoft Word
Архив
177862.zip — 9.2 kb
  • rabota-s-tipami-dannyx-zapisi_177862_1.doc — 32.5 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

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

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

Отчет по

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

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

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

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

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);



Ваше мнение



CAPTCHA