Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Определить сумму квадратов элементов второй строки массива https://www.cyberforum.ru/ turbo-pascal/ thread605251.html Заполнить с клавиатуры двумерный массив на 20 элементов. Определить сумму квадратов элементов второй строки массива	С клавиатуры вводятся действительные числа и последовательно суммируются. Когда их сумма превысит 150, найти сумму введенных чисел. Turbo Pascal С клавиатуры вводятся действительные числа и последовательно суммируются. Когда их сумма превысит 150, найти сумму введенных чисел. Оператор должен быть WHILE
Turbo Pascal Произведение всех целых чисел от A до B включительно Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно. Оператор должен быть for https://www.cyberforum.ru/ turbo-pascal/ thread605246.html	Turbo Pascal Оператор else изменить на if https://www.cyberforum.ru/ turbo-pascal/ thread605243.html Оператор else изменить на if uses crt; var x,y : integer; begin readln (x,y); if(x>0)and(y>0) then write('I') else if (x<0)and(y>0) then write('II') else if (x<0)and(y<0) then write('III')
Turbo Pascal Оператор if изменить на randomize Оператор if изменить на randomize : var x,y:integer; c:char; begin write('VV napravlenie (C - sever,Z-zapad,I0-I0r,B-Bostok): '); read(c); if c='?' then x:=0; if c='?' then x:=1; if...	Turbo Pascal Исправить ошибку в математическом тексте: tg(x)=cos(x)/sin(x) https://www.cyberforum.ru/ turbo-pascal/ thread605225.html Написать программу,испровляющую ошибку в математическом тексте : tg(x)=cos(x)/sin(x).
Turbo Pascal Вычислить в каждой матрице количество строк, где все элементы кратны 2 и не кратны 3 Прошу помочь решить задачу: даны 2 матрицы А и В. Вычислить в каждой матрице количество строк, где все элементы кратны 2 и не кратны 3. Для матрицы с большим таких строк, найти среднее... https://www.cyberforum.ru/ turbo-pascal/ thread605130.html	Turbo Pascal Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника Зная длины трех сторон треугольника, вычислить площадь и периметр треугольника.
Turbo Pascal Решение квадратного уравнения ax2+bx+c=y https://www.cyberforum.ru/ turbo-pascal/ thread605125.html Написать программу решения квадратного уравнения ax2+bx+c=y.	Turbo Pascal Вывести три числа в порядке возрастания Вывести три числа в порядке возрастания. https://www.cyberforum.ru/ turbo-pascal/ thread605124.html
Табулирование функции. Цикл с постусловием Turbo Pascal Для всех вариантов заданий разработать алгоритм и программу, имеющих структуру цикла с постусловием и осуществляющих табулирование заданной функции при изменении аргумента x от начального значения x0...	Turbo Pascal Найти число букв "y" в слове х, стоящих на нечетных местах составить программу для подсчета числа букв <y> в слове х састоящих на не четных местах Паскаль https://www.cyberforum.ru/ turbo-pascal/ thread605114.html

Alex_Che

0 / 0 / 0

Регистрация: 14.06.2012

Сообщений: 6

Слияние 2х файлов в третий файл - Turbo Pascal - Ответ 3164185

14.06.2012, 09:22. Показов 1146. Ответов 1

Метки (Все метки)

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

Составить программу сцепления двух файлов с созданием третьего файла
Т.е. первый файл записывается в третий, а далее второй файл записывается в третий.

Pascal

var
fil1, fil2, fil3 : text;
i:integer;
begin
Assign(fil1, 'd:\t1.txt');
Assign(fil2,'d:\t2.txt');
Assign(fil3,'d:\t3.txt');
Reset(fil1);
Reset(fil2);
ReWrite(fil3);
begin
while not Eof(fil1) do
begin
read(fil1,??);
end;
while not Eof(fil2) do
begin
read(fil2,??);
end;
writeln(fil3,??);
writeln(fil3,??);
end;
close(fil1);
close(fil2);
close(fil3);
end.

код кривой, извините

Вернуться к обсуждению:
Слияние 2х файлов в третий файл Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.06.2012, 09:22

Готовые ответы и решения:

Даны два численных файла. Выполнить слияние этих файлов. Сохранить упорядоченно по возрастанию в третий файл исключая повторения
Добрый день. Прблемка следущая: я написал программку для слияния двух файлов в третий((((Даны два...

Выполнить слияние двух рассортированных бинарных файлов в третий упорядоченный файл
Доброго времени суток уважаемые форумчане!!!! У меня есть следующая задача - Выполнить слияние...

Файл: Слияние файлов
Есть два текста, в которых записано последовательности положительных целых чисел по возрастанию....

Слияние элементов файлов F1 и F2 в файл F3
Дано два файла F1 и F2, каждый с которых содержит числа, благоустроенные за ростом. Разработать...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.06.2012, 09:22

Помогаю со студенческими работами здесь

Записать в третий файл все компоненты файлов А и В
задачи по файлам. 1. Даны текстовые файлы А и В, содержащие символы. Записать в третий файл все...

Записать в третий файл одинаковые числа из двух файлов
имеется файл g и файл f с целыми числами. надо в файл h записать одинаковые числа из двух...

Слияние двух стеков в третий
Нужен код вот этой программы : Разработать программу слияния двух стеков, содержащих возрастающую...

Сравнить содержимое двух файлов и совпадающую информацию вывести в третий файл
Нужен толчок, только начали изучать как работать с файлами. Первое задание и я застряла, нужно...

Наверх