Question

Помогите, пожалуйста, создать программу распорядка дня в Паскале

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

Var
 s:string;
begin;
 repeat
  writeln('Уже утро?');
  readln(s);
  if s='Нет' then writeln('Продолжать спать');
 until s='Да';
 writeln('Проснуться');
 writeln('Завтрак');
 writeln('Школа');
 writeln('Ты голоден?');
 readln(s);
 if s='Да' then writeln('Обедать');
 writeln('Д.з.');
 writeln('Свободное время');
 writeln('Ты голоден?');
 readln(s);
 if s='Да' then writeln('Ужинать');
 writeln('Спать');
end.

Answer 2

Создание программы распорядка дня в Паскале

Если вы хотите создать программу распорядка дня на языке Паскаль, вам потребуется определить структуру данных для хранения информации о задачах и времени их выполнения. Затем вы можете использовать циклы и условные операторы для организации логики программы.

Вот пример простой программы распорядка дня на языке Паскаль:

program DailySchedule;

uses
  SysUtils;

type
  Task = record
    Name: string;
    Time: TTime;
  end;

var
  Tasks: array of Task;

procedure AddTask(const Name: string; Time: TTime);
var
  TaskCount: Integer;
begin
  TaskCount := Length(Tasks);
  SetLength(Tasks, TaskCount + 1);
  Tasks[TaskCount].Name := Name;
  Tasks[TaskCount].Time := Time;
end;

procedure PrintSchedule;
var
  i: Integer;
begin
  Writeln('Daily Schedule:');
  for i := 0 to High(Tasks) do
    Writeln(FormatDateTime('hh:mm', Tasks[i].Time) + ' - ' + Tasks[i].Name);
end;

begin
  AddTask('Утренняя пробежка', EncodeTime(6, 0, 0, 0));
  AddTask('Завтрак', EncodeTime(7, 0, 0, 0));
  AddTask('Работа', EncodeTime(9, 0, 0, 0));
  AddTask('Обед', EncodeTime(13, 0, 0, 0));
  AddTask('Спортзал', EncodeTime(18, 0, 0, 0));
  AddTask('Ужин', EncodeTime(20, 0, 0, 0));
  AddTask('Отдых', EncodeTime(21, 0, 0, 0));

PrintSchedule;
end.

В этом примере программа создает массив структур Task, каждая из которых содержит имя задачи и время ее выполнения. Затем она добавляет несколько задач в массив с помощью процедуры AddTask. В конце программа выводит расписание на экран с помощью процедуры PrintSchedule.

Обратите внимание, что в этом примере используется функция EncodeTime для создания значения времени. Вы также можете использовать другие функции и процедуры из стандартной библиотеки Паскаля для работы с датами и временем.

Надеюсь, это поможет вам создать программу распорядка дня на языке Паскаль! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их.