Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Ptahin
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 2
1

Исправить код

26.12.2012, 11:29. Просмотров 266. Ответов 1
Метки нет (Все метки)

задание:
В целочисленном векторе vectorn переместить в начало все нулевые элементы, за ними – все отрицательные элементы в порядке их следования, а за ними – все положительные элементы в порядке их следования.

Условие: нельзя использовать дополнительные массивы, только исходный!!!

заранее спасибо

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
60
61
62
Uses Crt;
Var i,j:Byte;
    mas:array[1..10] of integer;
    min,max,n:integer;
Begin
  
  write ('n = ');
  readln (n);
  Write('min = ');
  ReadLn(min);
  Write('max = ');
  ReadLn(max);
  WriteLn;
 
  WriteLn('Ishodny vector:');
Randomize;
  for i:=1 to n do
  begin
    mas[i]:=random(max-min+1)+min;
    write(mas[i]);
    write(' ');
  end;
  WriteLn;
 
  WriteLn('Vihodnoy vector:');
  j:=1;
  
for i:=1 to n do
  begin
    if (mas[i]=0)then
    begin   
      mas[j]:=mas[i];
      j:=j+1;
    end;
  end;
  
for i:=1 to n do
  begin
    if (mas[i]<0)then
    begin  
      mas[j]:=mas[i];
      j:=j+1;
    end;
  end;
 for i:=1 to n do
  begin
    if (mas[i]>0)then
    begin
   
      mas[j]:=mas[i];
    
      j:=j+1;
    end;
  end;
 
  for i:=1 to n do
  begin
    write(mas[i]);
    write(' ');
  end;
readln;
End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2012, 11:29
Ответы с готовыми решениями:

Исправить код
program P4; type school = record nm:integer; name: string; surname:...

Исправить код!
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize;...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure...

Исправить программный код
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer;...

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

1
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
26.12.2012, 12:07 2
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
Uses Crt;
const maxn=20;
Var
  i,j,k:Byte;
  mas:array[1..maxn] of integer;
  min,max,n,x:integer;
 
Begin
  clrscr;
  repeat
    write ('n  [2..',maxn,'] = '); readln (n);
  until (n>1) and (n<=maxn);
  Write('min = '); ReadLn(min);
  Write('max = '); ReadLn(max);
  WriteLn; WriteLn('Ishodny vector:'); Randomize;
  for i:=1 to n do begin
    mas[i]:=random(abs(min)+abs(max))+min;
    write(mas[i]:4);
  end; WriteLn;
 
  j:=1;
 
  for i:=1 to n do begin
    if (mas[i]=0)then begin
      for k:=i downto j+1 do mas[k]:=mas[k-1];
      mas[j]:=0; inc(j);
    end;
  end;
 
  for i:=1 to n do begin
    if (mas[i]<0)then begin
      x:=mas[i];
      for k:=i downto j+1 do mas[k]:=mas[k-1];
      mas[j]:=x; inc(j);
    end;
  end;
 
  WriteLn('Vihodnoy vector:');
  for i:=1 to n do write(mas[i]:4); writeln;
  readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2012, 12:07

Исправить код сортировки
Помогите пожалуйста найти ошибку в теле программы! Вот задание - e) Створіть...

Распаковка строки, исправить код
Здравствуйте, решал на **** задачу &quot;распаковка строки&quot;, благополучно решил, на...

Метод релаксации, исправить код
Помогите найти ошибку, по готовому алгоритму uses crt; var i,j,n:integer;...


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

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

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