безотлагательно!!! даю 99баллов!!!!!ПоМоГиТе!!!!!Производственный участок издаёт железные шарики,
Безотлагательно!!! даю 99баллов!!!!!ПоМоГиТе!!!!!
Производственный участок издаёт железные шарики, поперечник которых должен быть равен 24 миллиметрам (возможное отклонение не более 2 миллиметров), а вес 74 граммам (возможное отклонение не более 3 гр).Напишите класс, который воспринимает данные 120 шариков и для каждого из их определяет, соответствуют ли его характеристики обозначенным эталонам и выводит на экран для каждого шарика подходящее текстовое известие.
Карина Буслаева
решайте на соём паскале
София Боцева
так мы не разыскиваем кратких путей
Амина
адьёс ,возлюбленный
Карина Москалюк
когда мы ещё встретимся
Sema Pretel Martines
???
Тафийчук
Наташка
аватарка классная
Даниил Айдулин
да ?
Ева Лисоводская
спецально для тебя разыскивал
1 ответ
Елена Кочетнова
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!
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 Абс(aD[m-1]-etD)lt;=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Абс(aP[m-1]-etP)lt;=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-gt;t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t-gt;t/10).ToArray;
Writeln('Характеристики шариков (поперечник,вес):');
a.Zip(b,(p,q)-gt;(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.
// Внимание! Если программка не работает, обновите версию!
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 Абс(aD[m-1]-etD)lt;=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Абс(aP[m-1]-etP)lt;=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-gt;t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t-gt;t/10).ToArray;
Writeln('Характеристики шариков (поперечник,вес):');
a.Zip(b,(p,q)-gt;(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов