Версия для печати
Убрать все задачи

---

Количество операций

Дана программа сортировки (p141.pas). Требуется узнать, сколько раз
при сортировке конкретного массива с помощью этой программы
выполняется операция сравнения двух элементов массива (строка 25 программы).

Входные данные
В файле input.txt записан массив в формате (и удовлетворяющий ограничениям)
из задачи 136.

Выходные данные
В файл output.txt ваша программа должна печатать одно число - сколько
раз в процессе сортировки этого массива программой p141.pas выполнится
команда сравнения двух элементов массива.

Пример входного файла
5
3 1 2 4 2

Пример выходного файла
10

Текст программы p141.pas

const nmax=100;

var a:array[1..nmax] of integer;
    n:integer;
    i,j,g:integer;

    f1,f2:text;

begin
assign(f1,'input.txt');
reset(f1);
assign(f2,'output.txt');
rewrite(f2);
                                  {Чтение входных данных}
read(f1,n);
for i:=1 to n do read(f1,a[i]);
                                  {Сортировка массива}

for i:=1 to n do begin            {Подбираем число на i-ое место}

  g:=i;                           {Считаем, что самое маленькое число,
                                   которое нам встретилось, стоит на месте i}

  for j:=i+1 to n do              {Перебираем все числа с i+1 до конца массива}
    if a[j]<a[g] then g:=j;       {Если нашли число, которое меньше,
                                   чем то, что уже найдено, запоминаем его}

                                  {Меняем местами числа, стоящие на i-ом и
                                   на g-ом местах }
                                  {Если a[i]=x, a[g]=y, то после выполнения
                                   команды: }
  if i<>g then begin
    a[i]:=a[i]+a[g];                {a[i]=x+y, a[g]=y}
    a[g]:=a[i]-a[g];                {a[i]=x+y, a[g]=(x+y)-y=x}
    a[i]:=a[i]-a[g];                {a[i]=(x+y)-x=y}
                                  {То есть после этого a[i]=y, a[g]=x
                                   обмен значений произошел}
    end;

  end;

                                  {Выводим результат}
for i:=1 to n do
  write(f2,a[i],' ');
close(f1);
close(f2);
end.

   Решение

Страница: << 1 2 3 4 5 6 7 >> [Всего задач: 240]      

по 1 по 2 по 5 по 10 по 20 по 50 по 100   с решениями  

---

Задача 53375

Темы:   [ Сумма углов треугольника. Теорема о внешнем угле. ] [ Признаки и свойства равнобедренного треугольника. ]

Сложность: 3- Классы: 8,9

Дан треугольник ABC. На продолжении стороны AC за точку A отложен отрезок  AD = AB,  а за точку C – отрезок  CE = CB.
Найдите углы треугольника DBE, зная углы треугольника ABC.

Прислать комментарий

Решение

---

Задача 53384

Темы:   [ Сумма углов треугольника. Теорема о внешнем угле. ] [ Признаки и свойства равнобедренного треугольника. ]

Сложность: 3- Классы: 8,9

В равнобедренном треугольнике ABC высоты AD и CE, опущенные на боковые стороны, образуют угол AMC, равный 48°. Найдите углы треугольника ABC.

Прислать комментарий

Решение

---

Задача 53394

Темы:   [ Сумма углов треугольника. Теорема о внешнем угле. ] [ Углы между биссектрисами ]

Сложность: 3- Классы: 8,9

В треугольнике известны углы A, B, C. Найдите углы шести треугольников, на которые данный треугольник разбивается его биссектрисами.

Прислать комментарий

Решение

---

Задача 53437

Темы:   [ Сумма углов треугольника. Теорема о внешнем угле. ] [ Признаки и свойства равнобедренного треугольника. ]

Сложность: 3- Классы: 8,9

Угол при основании BC равнобедренного треугольника ABC вдвое больше угла при вершине, BD – биссектриса треугольника. Докажите, что  AD = BC.

Прислать комментарий

Решение

---

Задача 53445

Темы:   [ Сумма углов треугольника. Теорема о внешнем угле. ] [ Взаимное расположение высот, медиан, биссектрис и проч. ]

Сложность: 3- Классы: 8,9

Два угла треугольника равны 10° и 70°. Найдите угол между высотой и биссектрисой, проведёнными из вершины третьего угла треугольника.

Прислать комментарий

Решение

---

Страница: << 1 2 3 4 5 6 7 >> [Всего задач: 240]      

по 1 по 2 по 5 по 10 по 20 по 50 по 100   с решениями