Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 36
1

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

15.09.2013, 14:59. Просмотров 914. Ответов 0
Метки нет (Все метки)


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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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.
0
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 будем записывать получившееся число...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2013, 14:59

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.