Распорядок дня

[Никита757]

нужно написать программу, чтобы при запуске ее ввести с клавиатуры распорядок дня, а затем указать определенное время и программа должна вывести, что я должен делать в этот промежуток времени
Делфи консоль
Заранее благодарен

[Stilet]

Попытки? Наработки?

[Никита757]

program Lists;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Singlelinked_List;

var
  sName : Tsurname;
  List_sn: slList_ptr;
  min,count, i : Integer;
  st:string;
begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  Writeln ('Ââåäèòå âàø ðàñïîðÿäîê äíÿ ');
  {$I-}
  Readln (st);
  {$I+}
  if (IOResult <> 0)  then
    begin
      Writeln ('Insert ', st );

        begin
          readln (sName);
          AddStr(List_sn,sName);
        end;
      ShowList(List_sn);
      readln;
      end
  else writeln ('Bad input data');
  readln;
end.

[Stilet]

Забавные наработки... Ну да ладно - что в них не так? Что не устраивает?

[Никита757]

Не могу понять толком как нужно записать, чтобы он считывал информацию например ввел
8:00 подъем
8:05-8.15 зарядка
8.15-8.30 завтрак
8.30-10.45 учеба
И например ввел промежуток времени 8:25-11.00 а он мне вывел завтрак и учеба
Сам код как дополнить

[Stilet]

Ну сам твой код врядли удастся нормально дополнить - слишком к нему много вопросов. Поэтому предлагаю с коленки свое видение решения задачи:

program Project1;

uses windows,sysutils,Classes,contnrs,dateutils;

type
  TDiary=class;

	{ TRec }

  TRec=class
    private
      TimeBeg,TimeEnd:TTime;
      Diary:TDiary;
      Name:String[255];
      Procedure WriteMe;
      Procedure ReadMe;
	end;

	{ TDiary }

  TDiary=class
    private
      fm:TFileStream;
      Recs:TObjectList;
      Procedure Add;
      Procedure List;
      Constructor Create;
      Destructor Destroy;
	end;

{ TDiary }

procedure TDiary.Add;
begin
 with TRec(Recs[Recs.Add(TRec.Create())]) do begin
  Diary:=self;
  WriteMe;
 end;
end;

procedure TDiary.List;
begin
 while true do begin
  try
    with TRec(Recs[Recs.Add(TRec.Create())]) do begin
     Diary:=self;
     ReadMe;
    end;
	except
    break;
	end;
 end;
end;

constructor TDiary.Create;
var Di:TRec; cnt:integer;
begin
     Recs:=TObjectList.create(true);
      if not FileExists('Diary') then begin
        fm:=TFileStream.Create('Diary',fmCreate);
			end else begin
        fm:=TFileStream.Create('Diary',fmOpenReadWrite);
        List;
			end;

end;

destructor TDiary.Destroy;
begin
  fm.Free;
end;

{ TRec }

procedure TRec.WriteMe;
var s:string;
begin
 Write('Начало: '); readln(s); TimeBeg:=StrToTime(s);
 Write('Конец:  '); readln(s); TimeEnd:=StrToTime(s);
 Write('Занятие:'); readln(s); Name:=s;
 Writeln;
 with Diary.fm do begin
  WriteBuffer(TimeBeg,sizeof(TimeBeg));
  WriteBuffer(TimeEnd,sizeof(TimeBeg));
  WriteBuffer(Name[1],Length(Name));
 end;
end;

procedure TRec.ReadMe;
begin
 with Diary.fm do begin
  ReadBuffer(TimeBeg,sizeof(TimeBeg));
  ReadBuffer(TimeEnd,sizeof(TimeBeg));
  ReadBuffer(Name[1],Length(Name));
  Writeln('Начало: ':10,TimeToStr(TimeBeg):12, 'Конец:  ':10,TimeToStr(TimeEnd):12,'Занятие:':10,Name);
 end;
end;



begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  with TDiary.Create do begin
    //Add; Add;
    Destroy;
	end;
  readln;
end.

Add - процедура добавления в файл.