Информатика -продвинутый курс
выигрыш выпал на следующие номера
end
end; writeln;
writeln(' выигрыш выпал на следующие номера : ');
for i:=l to 36 do if (i in x) then write(i,' ');
writeln; z:=a*x; k:=0;
for i:=l to 36 do if (i in z) then begin writeln('угадано: ',i); k:=k+l
end;
case k of
0, 1, 2 : writeln('вы проиграли ');
3 : writeln('получите 3 руб') ;
4 : writeln('получите 100 руб');
5 : writein('получите 1000 руб')
end
end.
Записи (комбинированный тип) - одна из наиболее гибких и удобных структур данных, применяющихся при описании сложных объектов, которые характеризуются различными свойствами, а также при создании различных информационных систем. Запись - это последовательность, состоящая из фиксированного числа величин разных типов, называемых полями или компонентами записи. Так же, как и массив, запись содержит ряд отдельных компонент, но компонентами записи могут быть данные различных типов. Например, адресные данные (индекс, город, улица, номер дома, квартиры) можно представить как запись (record):
type address = record
index : string[6];
city: string[20];
street : string[20];
haus.ilat: integer
end;
Из примера видно, что тип «запись» описывается по схеме
type имя типа записи = record
имя поля 1 : тип;
имя поля 2 : тип;
имя поля N: тип
end;
Как и при описании массивов, можно совместить описание типа записи и соответствующих переменных. Например, данные о двух студентах можно описать так:
fio :string[20];
fas :string[10]
grup :string[8]
end
Переменную типа «запись» и ее первоначальное значение можно определить как констант-запись в разделе констант по схеме
const
<имя>: <имя типа> = <константное значение>
Константное значение - это список имен полей и соответствующих значений, заключенный в круглые скобки. Элементы списка разделяются знаком «точка с запятой». Например, запись о начале координат можно определить так:
type point = record
х, у, z: integer
end;
const o: point = (x:0; y:0; z:0);
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий