Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Ptahin
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 2
#1

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

26.12.2012, 11:29. Просмотров 249. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Исправить код (Turbo Pascal):

Исправить код! - Turbo Pascal
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize; for i:= 1 to 3 do for j:=1 to 3 do A:=random(9); ...

Исправить код - Turbo Pascal
program P4; type school = record nm:integer; name: string; surname: string; god: integer; bukva:set of char= {Множество...

Нужно исправить код - Turbo Pascal
Нужно записать процедуру вывода массива, для исходного. Для конечного отсортированного уже есть. И объединить их в одну. Вот уже час бьюсь,...

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

Исправить программный код - Turbo Pascal
Program pr1; uses crt; var x,y,z:array of integer; n,i,j,k,m:integer; begin writeln ('n='); readln (n); writeln ('m='); ...

Исправить код программы - Turbo Pascal
uses crt; function c5(n:integer):boolean; var m,i:integer; f:boolean; begin m:=abs(n); f:=false; while(m&gt;0)and not f do ...

1
Zhexon
312 / 271 / 89
Регистрация: 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
Привет! Вот еще темы с ответами:

Исправить код вычисления выражения - Turbo Pascal
Добрый день спасайте завтро зачет а я упустил тему функции, вот сделал что смог, мне помогали, но тут нужно чтото подправить. если неохота...

Распаковка строки, исправить код - Turbo Pascal
Здравствуйте, решал на **** задачу &quot;распаковка строки&quot;, благополучно решил, на компьютере все работает, но на **** выдает &quot;Runtime Error&quot;....

Сортировка слиянием - исправить код - Turbo Pascal
Помогите, пожалуйста! Я уже очень много раз просила помощь, первые 10 сообщений читают, остальные забивают. мне сдавать программу через 2...

Исправить код работы с массивом - Turbo Pascal
помогите исправить ошибку в этой задаче: Program Pr7; Uses Crt; Var n,j,g,m,s,r:integer; A:Array of integer; Begin ...


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

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

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