// 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 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.
Чтобы решить задачу, нам нужно знать, что такое основание системы счисления. Основание системы счисления - это количество различных символов, которыми можно представить числа в данной системе. Например, в десятичной системе счисления основание равно 10, потому что мы используем 10 различных цифр (от 0 до 9) для записи чисел.
Теперь перейдем к нашей задаче. Мы ищем основания систем счисления, в которых число 84 оканчивается на 14.
Для того чтобы решить эту задачу, мы можем использовать метод последовательного перебора оснований. Начнем с первого основания системы счисления, которое равно 2 (используется две цифры - 0 и 1). Запишем число 84 в этой системе и проверим, оканчивается ли оно на 14.
84 в двоичной системе счисления равно 1010100. Последние две цифры этого числа - 00. Но нам нужно, чтобы число оканчивалось на 14. Так как это не выполняется, мы исключаем двоичную систему счисления.
Затем перейдем к следующему основанию системы счисления - 3. Запишем число 84 в троичной системе и проверим, оканчивается ли оно на 14.
84 в троичной системе счисления равно 2200. Последние две цифры этого числа - 00. Это опять не соответствует условию. Поэтому мы исключаем троичную систему счисления.
Продолжим такой же подход для следующих оснований: 4, 5, 6 и так далее, пока не найдем всех основания, в которых число 84 оканчивается на 14.
Давайте сократим процесс решения и перейдем к наиболее вероятным и употребительным системам счисления.
В десятичной системе счисления число 84 оканчивается на 4. Мы уже знаем, что оно не может быть 14. Поэтому исключаем десятичную систему счисления.
Восьмеричная система счисления основана на числах от 0 до 7. Мы видим, что число 84 оканчивается на 4. Теперь проверим, соответствует ли это 14.
84 в восьмеричной системе счисления равно 124. Здесь последние две цифры - 24, что соответствует 14. Поэтому восьмеричная система счисления является одним из оснований, в котором число 84 оканчивается на 14.
Проверим еще несколько систем счисления, чтобы полностью убедиться.
Шестнадцатеричная система счисления основана на использовании чисел от 0 до 9 и букв от A до F для представления чисел. Мы видим, что число 84 оканчивается на 4. Давайте проверим, равняется ли это 14.
84 в шестнадцатеричной системе счисления равно 54. Последние две цифры - 54. Опять это не соответствует условию, поэтому исключаем шестнадцатеричную систему счисления.
Мы уже исключили некоторые системы счисления, поэтому следующий наиболее распространенный вариант - двоичная система счисления (основание 2) - также исключаем.
Осталась одна система счисления, которую мы не проверили - самая простая и удобная система счисления - система счисления, основанная на числе 12 (двенадцатичная система счисления). Давайте проверим ее.
84 в двенадцатичной системе счисления равно 70. Последние две цифры - 70. И это полностью соответствует условию. Таким образом, число 84, оканчивающееся на 14, может быть представлено в двенадцатичной системе счисления.
Итак, в порядке возрастания основания систем счисления, в которых запись числа 84 оканчивается на 14, они следующие: 8 (восьмеричная система счисления) и 12 (двенадцатичная система счисления).
Надеюсь, я смог разъяснить эту задачу шаг за шагом. Если у вас еще есть вопросы, пожалуйста, не стесняйтесь задавать!
// Внимание! Если программа не работает, обновите версию!
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.