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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Файлы

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

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

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


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

        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

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