[Asira]

Описать 3 класса используя наследование
Лед (масса, удельная теплота плавления, удельная теплоемкость, начальная температура, количество теплоты);
Пар (масса, удельная теплота парообразования, количество теплоты);
Вода (масса, удельная теплоемкость, начальная температура, количество теплоты);
Даны масса и начальная температура вещества не выше 100 С. Определить какое количество теплоты требуется для полного испарения этого вещества.
Моё Начало

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

{$APPTYPE CONSOLE}   uses   SysUtils;   type TPar = class       m,p:real;       procedure Init;       function Q:real;      end;        TVoda = class(TPar)       x,y:real;       procedure Init;      end;        TLed= class(TVoda)       k:real;       procedure Init;       end;      procedure TPar.Init;     begin      writeln('vvedite massu, udelnu teplotu paroobr ');      readln(m,p);     end;      function TPar.Q (m,p:TPar):real;     begin      Q:=m.m*p.p;     end;          procedure TVoda.Init;     begin      inherited Init      writeln('vvedite nach temperatur i udelnu teploemkost');      readln(x,y);     end;

[lmikle]

Чего-то тут в задаче не то.
Какие переходы допустимы? Какие начальные состояния допустимы?

[Asira]

Задача дана именно в таком виде... Поля методы выбираются произвольно... чем меньше тем лучше...