Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2

@hellsing001 · Регистрация: 24.11.2009

Студворк — интернет-сервис помощи студентам

Общие указания при составлении программ к данной теме:
1. Размер массива задать константой в блоке описания.
2. Массив заполнить случайными числами, если другого заполнения не диктует задача.
3. Вывести исходный массив и массив после преобразования по условию задачи.

само задание: В массиве X[1..n] каждый элемент равен 0, 1 или 2. Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2. Сортировку при этом не делать.

@Kizer · 29.01.2010, 17:17

Бредовинький код у меня конечно... но без сортировки не знаю как больше :

Pascal

program k;
const
n = 500;
var
a,b,c,d:array[1..n] of real;
i,j,f,m,t: integer;
BEGIN
for i:=1 to n do
read(a[i]);
 
for i:=1 to n do
if a[i] = 0 then inc(f) else if a[i] = 1 then inc(m) else inc(t);
 
writeln('Нули:  ');
for j:=1 to t do writeln(0,'   ');
writeln('единицы  ');
for j:=1 to m do writeln(1,'   ');
writeln('Двойки:  ');
for j:=1 to f do writeln(2, '   ');
 
END.

@Жолдас · 29.01.2010, 17:21

Kizer, ты хочешь чтобы он вводил 500 значении вручную??

@andrei63 · 29.01.2010, 17:23

добавить надо

Pascal

randomize;
write('n:= ');
read(n);
for i:=1 to n do
a[i]:=random(2);

написано же случайный образом

@Kizer · 29.01.2010, 17:25

Пардон муа... забыл что там нужен рандом:

Pascal

program k;
const
n = 100;
var
a,b,c,d:array[1..n] of byte;
i,j,f,m,t: integer;
BEGIN
for i:=1 to n do begin
a[i]:=random(2); write(a[i], '   '); end; 
 
for i:=1 to n do
if a[i] = 0 then inc(f) else if a[i] = 1 then inc(m) else inc(t);
 
writeln('Нули:  ');
for j:=1 to t do writeln(0,'   ');
writeln('единицы  ');
for j:=1 to m do writeln(1,'   ');
writeln('Двойки:  ');
for j:=1 to f do writeln(2, '   ');
 
END.

@hellsing001 · 29.01.2010, 17:28 **[ТС]**

так а что программа эта делает, запускаю и кроме ввода цифр ничего не происходит

Добавлено через 48 секунд
ой, не обнавил страницу потом))

Добавлено через 1 минуту
Нули:
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
единицы
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
Двойки:

вот што выводи

@andrei63 · 29.01.2010, 17:29

Pascal

const p=6;
var a:array[1..p] of integer;
k1,k2,k3,i,n:integer;
begin
randomize;
write('n:= ');
read(n);
for i:=1 to n do
a[i]:=random(2);
for i:=1 to n    do
writeln(a[i]);
for i:=1 to n do
if a[i]=0 then k1:=k1+1;
for i:=1 to n do
if a[i]=1 then k2:=k2+1;
for i:=1 to n do
if a[i]=2 then k3:=k3+1;
for i:=1 to k1 do
write('0');
for i:=1 to k2 do
write('1');
for i:=1 to k3 do
write('2');
readln;
end.

@hellsing001 · 29.01.2010, 17:34 **[ТС]**

andrei63, а чё двойки невыводятся

Добавлено через 16 секунд
???

@andrei63 · 29.01.2010, 17:36

random(3)

@Kizer · 29.01.2010, 17:37

Рано я бросил курить Гашиш...

Pascal

program k;
const
n = 5;
var
a,b,c,d:array[1..n] of byte;
i,j,f,m,t: integer;
BEGIN
randomize;
for i:=1 to n do begin
a[i]:=random(3); write(a[i], '   '); end;
 
for i:=1 to n do
if a[i] = 0 then inc(f) else if a[i] = 1 then inc(m) else inc(t);
 
writeln('Нули:  ');
for j:=1 to f do writeln(0,'   ');
writeln('единицы  ');
for j:=1 to m do writeln(1,'   ');
writeln('Двойки:  ');
for j:=1 to t do writeln(2, '   ');
 
END.

Вот Ваша программа. Постарайтесь хотя бы чуть-чуть вникнуть в код

@hellsing001 · 29.01.2010, 17:41 **[ТС]**

посмотрим на ваши 2 проги))что препод скажет))

