Question

Как решить задачу pp4 для исполнителя Robot в Pascal ABC.net

Answer 1

Ответ:

Пример решения:

program PP4;

{$APPNAME 'PP4'}

uses

SysUtils;

type

Task = record

StartTime, EndTime: Integer;

end;

var

Tasks: Array<Task>;

CurrentTask: Task;

StartTime, EndTime: Integer;

procedure ProcessTasks;

var

i: Integer;

begin

for i := 0 to High(Tasks) do

if Tasks[i].StartTime <= CurrentTime and CurrentTime <= Tasks[i].EndTime then

Write('Задача ', i, ': ', Tasks[i].StartTime, ', ', Tasks[i].EndTime, ';');

end;

procedure SetTasks(N: Integer);

var

i: Integer;

begin

SetLength(Tasks, N);

for i := 0 to N - 1 do

Tasks[i].StartTime := Random(1000) + 1;

Tasks[i].EndTime := Tasks[i].StartTime + Random(100) + 1;

end;

begin

Write('Введите количество задач: ');

ReadLn(N);

SetTasks(N);

Write('Введите текущее время: ');

ReadLn(CurrentTime);

ProcessTasks;

end.