Студент в смятении

[Dekker11]

Такая вот задачка...
Дан файл f, компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько положительных. Переписать компоненты файла f в файл g так, чтобы в файле g не было двух соседних чисел с одинаковым знаком.

[Mad_Cat]

Студент в смятении

мы тут тоже немного ох.. удивились
1)язык программирования?
2) попытки или сколько платите?

[Dekker11]

Вообще нужно на VBA для экселя, но Паскаль и С++ тоже сойдут, попытки исчерпали себя на стадии разбора. Не думаю, что для знающих людей эта программа заставит напрячься. Оплата по требованию

[Smogg]

создаете два вектора - положительный и отрицательный.
читаете число.
сравниваете с нулем.
Если меньше - добавляете в отрицательный, иначе - в положительный вектор.

попеременно пишите в выходной файл из каждого вектора.

[Dekker11]

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

создаете два вектора - положительный и отрицательный.
читаете число.
сравниваете с нулем.
Если меньше - добавляете в отрицательный, иначе - в положительный вектор.

попеременно пишите в выходной файл из каждого вектора.

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

[Mad_Cat]

создаете два вектора - положительный и отрицательный.

А зачем 2? одного хватит за глаза

{Паскаль с 1 вектором}
const n=6;
var a,b:array[1..100] of real;
    i,j,k:integer;
function sign(a:real):real;
  begin
    if a>0 then sign:=1
      else if a=0 then sign:=0
      else sign:=-1;
  end;
begin
  a[1]:=-2;  a[2]:=-4; a[3]:=3;
  a[4]:=2;  a[5]:=4; a[6]:=-3;
  writeln('====================================');
  for i:=1 to n do
    write (a[i]:6:2);
  writeln;
  j:=3;
  k:=2;
  b[1]:=a[1];
  for i:=2 to n do
    if sign(a[i])=sign(a[1]) then
      begin
        b[j]:=a[i];
        j:=j+2
      end
    else
      begin
        b[k]:=a[i];
        k:=k+2;
      end
 writeln('====================================');
 for i:=1 to n do
  write (b[i]:6:2);
 writeln;
end.

-2.00 -4.00 3.00 2.00 4.00 -3.00
=================================== =
-2.00 3.00 -4.00 2.00 -3.00 4.00

Ввод/вывод из файла/в файл сами прикрутите

[Smogg]

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

А зачем 2? одного хватит за глаза

А затем, что размер файла неизвестен

К тому ж, вы и сами два массива использовали...

[Mad_Cat]

К тому ж, вы и сами два массива использовали...

*фп* массив то один исходный - заменяется чтением из файла и остается один тот который заполняется поочередно!!!

[Smogg]

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

[p51x]

ТС, ответьте, как один из повылазивших на форуме "я не программирую, но дали задачу на асме", "я программирую как бабушка, но вот задачка на файлы", ... зачем это вам? зачем учится на неинтересной специальности? зачем надрывать пятую точку?