Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
2 / 2 / 2
Регистрация: 24.11.2012
Сообщений: 31
1

Запись разной информации в два файла

15.12.2012, 12:27. Показов 977. Ответов 9
Метки нет (Все метки)

Здравствуйте! У меня вопрос как сделать чтобы при вводе своего имени, имя записывалось в input.txt, а в output.txt писалось привет, имя

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test;
var 
 f : text;
 f2 : text;
 name : string;
begin
 writeLn('Введите ваше имя: ');
 readLn(name);
 assign(f, 'input.txt');
 assign(f2, 'output.txt');
 reset(f);
 rewrite(f2);
 writeLn(f, name);
 readLn(f);
 writeLn(f2, ' Привет!');
 close(f);
 close(f2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2012, 12:27
Ответы с готовыми решениями:

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

Объединить два одномерных массива разной длины
как объеденить два одномерных массива разной длины? Заранее спасибо!

Запись информации из файла в массив
Дан файл, который содержит 50 строк с числами, записанные через запятую Как создать массив,...

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

9
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
15.12.2012, 12:37 2
А файл input.txt пустой или как?
0
2 / 2 / 2
Регистрация: 24.11.2012
Сообщений: 31
15.12.2012, 12:50  [ТС] 3
Цитата Сообщение от Paster Fob Посмотреть сообщение
А файл input.txt пустой или как?
сначала да, но потом в него добавляется имя, введенное юзером
0
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.12.2012, 13:06 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program test;
var
 f,f2 : text;
 name : string[50];
begin
 writeLn('Введите ваше имя: ');
 readLn(name);
 assign(f, 'input.txt');
 assign(f2, 'output.txt');
 rewrite(f);
 rewrite(f2);
 writeLn(f, name);
 write(f2, ' Привет! ',name);
 close(f);
 close(f2);
end.
0
2 / 2 / 2
Регистрация: 24.11.2012
Сообщений: 31
15.12.2012, 13:45  [ТС] 5
а как сделать чтобы из input копировалось в output, или с данными из input можно было работать а результат выводился в output
0
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.12.2012, 13:59 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от liznyk42 Посмотреть сообщение
из input можно было работать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program test;
var
 f,f2 : text;
 name : string[50];
begin
 writeLn('Введите ваше имя: ');
 readLn(name);
 assign(f, 'input.txt');
 assign(f2, 'output.txt');
 rewrite(f);
 rewrite(f2);
 writeLn(f, name);//записали  в input.txt
 reset(f);//открыли для чтения input.txt
 read(f,name);//считали из  input.txt
 write(f2, 'Привет! ',name); //записали
 close(f);
 close(f2);
end.
0
2 / 2 / 2
Регистрация: 24.11.2012
Сообщений: 31
15.12.2012, 17:11  [ТС] 7
а как после чтения из одного файла скопировать это в другой файл
0
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
15.12.2012, 17:17 8
Цитата Сообщение от liznyk42 Посмотреть сообщение
а как после чтения из одного файла скопировать это в другой файл
скорей всего нужно просто считывать из первого и записывать во второй
0
2 / 2 / 2
Регистрация: 24.11.2012
Сообщений: 31
15.12.2012, 17:42  [ТС] 9
Цитата Сообщение от domovou2.0 Посмотреть сообщение
скорей всего нужно просто считывать из первого и записывать во второй
а можно код
0
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
16.12.2012, 10:25 10
Pascal
1
2
3
4
5
6
7
8
9
reset(f);
rewrite(f2);
while not eof(f) do
    begin
    readln(f,st);
    writeln(f2,st);
    end;
close(f);
close(f2);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2012, 10:25

Запись информации в определенное место файла
Добрый вечер форумчане! Необходим ваш совет. Нужно реализовать возможность записи информации в...

Запись, хранение и предоставление информации из файла
Изучаю С++, сначала я прочел книгу «С++ за 21 день», она мне дала хоть какое то представление о...

Считывание информации из txt файла и запись в dataGridView
В файле txt есть следующий текст: Name Vasya Image 4000 Number 7000 / Name Petya Image 1500...

Отображение файла на память (чтение и запись информации)
Короче нужно из одного файла переписать в другой используя отображение на память а у меня почему то...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru