безотлагательно!!! даю 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
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов