Помощь - Поиск - Пользователи - Календарь
Полная версия: Файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Anastacia Adesso
Наверное немного глупый вопрос.

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

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

        while not eoln(f1)
do begin
read(f1,c);
write(copy(c,2,1));
write(f2,copy(c,2,1));
end;
klem4
Как-то так:

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
klem4

это типа на чётность проверяет и пишет чётную?
klem4
Ну да, читаем следующий символ, увеличиваем счетчик, если значение счетчика - четное, пишем символ во второй файл ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.