VPF::Файлы - Форум программистов

Любаша

Дата 2.12.2006, 22:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 28
Регистрация: 2.12.2006

Репутация: нет
Всего: нет

Дан файл f, компоненты которого являются целыми числами.
Никакой из компонентов файла не равен 0. Числа в файле идут в
следующем порядке: десять положительных, десять отрицательных и т.д. Переписать компоненты файла f в файл g так, чтобы в файле g числа шли в следующем порядке:
    а)  пять положительных, пять отрицательных и т.д.;
    б)  двадцать положительных, двадцать отрицательных, и т.д.
    (предполагается, что число компонентов файла f делится на 40).

Ребята, подскажите пожалуйста где у меня ошибка.Почему появляютя нули после каждого отрицательного числа.

Код


program file_lov;
uses crt;
const
  n=40;
  m=n+20;
var
  i,j,k,err:integer;
  file_1,file_2:text;
  arr_int:array [1..n] of integer;
  st,vr_st:string;
begin
{---------------------------------------------------}
  assign(file_1,'d:\prog\text_1.txt');
  reset(file_1);
  i:=1;
  while not eof(file_1) do
  begin
    st:='';
    Read(file_1,st);
  end;
  close(file_1);
{----------------------------------------------------}
 i:=1;
 while i<m do
 begin
   if st[i]<>'-' then
   begin
     vr_st:='';
     vr_st:=vr_st+st[i];
     val(vr_st,k,err);
     arr_int[i]:=k;
     inc(i);
   end else
   begin
     vr_st:='';
     vr_st:=vr_st+st[i+1];
     val(vr_st,k,err);
     arr_int[i]:=-k;
     i:=i+2;
   end;
 end;

clrscr;
  for i:=1 to n do
    write(',',arr_int[i]);
  readln;
{------------------------------------------}
  assign(file_2,'d:\prog\text_2.txt');
  rewrite(file_2);
  for i:=1 to n do
  begin
    vr_st:='';
    k:=arr_int[i];
    if k>=0 then
    begin
      vr_st:='';
      str(k,vr_st);
      write(file_2,vr_st);
    end else
    begin
      st:='';
      k:=k*(-1);
      vr_st:=vr_st+'-';
      str(k,st);
      vr_st:=vr_st+st;
      write(file_2,vr_st);
    end;
  end;
  close(file_2);
end.

Это сообщение отредактировал(а) volvo877 - 2.12.2006, 23:30

Zero

Дата 4.12.2006, 22:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Тем актуальна, или уже нет?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »