Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 05.03.2010, 00:57   #1
Asira
Форумчанин
 
Регистрация: 12.12.2009
Адрес: Волгоград
Сообщений: 84
Репутация: 10
По умолчанию Объектно -ориентированное программирование

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

{$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 вне форума   Ответить с цитированием
Старый 05.03.2010, 07:59   #2
Utkin
Профессионал
 
Аватар для Utkin
 
Регистрация: 04.02.2009
Адрес: DuckBurg
Сообщений: 18,305
Репутация: 3917
По умолчанию

а) Отсутствие комментариев. Почему-то у начинающих считается делом принципа не писать комментарий к программе. Поэтому часто заходят в тупик, как при разработке программ, так и при их отладке.
б) Давайте функциям и переменным осмысленные имена - причина такая же как и пункт а).
__________________
Маньяк-самоучка
Utkin появился в результате деления на нуль.
Осторожно! Альтернативная логика
Utkin вне форума   Ответить с цитированием
Старый 05.03.2010, 17:28   #3
Asira
Форумчанин
 
Регистрация: 12.12.2009
Адрес: Волгоград
Сообщений: 84
Репутация: 10
По умолчанию

Комментарии излишни......
ту вроде итак видно что у меня описаны только три класса , сомневаюсь в правильности их описания.....
вопрос как осуществить это условие
Даны масса и начальная температура вещества не выше 100 С. Определить какое количество теплоты требуется для полного испарения этого вещества.
Asira вне форума   Ответить с цитированием
Старый 05.03.2010, 18:52   #4
shelest
Форумчанин
 
Аватар для shelest
 
Регистрация: 01.11.2009
Сообщений: 99
Репутация: 10

icq: 604896752
По умолчанию

Код:
  writeln('vvedite massu, udelnu teplotu paroobr ');
     readln(m,p);
Код:
 writeln('vvedite nach temperatur i udelnu teploemkost');
     readln(x,y);
это вы так в обьектном программировании вводите данные???
shelest вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Роберт Лафоре. Объектно-ориентированное программирование на c++ blackbanny Обсуждение статей 2 11.11.2009 11:08
Объектно-ориентированное программирование на паскале Ake Помощь студентам 3 11.06.2009 02:44
Объектно-ориентированное программирование dzhI Помощь студентам 8 19.03.2009 14:38
Объектно-ориентированное программирование (Паскаль) Ake Помощь студентам 1 22.02.2009 21:14


19:06.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.