/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Rec1.pas
35 строк
722 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
type SexType = (Male, Female); Person = record Name: string; Age, Weight: integer; Sex: SexType; end; procedure WritePerson(const p: Person); begin writelnFormat('Фамилия: {0} Пол: {1} Возраст: {2} Вес: {3}',p.Name,p.Sex,p.Age,p.Weight); end; var p: Person := (Name: 'Иванов'; Age: 20; Weight: 64; Sex: Male); p1: Person; begin p1 := p; // Присваивание записей var p2: Person; p2.Name := 'Петрова'; p2.Age := 18; p2.Weight := 50; p2.Sex := Female; WritePerson(p2); var p3: Person; with p3 do begin Name := 'Сидоров'; Age := 24; Weight := 80; Sex := Male; end; WritePerson(p3); end.