Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить во сколько раз площадь круга радиуса R больше площади сегмента, отсеченного хордой длины А. Определить во сколько раз площадь круга радиуса R больше площади сегмента, отсеченного хордой длины А. https://www.cyberforum.ru/ turbo-pascal/ thread130928.html Найти разность произведения первых двух цифр числа Turbo Pascal
Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода исходных данных (например, с помощью Readln) и вывода результатов на экран. Ввод исходных данных и ввод результатов должен производить в "теле" основной программы! Написать программу, которая находит из всех четырехзначных чисел, такие числа, разность произведения первых двух цифр и произведения...
Turbo Pascal Подсчитать процент каждого знака препинания от общего количества символов Написать программу, которая находит количество знаков препинания в созданном текстовом файле, и подсчитывает процент каждого знака препинания от общего количества символов. Добавлено через 1 час 13 минут Помогите!!!! https://www.cyberforum.ru/ turbo-pascal/ thread130922.html Turbo Pascal Если сумма трех попарно различных действительных чисел X Y Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других Если сумма трех попарно различных действительных чисел X Y Z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, В противном случае заменить меньшее из X Y полусуммой двух оставшихся значений. нужна прога на паскале) https://www.cyberforum.ru/ turbo-pascal/ thread130910.html
Обмен двух звеньев списка Turbo Pascal
вобщем нужно написать процедуру обмена информационных частей двух звеньев списка....помогите пожалуйста...я запуталась с ссылками next... procedure Swap(L,R:PList); var Q:PList; begin new(Q); Q^.info:=L^.info; L^.info:=R^.info; L^.next:=Q; Q^.next:=R^.next; dispose(R);
Turbo Pascal Среди работников данною предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработ Среди работников данною предприятия найти тех, чья заработная плата за месяц ниже средней по предприятию, а также распечатать список тех, кто проработал на предприятии более 10 лет, с указанием их фамилии, зарплаты, стажа работы и должности. Помогите плз https://www.cyberforum.ru/ turbo-pascal/ thread130906.html
Turbo Pascal Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. Помогите плз https://www.cyberforum.ru/ turbo-pascal/ thread130900.html Turbo Pascal Перезапись строк
Создайте текстовый файл. Запишите во второй файл все строки первого файла, начинающиеся с заданного слова. (Исходный файл создать просто, а не через паскаль)
Turbo Pascal Найти максимальное значение функции (методом дихотомии) https://www.cyberforum.ru/ turbo-pascal/ thread130871.html
найти максимальное значение функции решить методом дихотомии Добавлено через 8 часов 11 минут помогите с коментарием(( repeat C:=Readkey; case C of #60: begin
Turbo Pascal Найти максимальное значение функции https://www.cyberforum.ru/ turbo-pascal/ thread130841.html
Здравствуйте! Помогите пожалуйста выполнить задание, только нужно очень срочно(экзамен):umnik: Заранее спасибо!
Turbo Pascal Необходимо добавить поддержку переменных
Ребят помогите плиз. Есть программа которая делает рассчет с матрицей введенной, но считает тока числовые матрицы. необходимо сделать чтобы считала матрицу 3 на 3 к примеру с некими в ней переменными вместо чисел например 1 2 3 b 5 4 с 3 5 вот какую матрицу...
Turbo Pascal матрица подскажите пожалуйста Дана действительная матрица размера nxm. Получить последовательность b1,…,bn, где bk – это А) Сумма наибольшего и наименьшего из значений элементов k-й строки; Б) число отрицательных элементов в k-й строке; В) произведение квадратов тех элементов k-й строки, модули которых принадлежат отрезку . https://www.cyberforum.ru/ turbo-pascal/ thread130790.html
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
17.05.2010, 12:00 0

Конкатенация файлов через букву - Turbo Pascal - Ответ 732221

17.05.2010, 12:00. Показов 767. Ответов 3
Метки (Все метки)

Ответ

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.


Вернуться к обсуждению:
Конкатенация файлов через букву Turbo Pascal
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
17.05.2010, 12:00
Готовые ответы и решения:

