Переписать последовательность в другой файл, но без запятых

@ALMAZZZZ · Регистрация: 19.04.2015

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

Не знаю, в чем проблема. Программа должна считать из файла последовательность, разделенную запятыми, которая заканчивается точкой, а затем переписать в другой файл, но уже без запятых. К сожалению, она считывает только до первой запятой. Числа перезаписываются в столбик. Один write написал, чтобы не заглядывать в файл каждый раз.

Прога:

Pascal

program pr;
var
  r, t: text;
  f: char;
  digit, err: integer;
 
begin
  assign(t, 'input.txt');
  assign(r, 'output.txt');
  reset(t);
  rewrite(r); 
  Read(t, f);
  repeat 
 
      while f <> ',' do
        begin
          val(f, digit, err);
          Write(digit);
          Write(r, digit);
          Read(t, f);
        end;
        Read(t, f);
   until f <> '.';
   close(t);
   close(r);
end.

ФедосеевПавел · 19.04.2015, 22:13

Организуй один цикл чтения из файла

Pascal

  while not eof(t) do
  begin
    read(t, f);
    if f<>',' then
      write(r, f);
    if f='.' then
      break;
  end;
  close(t);
  close(r);

@ALMAZZZZ · 19.04.2015, 22:23 **[ТС]**

Работает...Но он пишет по два раза почему-то

ФедосеевПавел · 19.04.2015, 22:28

Покажи итоговый код, входные и выходные данные.
Для исходников используй теги, нажав кнопку PASCAL.

@ALMAZZZZ · 19.04.2015, 22:45 **[ТС]**

благодарю, всё получилось =) исправил последнюю глупую ошибку

@ALMAZZZZ 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 21
	19.04.2015, 22:23 [ТС]	3
	Работает...Но он пишет по два раза почему-то 0

ФедосеевПавел Модератор 8475 / 4334 / 1642 Регистрация: 01.02.2015 Сообщений: 13,455 Записей в блоге: 8
	19.04.2015, 22:28	4
	Покажи итоговый код, входные и выходные данные. Для исходников используй теги, нажав кнопку PASCAL. 1

@ALMAZZZZ 0 / 0 / 0 Регистрация: 19.04.2015 Сообщений: 21
	19.04.2015, 22:45 [ТС]	5
	благодарю, всё получилось =) исправил последнюю глупую ошибку 0

Опции темы