С++ Здравствуйте, нужна написать код нужно использовать set
Вот задача:
Рабочая неделя состоит из n дней. У каждого работника есть график работы [x;y), (то есть работа со дня x по день y). 0-й и n-й дни недели — это одно и то же определить, будет ли каждый день в компании работать хотя бы один сотрудник ?
standard input:
3 5
0 2
2 4
3 5
standard output:
да
standard input:
3 7
0 4
2 5
6 7
standard output:
нет
// Внимание! Если программа не работает, обновите версию!
type
CheckBalls=class
private
ad:array of real; // диаметры шариков
ap:array of real; // веса шариков
etD:=24.0; // эталонный диаметр
derD:=2.0; // эталонное предельное отклонение
etP:=74.0; // эталонный вес
derP:=3.0; // эталонное предельное отклонение
procedure CheckBall(m:integer);
// проверка шарика с указанным номером
begin
Write('Шарик № ',m,': диаметр - ');
if Abs(aD[m-1]-etD)<=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Abs(aP[m-1]-etP)<=derP then Writeln('норма')
else Writeln('брак')
end;
public
constructor(ma,mp:array of real);
begin
ad:=Copy(ma);
ap:=Copy(mp);
end;
procedure CheckAllBalls;
begin
for var i:=1 to ad.Length do CheckBall(i)
end;
end;
begin
var n:=120; // число шариков
var a:=SeqRandom(n,200,280).Select(t->t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t->t/10).ToArray;
Writeln('Параметры шариков (диаметр,вес):');
a.Zip(b,(p,q)->(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.