Чтение,удаление и вставка информации в текстовый файл.

@p22 · Регистрация: 21.01.2010

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

Удалить из текстового файла последнюю строку.

@WolfCF · 22.01.2010, 11:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
const n=100;
var
   f:text;
   s,s1:string; 
   a:array[1..n] of string;
   i,k:byte;   
Begin
     clrscr;
     assign (f,'input.txt');
     reset(f);
     i:=1; k:=0;
     while not EOF (f) do
       begin
           readln (f,a[i]);
             i:=i+1;
       end;
     close(f);
     for i:=1 to n do
      if a[i]<>'' then k:=k+1;
     assign(f,'output.txt');
     rewrite(f);
     for i:=1 to k-1 do
      writeln(f,a[i]);
    close(f);
  readln
end.

исходные данные:

11111
22222
333

выходные данные

11111
22222

@p22 · 22.01.2010, 12:08 **[ТС]**

ЧЕТ он ошибку выдаёт.
reset (f); - ошибка File not found. ???????????????

@WolfCF · 22.01.2010, 12:09

p22, файл создай в папке с программой input.txt и в него запиши свои данные.

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

@p22 0 / 0 / 0 Регистрация: 21.01.2010 Сообщений: 7

	Чтение,удаление и вставка информации в текстовый файл. 22.01.2010, 11:31. Показов 2410. Ответов 3 Метки нет (Все метки) Удалить из текстового файла последнюю строку. 0

@p22 0 / 0 / 0 Регистрация: 21.01.2010 Сообщений: 7
	22.01.2010, 12:08 [ТС]
	ЧЕТ он ошибку выдаёт. reset (f); - ошибка File not found. ??????????????? 0

@WolfCF 3316 / 1378 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	22.01.2010, 12:09
	p22, файл создай в папке с программой input.txt и в него запиши свои данные. 1

Опции темы