Конкатенация файлов через букву

@Артём33 · Регистрация: 27.04.2010

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

Помогите пожалуйста решить задачу!!!
Даны два файла: f1:"знак" и f2:"генератор". Конкатенировать файлы f1 и f2 через букву "о", записав результат в файл f1. Вывести на экран файл f1.
("знак" и "генератор" это содержимое файлов созданных через паскаль)
я вот незнаю как между ними вставить "о"

@Puporev · 17.05.2010, 12:00

Pascal

uses crt;
var f1,f2:text;
    nf1,nf2,s,s1:string;
begin
clrscr;
write('Имя первого файла: ');
readln(nf1);
nf1:=nf1+'.txt';
assign(f1,nf1);
{$I-} reset(f1);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf1);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя второго файла: ');
readln(nf2);
nf2:=nf2+'.txt';
assign(f2,nf2);
{$I-} reset(f2);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',nf2);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
readln(f1,s);
close(f1);
s:=s+'o';//о пиши в английской раскладке, иначе в файле кривулина будет
readln(f2,s1);
s:=s+s1;
rewrite(f1);//переписываем первый файл
writeln(f1,s);
close(f1);
close(f2);
erase(f2);//уничтожаем второй
write('Файлы конктенированы, результат записан в файл ',nf1);
readln
end.

@Артём33 · 17.05.2010, 16:59 **[ТС]**

спасибо я уже сделал

@Puporev · 17.05.2010, 17:01

Помогите пожалуйста решить задачу!!!

спасибо я уже сделал

Последнее мог бы и не писать, очень на хамство смахивает. Даже не знаю кто за Вас дальше решать будет?

Новые блоги и статьи
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре InfoMaster 16.01.2025 Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .	Как использовать Kerio дома для управления сетью и пользователями InfoMaster 16.01.2025 Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .	Есть ли будущее у DVD и Blu-ray? InfoMaster 16.01.2025 В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .	Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .

@Артём33 3 / 3 / 1 Регистрация: 27.04.2010 Сообщений: 318
		1
	Конкатенация файлов через букву 17.05.2010, 11:47. Показов 762. Ответов 3 Метки нет (Все метки) Помогите пожалуйста решить задачу!!! Даны два файла: f1:"знак" и f2:"генератор". Конкатенировать файлы f1 и f2 через букву "о", записав результат в файл f1. Вывести на экран файл f1. ("знак" и "генератор" это содержимое файлов созданных через паскаль) я вот незнаю как между ними вставить "о" 0

@Артём33 3 / 3 / 1 Регистрация: 27.04.2010 Сообщений: 318
	17.05.2010, 16:59 [ТС]	3
	спасибо я уже сделал 0

@Puporev Почетный модератор 64305 / 47602 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.05.2010, 17:01	4
	Помогите пожалуйста решить задачу!!! спасибо я уже сделал Последнее мог бы и не писать, очень на хамство смахивает. Даже не знаю кто за Вас дальше решать будет? 0

Опции темы