Помогите пожалуйста. Записи с вариантами. Паскаль.

[Сирёго]

Всем привет!
Нужна ваша помощь.

Имеются описания:

type помещение = (зал, кухня, прихожая, ванная); 
цена = record
руб: byte;
коп: 0..99;
end;
прямоугольник = record
высота, ширина: byte;
end;
	комната = record
			длина, высота, ширина: real;
			case комната: помещение of
				зал: (дверь, окно: прямоугольник;
обои, гипсокартон, ковролин: цена);
				прихожая: (пластик, линолеум, плитка_потолочная: цена;
дверь: прямоугольник);
ванная: (плитка_стеновая, плитка_напольная, 
пластик: цена);
				кухня: (дверь, окно: прямоугольник;
обои, ламинат, побелка: цена)
			end;

Расчитать стоимость стройматериалов для ремонта какой-либо комнаты.


Вопрос только в одном: как константой задать переменную "Комната", которая типа Record. Как задавать константой простую запись, я знаю, а как быть с вариантами, подскажите.

[puporev]

Если коротко, то вот. Если нужно подробнее, надо полазить по учебникам.

Записи с вариантами
В некоторых случаях возникает необходимость использовать записи, для которых заданы различные варианты их структуры. Они называются записями с вариантами, которые используются для объединения записей, имеющих похожую, но не одинаковую структуру. Такие записи имеют фиксированную и вариантную часть. Использование фиксированной части аналогично использованию обычных записей, а для определения вариантной части применяется оператор case:
type
имя_типа =
record
{фиксированная часть}
{вариантная часть}
case поле_признака: тип_поля_признака of
константа_выбора1: (поле: тип);
константа_выбора: (поле: тип);
end;
Рассмотрим пример объявления записи с вариантами:
type
Car = record
Brand: string[20];
Year; integer;
case Kind: string[8] of
'грузовая': (Tonnage: real);
'легковая': (Passengers: byte);
end;
Тип Car используется для хранения информации об автомобиле. В поле Brand
хранится производитель автомобиля, а в поле Year — год выпуска. Поле Tonnage (грузоподъемность) типа real доступно только в том случае, если поле признака Kind имеет значение 'грузовая'. Соответственно, поле Passengers (пассажиры) типа byte доступно только в том случае, если поле признака Kind имеет значение 'легковая'.
При использовании записей с вариантами необходимо придерживаться следующих правил.
• Все имена полей должны отличаться друг от друга, даже если они встречаются в разных вариантах.
• Запись может иметь только одну вариантную часть, объявленную в конце.

[Сирёго]

Я знаю, как описать тип записи с вариантами. А вопрос был не в этом. Вопрос в том, как в разделе Const задать константу такого типа (типа записи с вариантами).

[alexBlack]

точно также

type
   R = record
      A:integer;
      case integer of
         1 : (B:byte; W:word);
         2 : (C:integer);
   end;

const
   R1 : R = (A:1; B:3; W: 4);
   R2 : R = (A:1; C:5);

[Сирёго]

Сообщение от alexBlack

точно также

type
   R = record
      A:integer;
      case integer of
         1 : (B:byte; W:word);
         2 : (C:integer);
   end;

const
   R1 : R = (A:1; B:3; W: 4);
   R2 : R = (A:1; C:5);

И всё-таки, ты не могу бы сказать, как описать в моём случае? Я запутался, - там ведь ещё вложенные записи получаются.

[alexBlack]

Пусть вложенные:

type
PR = record
   H, W: byte;
end;

Room = record
   L, H, W: real;
   case integer of
      1: (L1: Pr);
end;

const R:Room = (L:1; L1:(H:2;W:3));

А откуда это описание типа на русском языке ?

[Сирёго]

Сообщение от alexBlack

Пусть вложенные:

type
PR = record
   H, W: byte;
end;

Room = record
   L, H, W: real;
   case integer of
      1: (L1: Pr);
end;

const R:Room = (L:1; L1:(H:2;W:3));

А откуда это описание типа на русском языке ?

На русском языке просто ради удобства, чтобы не переходить на латиницу.