Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
18.07.2014
Формат файла
.html — Html-документ
Архив
1037830.zip — 2.16 kb
  • rabota-s-tipami-dannyx-zapisi_1037830_1.html — 4.76 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;

ProcedureHeader(s:String);

Begin

ClrScr;

TextColor(Yellow);

GotoXY(30,1);Write(s);

GotoXY(1,3);

TextColor(LightGray);

End;

ProcedureViewing;

Begin

Header('Prosmotr');

For i:=1 toMaxIndex Do

With a[i] DoBegin

Write(a[i].Familia,'',a[i].Imia,' ',a[i].Otchestvo);

WriteLn('Mesto Progivanuia: ',a[i].MestoProgivanuia);

Write('Datarogdenuia: ',a[i].Day,'.',a[i].Month,'.',a[i].Year);

write('UchebnaiaGruppa:',a[i].UchebnaiaGruppa);

write('NomerTelefona:',a[i].NomerTelefona);



Ваше мнение



CAPTCHA