посчитать общее количество перестановок

15.09.2013, 14:59. Просмотров 914. Ответов 0

Метки нет (Все метки)

Надо посчитать сколько всего перестановок было после двух сортировок..просто число перестановок

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('razmer massiva ot  4  ',nmax,' n=');
readln(n);
until n in [4..nmax];
writeln('danniy massiv:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
k:=1;
for i:=1 to n do
if i mod 4=0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k do
  a[j]:=a[j-1];
  a[k]:=x
 end;
writeln('pervaya sortirovka');
for i:=1 to n do
write(a[i]:4);
writeln;
i:=k+2;
while i<=n do
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
  i:=i+2
 end;
writeln('vtoraya sortirovka');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i]<a[k] then
 begin
  x:=a[i];
  a[i]:=a[k];
  a[k]:=x
 end;
writeln('gotovyj massuv');
for i:=1 to n do
write(a[i]:4);
readln;
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.09.2013, 14:59

Ответы с готовыми решениями:

Посчитать общее количество латинских букв во всех строках
Создать линейный однонаправленный список строк. Посчитать общее количество латинских букв во всех...

Даны К наборов ненулевых целых чисел. Вывести количество элементов в каждом наборе и их общее количество
Дано целое число К, а также К наборов ненулевьк целых чисел. Признаком завершения каждого набора...

Найдите количество перестановок размера n с ровно k неподвижными точками
Неподвижные точки Перестановкой P размера n называется набор чисел от 1 до n, расположенных в...

Изменяя число i от 1 до n (без пробелов) получить число. Посчитать в нем количество каждых цифр. Посчитать общее число цифр
Дано число n меньше или равно 30 000. Изменяя число i от 1 до n будем записывать получившееся число...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.09.2013, 14:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить общее количество слов и количество символов, отличных от пробела; 2)Удалить из текста рограммы все комментарии
текст программы на Паскале храниться в файле на диске. Составить программу обработки текста...

Подсчитать общее количество цифр и количество единиц
Вводится текст. Среди символов этого текста имеется несколько цифр. Подсчитать общее количество...

Определить общее количество пятерок и количество двоек
известны оценки по химии каждого ученика класса. определить общее количество пятерок и количетсво...

Подсчитать общее количество перестановок после двух сортировок
Надо посчитать сколько всего перестановок было после двух сортировок..просто число перестановок...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх