Записи с вариантной частью.. Опции

[Гелла]

Подскажите пожалста как найти площадь прямоугольника трапеции и параллелограмма пр помощи записей с вариантной частью( как я понимаю case of)
Буду очень благодарна вам....

[Lapp]

Ты правильно понимаешь, запись с вариантами - это "case ... of". Сначала создаешь запись для хранения данных о фигуре, а потом эту запись можно использовать для вычисления хоть площади, хоть периметра, хоть центра тяжести, хоть еще Бог знает чего. Сама по себе запись конструируется примерно так..

type
  tWhat = (Triangle, Trapeze, Parallelogram);
  tFigure = record case of What of
    Triangle: (a,b,c:real);
    Trapeze: (a,b,c,d:real);
    Parallelogram: (a,b,c,d,Alpha:real);
  end;

var
  Figure: tFigure;

procedure Square(Fig:tFigure);
begin
  with Fig do begin
    case What of
      Triangle: Square:= {тут вставляешь формулу Герона};
      Trapeze: Square:= {выичсляешь площадь трапеции};
      Parallelogram: Square:= {вычисляешь площадь парадллелограмма};
    end
  end
end

begin
  ...
  S:=Square(Figure);
  ...
end.