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 c='?' then x:=2;	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. Для матрицы с большим таких строк, найти среднее геометрическое нечетных элементов. Ввести с клавиатуры строку текста и удалить все согласные буквы. При решении задач использовать процедуры и функции, операторы модулей(CRT и другие) это сделать одной... 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 до конечного значения x(n) с постоянным шагом hx , т.е. x=x0 (hx ) xn . f(x)=\begin{cases}\frac{2x+1}{x}, &\text{ if } x<-1; \\ 2-{x}^{2}, & \text{ if } -1\leq x<2 \\ -3, & \text{ if }...	Turbo Pascal Найти число букв "y" в слове х, стоящих на нечетных местах составить программу для подсчета числа букв <y> в слове х састоящих на не четных местах Паскаль https://www.cyberforum.ru/ turbo-pascal/ thread605114.html

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,550

Записей в блоге: 1

14.06.2012, 09:32

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

14.06.2012, 09:32. Показов 1148. Ответов 1

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

Ответ

Вот короче я свой написал...

Pascal

Var f,g,h:text;
    s:string;
Begin
    Assign(f,'a.txt');Reset(f);
    Assign(g,'b.txt');Reset(g);
    Assign(h,'c.txt');Rewrite(h);
    While not Eof(f) do
     Begin
      readln(f,s);
      writeln(h,s);
     End;
    While not Eof(g) do
     Begin
      readln(g,s);
      writeln(h,s);
     End;
    Close(f);Close(g);Close(h);
    writeln('Формирование окончено!');
    readln;
End.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.06.2012, 09:32

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.06.2012, 09:32

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

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

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

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

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

Наверх