Сортировка с записью в файл

@LooserPascal · Регистрация: 06.11.2010

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

Помогите решить задачку.

Дан одномерный массив A[n]. Необходимо:
-все отрицательные элементы поместить в начало массива;
-остальные элементы поместить в конец
-порядок следования чисел необходимо сохранить.
ДОПОЛНИТЕЛЬНЫЙ МАССИВ ЗАДАВАТЬ ЗАПРЕЩЕНО.

Входящие данные - текстовый файл text1.in:
-первая строка - количество элементов массива 10<=n<=100;
-вторая строка элементы массива записанные через пробел;

Исходящие данные - текстовый файл text1.out : элементы массива разделённые пробелом.

ПРИМЕР

text1.in
10
-2 3 4 -5 3 6 2 9 -2 7

text1.out
-2 -5 -2 3 4 3 6 2 9 7

@Puporev · 06.11.2010, 17:10

Pascal

uses crt;
var a:array[1..100] of integer;
    f,g:text;
    n,i,j,k,x:integer;
begin
clrscr;
assign(f,'text1.in');
reset(f);
assign(g,'text1.out');
rewrite(g);
read(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
k:=0;
for i:=1 to n do
if a[i]<0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
for i:=1 to n do
write(g,' ',a[i]);
close(g);
write('Отсортированный массив записан в файл tex1.out');
readln
end.

@LooserPascal · 06.11.2010, 21:27 **[ТС]**

При выполнении кода этой программы верного решения я не получил.
Входящие данные были text1.in
10
-2 4 5 -1 0 -3 3 4 5 -1
На выходе я получил text1.out

-2 -1 -3 -1 0 -3 3 4 5 -1

Подскажите где ошибка?
И как всё-таки её решить?

@SuPeR XaKer · 06.11.2010, 21:34

LooserPascal ник о многом говорит.Скопируй текст программы в файл .txt смени расширение c .txt на .pas и открой в ТП.

@Puporev · 06.11.2010, 21:36

Я не знаю что ты творишь, я получаю такое
text1.in

Код

10
1 -6 0 5 -7 0 8 -3 6 -12

text1.out

Код

-6 -7 -3 -12 1 0 5 0 8 6

@LooserPascal · 06.11.2010, 22:03 **[ТС]**

Спасибо !

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5
		1
	Сортировка с записью в файл 06.11.2010, 15:53. Показов 752. Ответов 5 Метки нет (Все метки) Помогите решить задачку. Дан одномерный массив A[n]. Необходимо: -все отрицательные элементы поместить в начало массива; -остальные элементы поместить в конец -порядок следования чисел необходимо сохранить. ДОПОЛНИТЕЛЬНЫЙ МАССИВ ЗАДАВАТЬ ЗАПРЕЩЕНО. Входящие данные - текстовый файл text1.in: -первая строка - количество элементов массива 10<=n<=100; -вторая строка элементы массива записанные через пробел; Исходящие данные - текстовый файл text1.out : элементы массива разделённые пробелом. ПРИМЕР text1.in 10 -2 3 4 -5 3 6 2 9 -2 7 text1.out -2 -5 -2 3 4 3 6 2 9 7 0

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5
	06.11.2010, 21:27 [ТС]	3
	При выполнении кода этой программы верного решения я не получил. Входящие данные были text1.in 10 -2 4 5 -1 0 -3 3 4 5 -1 На выходе я получил text1.out -2 -1 -3 -1 0 -3 3 4 5 -1 Подскажите где ошибка? И как всё-таки её решить? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	06.11.2010, 21:34	4
	LooserPascal ник о многом говорит.Скопируй текст программы в файл .txt смени расширение c .txt на .pas и открой в ТП. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.11.2010, 21:36	5
	Я не знаю что ты творишь, я получаю такое text1.in Код 10 1 -6 0 5 -7 0 8 -3 6 -12 text1.out Код -6 -7 -3 -12 1 0 5 0 8 6 1

@LooserPascal 0 / 0 / 0 Регистрация: 06.11.2010 Сообщений: 5
	06.11.2010, 22:03 [ТС]	6
	Спасибо ! 0

Опции темы