В текстовом файле удаление не парных строк

@WitcherKold · Регистрация: 26.11.2014

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

Не получаетса написать прогу которая будет удалать непарные строки. Прошу помоч.
Вот наброски :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program StrokaDel;
uses CRT;
var f,f2: text;
    i,n,m: integer;
    s: string;
begin
n:=255;
 assign (f,'vvod.txt');
 append (f);
 i:=0;
  while not eof(f) do
    begin
      inc(i);
      if ((i mod 2) <>0) then
      delete(f,i,n);
    end;
  Close(f);
end.

@ZX Spectrum-128 · 27.11.2014, 22:20

Обычным способом из текстового файла строку удалить нельзя.
Алгоритм вашей работы следующий:
Открыть два файла
Один исходный - чтение (reset)
Второй пустой - создание/запись (rewrite)
В цикле пока не конец первогофайла
читаете из первого файла нечетную строку, пишете ее во второй
Закрыли оба файла
Удалили первый файл (del или remove) - посмотрите в справке точно
Переименовали второй файл именем первого rename

А append позволяет только добавлять строки в конец существующего файла.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,434
	27.11.2014, 22:20
	Обычным способом из текстового файла строку удалить нельзя. Алгоритм вашей работы следующий: Открыть два файла Один исходный - чтение (reset) Второй пустой - создание/запись (rewrite) В цикле пока не конец первогофайла читаете из первого файла нечетную строку, пишете ее во второй Закрыли оба файла Удалили первый файл (del или remove) - посмотрите в справке точно Переименовали второй файл именем первого rename А append позволяет только добавлять строки в конец существующего файла. 0