|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Объктно-ориентированное
Описать 3 класса используя наследование
Лед (масса, удельная теплота плавления, удельная теплоемкость, начальная температура, количество теплоты); Пар (масса, удельная теплота парообразования, количество теплоты); Вода (масса, удельная теплоемкость, начальная температура, количество теплоты); Даны масса и начальная температура вещества не выше 100 С. Определить какое количество теплоты требуется для полного испарения этого вещества. Моё Начало Код:
{$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; Asira |
#2
|
|||
|
|||
Чего-то тут в задаче не то.
Какие переходы допустимы? Какие начальные состояния допустимы? |
#3
|
|||
|
|||
Задача дана именно в таком виде... Поля методы выбираются произвольно... чем меньше тем лучше...
Asira |