2015-12-28 14:25:15 +03:00
|
|
|
// Инициализаторы полей записи
|
2015-05-14 22:35:07 +03:00
|
|
|
type
|
|
|
|
|
Frac = record
|
|
|
|
|
num: integer := 0;
|
2015-12-28 14:25:15 +03:00
|
|
|
denom := 1; // автоопределеине типа - denom: integer
|
2015-05-14 22:35:07 +03:00
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
f: Frac;
|
|
|
|
|
f1: Frac := (num: 2; denom: 3);
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
writeln(f.num,'/',f.denom);
|
|
|
|
|
writeln(f1.num,'/',f1.denom);
|
|
|
|
|
end.
|
