Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 1
Регистрация: 01.12.2011
Сообщений: 11
1

Написать процедуру, которая данные из двух файлов записывает в один

08.01.2012, 20:42. Показов 1135. Ответов 1
Метки нет (Все метки)

Добрый вечер, помогите решить такую задачу:
Нужно написать процедуру, которая из двух файлов записывает в один. Например Пример1.txt и Пример2.txt запишутся в файл Пример3.txt при помощи функции append. Процедура должна содержать один параметр стрингового типа (имя текстового файла,т.е. procedure (name:string)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2012, 20:42
Ответы с готовыми решениями:

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

Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат
Написать процедуру, которая возводит максимальное из двух переданных ей чисел в квадрат, а...

Написать программу, которая записывает в файл данные
Написать программу, которая записывает в файл данные, полученные из другого файла и так или иначе...

Создать структуру и написать функцию, которая записывает в бинарный файл данные о сканере из структуры
Сама структура имеет вид: struct scan_info{ char model; // наименование модели int...

1
59 / 59 / 52
Регистрация: 19.11.2010
Сообщений: 218
09.01.2012, 07:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Я бы так решил:
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
43
44
45
46
47
48
49
Program Proced;
Uses crt;
Type Fil=Text;
Var F1,F2:Fil;
Procedure Make(name:string);
Var F:Fil;
    st:string;
Begin
   Assign(F,name);
   ReWrite(F);
   ReSet(F1);
   ReSet(F2);
   While not Eof(F1) do
   begin
      ReadLn(F1,st);
      WriteLn(F,st);
   end;
   Close(F);  //* Эти 2 строчки можно удалить
   Append(F); //*
   While not Eof(F2) do
   begin
      ReadLn(F2,st);
      WriteLn(F,st);
   end;
   
   Writeln('Получилось: ');
   ReSet(F);
   While not Eof(F) do
   begin
      ReadLn(F,st);
      WriteLn(st);
   end;
   Close(F);
end;
Var s1,s2,s3:string;
Begin
   Write('Введите имя 1ого файла ');
   ReadLn(S1);
   Write('Введите имя 2ого файла ');
   ReadLn(S2);
   Write('Введите имя 3его файла ');
   ReadLn(S3);
   Assign(F1,s1);  Assign(F2,s2);
   ReSet(F1);      ReSet(F2);
   Make(S3);
   Close(F1);
   Close(F2);
 readLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2012, 07:26

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

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

Написать процедуру, которая преобразует текст, оставляя только один пробел между словами
Доброе время суток. помогите пожалуйста.. Нужно Написать процедуру, которая преобразует текст,...

Написать программу,которая запрашивает у пользователя фамилию,дату рождения,номер группы,номер телефона и записывает их в данные
Написать программу,которая запрашивает у пользователя фамилию,дату рождения,номер группы,номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.