Добавлено через 1 минуту
посмотрим что препод скажет)

Добавлено через 14 секунд
блин, комп тупит)

@pikusfikus · 29.01.2010, 17:42

Вот ваш код

Pascal

const
n=15;
type
mas=array[1..n] of byte;
 
procedure writemas(a:mas);
var
i:integer;
begin
write('[');
for i:=1 to n do
write(a[i]:3);
writeln(']');
end;
 
procedure replace (s,s1:byte; var a:mas);
var
i,x,j:integer;
begin
for i:=1 to n-1 do
for j:=n downto i+1 do
if (a[i]=s) and (a[j]=s1) then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
end;
 
var
a:mas;
i,j,x:integer;
begin
writeln('My Vector');
randomize;
for i:=1 to n do
a[i]:=random(3);
writemas(a);
replace(2,1,a);
replace(2,0,a);
replace(1,0,a);
writeln('Solution');
writemas(a);
readln
end.

Добавлено через 26 секунд

Сообщение от hellsing001

посмотрим на ваши 2 проги))что препод скажет))

Добавлено через 1 минуту
посмотрим что препод скажет)

Добавлено через 14 секунд
блин, комп тупит)

препод такое решение не примет гарантировано

@hellsing001 · 29.01.2010, 17:45 **[ТС]**

твою темболее))я на 1 курсе и процедуры ещё не проходили))

@Kizer · 29.01.2010, 17:45

pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать?

@pikusfikus · 29.01.2010, 17:48

Сообщение от Kizer

pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать?

вы уверены что это сортировка?вы то код читал?обмен элементов это не сортировка.

Добавлено через 1 минуту

Сообщение от Kizer

pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать?

Вы видели условия?"Переставить элементы массива так,",именно переставить,а не вывести их таким
детским способом.

@Kizer · 29.01.2010, 17:55

Не по теме:

pikusfikus, молодец. Спорить не буду, мб Вы и правы.

@hellsing001 2 / 2 / 0 Регистрация: 24.11.2009 Сообщений: 40
	29.01.2010, 17:45 [ТС]	13
	твою темболее))я на 1 курсе и процедуры ещё не проходили)) 0

Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2

Решение

Решение

Решение

Решение

Решение

@Жолдас LegenD 45 / 44 / 15 Регистрация: 10.12.2009 Сообщений: 109
	29.01.2010, 17:21	3
	Kizer, ты хочешь чтобы он вводил 500 значении вручную?? 0

@hellsing001 2 / 2 / 0 Регистрация: 24.11.2009 Сообщений: 40
	29.01.2010, 17:28 [ТС]	6
	так а что программа эта делает, запускаю и кроме ввода цифр ничего не происходит Добавлено через 48 секунд ой, не обнавил страницу потом)) Добавлено через 1 минуту Нули: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 единицы 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 Двойки: вот што выводи 0

@hellsing001 2 / 2 / 0 Регистрация: 24.11.2009 Сообщений: 40
	29.01.2010, 17:34 [ТС]	8
	andrei63, а чё двойки невыводятся Добавлено через 16 секунд ??? 0

@andrei63 141 / 135 / 69 Регистрация: 15.12.2009 Сообщений: 343
	29.01.2010, 17:36	9
	random(3) 1

@hellsing001 2 / 2 / 0 Регистрация: 24.11.2009 Сообщений: 40
	29.01.2010, 17:41 [ТС]	11
	посмотрим на ваши 2 проги))что препод скажет)) Добавлено через 1 минуту посмотрим что препод скажет) Добавлено через 14 секунд блин, комп тупит) 0

@Kizer 80 / 82 / 36 Регистрация: 20.11.2009 Сообщений: 326
	29.01.2010, 17:45	14
	pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать? 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	29.01.2010, 17:48	15
	Сообщение от Kizer pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать? вы уверены что это сортировка?вы то код читал?обмен элементов это не сортировка. Добавлено через 1 минуту Сообщение от Kizer pikusfikus, читайте пункт 2 задания. Вы, думаете, что мы сортировку не знаем как сделать? Вы видели условия?"Переставить элементы массива так,",именно переставить,а не вывести их таким детским способом. 0

@Kizer
	29.01.2010, 17:55 Переставить элементы массива так, чтобы сначала располагались все 0, затем 1, затем 2 #16
	Не по теме: pikusfikus, молодец. Спорить не буду, мб Вы и правы. 0