Конкатенация файлов
Даны два файла; ft:&quot;знак&quot; и f2:&quot;генератор&quot;. Конкатенировать файлы f1 и f2 через букву &quot;о&quot;, записав результат в файл f1. Вывести...

Конкатенация записей из двух файлов
Даны два файла записей F1 и F2 типа Товар=record наименование:string;цена:word;end; Сформировать файл записей REZ, в который поместить...

Конкатенация текстовых файлов
Подскажите примерно как действовать. Нужно соединить данные(строки)из 2ух текстовых файлов и результат вывести в выходной файл. В...

3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
17.05.2010, 12:00
Помогаю со студенческими работами здесь

Конкатенация текстовых файлов
Доброго времени суток. Нужно объединить заданное количество текстовых файлов. Результат слияния заданных файлов должен быть отображен через...

Список файлов и конкатенация строк
Здравствуйте. В этом коде std::vector&lt;std::string&gt; Files(0); // вектор с файлами ...

Конкатенация + int в строку + открытие множества файлов
Заводил тему, но удовлетворительного ответа не получил. Вот что получилось: #include &quot;stdafx.h&quot; #include...

Конкатенация строк через функцию
Пытался я сделать программу, которая соединяет две строки. Сделал я все это так порнографично (через функцию), так-как такое домашнее...

Конкатенация через фигурные скобки
Что не так делаю? $key = 'logo'; $object-&gt;get{ucfirst($key)()} // Call to undefined function Logo() get не склеивается...

0
Новые блоги и статьи
Что означает знак восклицания в TypeScript
hw_wired 14.02.2025
TypeScript - удивительный язык программирования, который предоставляет множество возможностей для работы с типами данных. Особый интерес вызывает оператор утверждения ненулевого значения, который. . .
Как свернуть/скрыть секции кода в Visual Studio Code
hw_wired 14.02.2025
Ежедневно мы работам с файлами, содержащими сотни и тысячи строк кода. Навигация по такому объему становится настоящим испытанием, особенно когда нужно быстро найти нужный метод или переменную. . . .
Автоматическое создание файла requirements.tx­t в Python
hw_wired 14.02.2025
Дружелюбная среда для разработки на Python, один из самых широко используемых языков программирования, состоит не только из самого кода, но и целого ряда важных компонентов. И если вы когда-нибудь. . .
Передача переменных окружения в контейнер Docker
hw_wired 14.02.2025
При работе с Docker контейнерами возникает необходимость передать различные настройки и конфигурационные параметры - от строк подключения к базам данных до API ключей. И хотя можно жестко прописать. . .
Отличия Constructor и ngOnInit в Angular
hw_wired 14.02.2025
Разработка компонентов в Angular - непростая задача, особенно когда дело доходит до правильной инициализации и управления их жизненным циклом. Каждый разработчик рано или поздно сталкивается с. . .
Ошибка "Transport security has blocked a cleartext HTTP" в iOS
hw_wired 14.02.2025
В iOS-разработке часто возникают неожиданные препятствия, и одним из самых распространенных является сообщение об ошибке "Transport security has blocked a cleartext HTTP". Эта ошибка появляется,. . .
Ошибка "Cleartext HTTP traffic not permitted" в Android
hw_wired 13.02.2025
При разработке Android-приложений можно столнуться с неприятной ошибкой "Cleartext HTTP traffic not permitted", которая может серьезно затруднить отладку и тестирование. Эта проблема особенно. . .
Изменение версии по умолчанию в NVM
hw_wired 13.02.2025
Node Version Manager, или коротко NVM - незаменимый инструмент для разработчиков, использующих Node. js. Многие сталкивались с ситуацией, когда разные проекты требуют различных версий Node. js,. . .
Переименование коммита в Git (локального и удаленного)
hw_wired 13.02.2025
Git как система контроля версий предоставляет разработчикам множество средств для управления этой историей, и одним из таких важных средств является возможность изменения сообщений коммитов. Но зачем. . .
Отличия Promise и Observable в Angular
hw_wired 13.02.2025
В веб-разработки асинхронные операции стали неотъемлимой частью почти каждого приложения. Ведь согласитесь, было бы странно, если бы при каждом запросе к серверу или при обработке больших объемов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru