type
intArr = array[1..10] of integer;
function isPrime(n: integer): boolean;
begin
result := False;
if n < 2 then exit;
var d := 2;
while (d <= n div 2) and (n mod d <> 0) do
d += 1;
result := d > n div 2
end;
var
a, b: intArr;
begin
Print('A:');
for var i := 1 to 10 do
begin
a[i] := i;
Print(a[i])
end;
Write(NewLine, 'B: ');
var j := 0;
for var i := 1 to 10 do
begin
if isPrime(a[i]) then
begin
j += 1;
b[j] := a[i];
Print(b[j])
end
end
end.
Никакая система не совершенна, а человек так тем более. Все мы испытываем такой человеческий фактор, как совершение ошибок. Мы делаем это всегда, даже в подсчётах каких-нибудь чисел.
Так может ошибаться и компьютер. Например, мы зададим компьютеру таков алгоритм, что на каждую ячейку коробки положим ровно 1 конфету. Мы напишем алгоритм для устройства ("умной руки"), и где-нибудь в алгоритме случайно используем итератор ("счётчик конфет или ячеек"), который может повлиять на работу.
Например, у нас есть N ячеек. Мы (или компьютер - такое тоже случается) случайно присвоили другое значение, тогда алгоритм будет работать уже с изменённой переменной: может класть конфеты в пустое пространство, ведь ячейки кончились, а может класть по 2 конфеты в 1 ячейку.
Другой пример - математические вычисления. Например, мы зададим компьютеру посчитать простые числа от 1 до N. С алгоритмов мы реализуем проверку на простоту, но забудем про какую-нибудь важную операцию (например, в сравнении: поставим не "ЧИСЛО ДОЛЖНО БЫТЬ МЕНЬШЕ ИЛИ РАВНО", а "ЧИСЛО ДОЛЖНО БЫТЬ МЕНЬШЕ МЕНЬШЕ"), из-за чего программа может выводить абсолютно не те числа. Поэтому в таких случаях нужна проверка и анализ результата выполнения работы.
