Скорость передачи данных по локальной сети 15 мбит в секунду. ученик перекачивал игру 25 минут.
а) сколько это гигабайт?
1)2,74
2)2,37
3)2,75
4)2812,5
б) сколько денег (в рублях) придется заплатить ученику за трафик, если первый 1 гбайт не оплачивается, а всё, что сверх его — по 5 копеек за 1 мбайт? полученный в рублях результат округли до целых.
// Внимание! Если программа не работает, обновите версию!
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.