Класс: Создать класс "Время"

@momlynx · Регистрация: 08.10.2018

хелп, затрудняюсь написать программу. заранее огромное спасибо<З

класс-> время
члены класса-> часы, минуты, секунды
методы-> Конструктор, деструктор, метод вывода времени и составляющей суток (до 6 - ночь, до 12 - утро, до 18 - день, до 24 - вечер).

Добавлено через 10 часов 41 минуту
смогла решить.
решение, если кому пригодится:

Pascal

type
TTime = class
  private   
    h,m,s:real;
  public
    constructor Create(h,m,s:real);
    destructor Destroy(); //abstruct;
    begin end;
    procedure getTime(h,m,s:real);
    function howTime(h:real):string;
end;
var time:TTime;
constructor TTime.Create(h,m,s:real);
begin
  h:=0;
  m:=0;
  s:=0;
end;
procedure TTime.getTime(h,m,s:real);
begin
  writeln('Сейчас '+h+' часов '+m+' минут '+s+' секунд.');
  end;
function TTime.howTime(h:real):string;
  begin
  if ((h<=0) or (h<=24)) and (h<=6) then howTime:='Ночь';
  if (h>=6) and (h<=12) then howTime:='утро';
  if (h>=12) and (h<=18) then howTime:='день';
  if (h>=18) and ((h<=0) or (h<=24)) then howTime:='вечер';
 end; 
 begin
   time:=TTime.create();
   readln(time.h);
   readln(time.m);
   readln(time.s);
   time.getTime(time.h,time.m,time.s);
   writeln(time.howTime(time.h));
 end.

Опции темы