Объявление типа запись

Теоретическая часть

ЛАБОРАТОРНАЯ РАБОТА

Статья 18.30. Безбилетный проезд

Статья 17.9. Курение (потребление) табачных изделий в запрещенных местах

Статья 17.1. Мелкое хулиганство

Статья 11.2. Нарушение установленного порядка осуществления валютных операций

Статья 10.5. Мелкое хищение

1. Мелкое хищение имущества путем кражи, мошенничества, злоупотребления служебными полномочиями, присвоения или растраты, а равно покушение на такое хищение –

влекут наложение штрафа в размере от десяти до тридцати базовых величин или административный арест.

2. Те же деяния, совершенные повторно в течение одного года после наложения административного взыскания за такие же нарушения, –

влекут наложение штрафа в размере от тридцати до пятидесяти базовых величин или административный арест.

Скупка, продажа, обмен иностранной валюты, осуществляемые без специального разрешения (лицензии) или государственной регистрации, а равно иное незаконное использование ценных бумаг и платежных документов в иностранной валюте –

влекут наложение штрафа в размере до ста базовых величин с конфискацией предмета административного правонарушения.

Нецензурная брань в общественном месте, оскорбительное приставание к гражданам и другие умышленные действия, нарушающие общественный порядок, деятельность организаций или спокойствие граждан и выражающиеся в явном неуважении к обществу, –

влекут наложение штрафа в размере от двух до тридцати базовых величин или административный арест.

Статья 17.3. Распитие алкогольных, слабоалкогольных напитков или пива в общественном месте либо появление в общественном месте или на работе в состоянии опьянения.

влекут наложение штрафа в размере от двух до пятнадцати базовых величин или административный арест.

Курение (потребление) табачных изделий в местах, где оно в соответствии с законодательными актами запрещено, –

влечет наложение штрафа в размере до четырех базовых величин.

Безбилетный проезд пассажиров на всех видах городского транспорта, а также прохождение контрольного турникета (линии контроля) в метрополитене без наличия документа, подтверждающего право на проезд, –

влекут наложение штрафа в размере двух десятых базовой величины

«ЗАПИСИ»

Ростов-на-Дону

Цель работы: изучить понятие записи. Освоить правила работы с записями и их назначение.

Запись позволяет объединить разнородные элементы.

type <имя записи>= record

<поля записи>

end;

В качестве полей записей могут выступать как переменные, так и методы.

type

SexType = (male, female);

Person = record

Name: string;

Age, Weight: integer;

Sex: SexType;

end;

Инициализация записи:

var p: Person:= (Name: 'Иванов'; Age: 20; Weight: 80; Sex: male);

или

var p: Person;

begin

p.Age:=20;

p.Name:='Иванов';

end.

Операция присваивания для записей:

var p,p1: Person;

begin

p.Age:=20;

p.Name:='Иванов';

p1:=p;

end.

Для того чтобы при обращении к полям записи не писать каждый раз префикс (p.) можно использовать оператор with.

begin

with p do

begin

write('Введите имя '); readln(Name);

write('Введите возраст '); readln(Age);

end;

writeln('Вас зовут ',p.Name,'. Вам ',p.Age,'года\лет');

end.

Также можно объявить массив записей. Например:

var list:array[1..10] of Person;

i:integer;

begin

for i:=1 to 10 do

begin

readln(list[i].Name);

readln(list[i].Age);

end;

end.

или

var list:array[1..10] of Person;

i:integer;

begin

for i:=1 to 10 do

with list[i] do

begin

readln(Name);

readln(Age);

end;

end.

Записи в качестве параметров можно передавать как в процедуры, так и функции. Функции также могут возвращать запись.

Например:

type

SexType = (male, female);

Person = record

Name: string;

Age, Weight: integer;

Sex: SexType;

end;

var list:array[1..10] of Person;

i:integer;

procedure add(var p:Person);

begin

with p do

begin

readln(Name);

readln(Age);

end;

end;

procedure print(p:Person);

begin

with p do

writeln(Name,' - ',Age);

end;

begin

for i:=1 to 1 do

add(list[i]);

for i:=1 to 1 do

print(list[i]);

end.

Пример 1. Организация меню для консольного приложения

procedure menu; forward;

procedure add;

var i:byte;

begin

writeln;

writeln('add');

sleep(2000);

writeln;

menu;

end;

procedure menu;

var x:byte;

begin

writeln('1-add');

writeln('2-exit');

readln(x);

case x of

1:add;

2:exit;

end;

end;

begin

menu;

end.

Дата добавления: 2015-05-10