Назовём инверсией пару элементов массива, в котором элемент с меньшим номером больше элемента с большим номером. Заметим, что после каждого обмена число инверсий в массиве уменьшается на 1. Тогда, посчитав число инверсий до работы программы и после, и вычтя из первого второе, мы получим число операций обмена.
Массив небольшой, и можно подсчитывать инверсии как угодно.
Var a,b,c,x:real; begin repeat writeln('Введите тип арифм. операции (1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление, 0 - остановить программу'); readln(x); if x=1 then begin writeln('Введите 2 числа'); readln(a,b); c:=a+b; writeln('ответ: ',c); end; if x=2 then begin writeln('Введите 2 числа'); readln(a,b); c:=a-b; writeln('ответ: ',c); end; if x=3 then begin writeln('Введите 2 числа'); readln(a,b); c:=a*b; writeln('ответ: ',c); end; if x=4 then begin writeln('Введите 2 числа'); readln(a,b); c:=a/b; writeln('ответ: ',c); end; if x=0 then writeln('Пока!'); until x=0; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку