Версия для печати темы

Автор: Anastacia Adesso 20.11.2006 19:13

Наверное немного глупый вопрос.

Нужно, чтоб из одного файла в другой записывался каждый второй символ.
Пока что не знаю, как это сделать.
Тока что начали проходить эти файлы
А вы знаете?
 UZD4.PAS ( 541 байт ) Кол-во скачиваний: 520


аааааа кажется надо вот так писать, да?

        while not eoln(f1)
        do begin
          read(f1,c);
          write(copy(c,2,1));
          write(f2,copy(c,2,1));
        end;

Автор: klem4 20.11.2006 19:14

Как-то так:

count := 0;
While not(eof(f1)) do begin
  while not(eoln(f1))   do begin
    inc(count);
    read(f1, c);
    if not(odd(count)) then write(f2, c);
  end;
  readln(f1);
  writeln(f2);
end;

Автор: Anastacia Adesso 20.11.2006 19:17

klem4

это типа на чётность проверяет и пишет чётную?

Автор: klem4 20.11.2006 19:20

Ну да, читаем следующий символ, увеличиваем счетчик, если значение счетчика - четное, пишем символ во второй файл ...