Программирование на языке Паскаль Записи. Комбинированный тип данных Комбинированный тип данных – это структурированный тип, состоящий из фиксированного. - презентация

1 Программирование на языке Паскаль Записи

2 Комбинированный тип данных Комбинированный тип данных – это структурированный тип, состоящий из фиксированного числа полей разного типа. Комбинированный тип имеет ещё и другое название – запись. Обычно запись содержит набор разнотипных данных, относящихся к одному объекту. Например, анкетные данные об ученике. Анкета ученика Фамилия Адрес Дата рождения Школа Класс

3 Определение типов полей Название Имя поля Тип поля Длина Фамилияfamстроковый 25 Адресadrстроковый 50 Дата рождения dat_rogстроковый 10 Школаshcolстроковый 20 Классklassцелый 1..11

4 Форма описания записи Type anketa = record fam: string[25]; adr: string[50]; dat_rog: string[10]; shcol: string[20]; klass: integer; end; Var uchen: anceta; Type anketa = record fam: string[25]; adr: string[50]; dat_rog: string[10]; shcol: string[20]; klass: integer; end; Var uchen: anceta;

5 К каждому элементу записи можно обратиться, используя составное имя Имя_переменной.Имя_поля Например: uchen.fam uchen.adr uchen.dat_rog uchen.shcol uchen.klass Присвоить полю значение можно так: uchen.klass:=3; uchen.dat_rog:= ;

6 В программе могут использоваться массивы записей Var uchen:array[1..30] of anceta; Например, фамилия пятого в списке ученика хранится в переменной: uchen[5].fam Любая обработка записей, в том числе, ввод и вывод, производится поэлементно. for i:=1 to 30 do begin readln(uchen[i].fam); readln(uchen[i].adr); readln(uchen[i].dat_rog); readln(uchen[i].shcol); readln(uchen[i].klass); end;

7 При частом обращении к полям записи для упрощения этого процесса используется оператор: W ith Имя_переменной do Оператор; Например for i:=1 to 30 do with uchen[i] do begin readln(fam); readln(adr); readln(dat_rog); readln(shcol); readln(klass); end;

8 Задача Даны координаты вершин выпуклого N-угольника. Построить на экране данный N-угольник. Количество вершин (N<=10) ввести с клавиатуры. Пример Введите N= 6 x1=100 y1=100 x2=150 y2=50 x3=200 y3=100 x4=150 y4=200 x5=150 y5=250 x6=130 y6=230 x1,y1 x2,y2 x3,y3 x4,y4 x5,y5 x6,y6

9 program n_ugolnik; uses crt, graph; type toch=record x : integer; y : integer; end; var ver : array[1..10] of toch; gr,dr,n : integer; begin gr:=0; dr:=0; write(введите N=); readln(n); for i:=1 to n do with ver[i] do begin write(x,i:2,=); readln(x); write(y,i:2,=); readln(y); end; initgraph(gr,dr,c:\worker\bp\bgi); setcolor(14); moveto(ver[1].x,ver[1].y); for i:=2 to n do with ver[i] do lineto(x,y); lineto(ver[1].x,ver[1].y); readkey; end. program n_ugolnik; uses crt, graph; type toch=record x : integer; y : integer; end; var ver : array[1..10] of toch; gr,dr,n : integer; begin gr:=0; dr:=0; write(введите N=); readln(n); for i:=1 to n do with ver[i] do begin write(x,i:2,=); readln(x); write(y,i:2,=); readln(y); end; initgraph(gr,dr,c:\worker\bp\bgi); setcolor(14); moveto(ver[1].x,ver[1].y); for i:=2 to n do with ver[i] do lineto(x,y); lineto(ver[1].x,ver[1].y); readkey; end.