0 / 0 / 0
Регистрация: 29.12.2012
Сообщений: 12
1

Дана строка S и текстовый файл. Добавить строку S в начало и конец файла

23.06.2013, 10:21. Показов 10200. Ответов 5
Метки нет (Все метки)

Помогите решить данную задачу. Дана строка S и текстовый файл. Добавить строку S в начало конец файла
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2013, 10:21
Ответы с готовыми решениями:

Дана строка S и текстовый файл. Добавить строку S в конец файла
PascalABC Создание и отладка программы “Простой текстовый файл” Дана строка S и текстовый файл....

Дана строка S и текстовый файл. Добавить строку S в начало и конец файла
Дана строка S и текстовый файл. Добавить строку S в начало и конец файла.

Дана строка S и текстовый файл. Добавить строку S в конец файла
Дана строка S и текстовый файл. Добавить строку S в конец файла.

Дана строка S и текстовый файл.Добавить строку S в конец файла
Дана строка S и текстовый файл.Добавить строку S в конец файла.

5
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
23.06.2013, 11:14 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
Var
  s,s1,name: String;
  f,buf: Text;
BEGIN
Write('Введите полное имя файла: ');
Readln(name);
If FileExists(name) Then
begin
  Assign(f,name);
  Reset(f);
  Assign(buf,'buf.txt');
  Rewrite(buf);
  Write('Введите строку S: ');
  Readln(s);
  Writeln(buf,s);
  While not Eof(f) do
  begin
    Readln(f,s1);
    Writeln(buf,s1);
  end;
  Writeln(buf,s);
  Close(f);
  Close(buf);
  Erase(f);
  Rename(buf,name);
end
Else
Writeln('Файл не найден');
END.
0
0 / 0 / 0
Регистрация: 29.12.2012
Сообщений: 12
23.06.2013, 11:27  [ТС] 3
Что то не находит файла,все писал и создовал и его вписывал,все равно.А можно чтобы программа тоже сама этот файл делала?
0
3028 / 1914 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
23.06.2013, 11:34 4
Файл должен быть в той же папке, что и программа. А вписывать надо полное имя, т.е. в конце должно быть .txt

Добавлено через 4 минуты
Цитата Сообщение от Kanaeru Посмотреть сообщение
А можно чтобы программа тоже сама этот файл делала?
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
Var
  s,s1: String;
  f,buf: Text;
  n,i: Byte;
BEGIN
Assign(f,'1.txt');
Rewrite(f);
Write('Сколько строк записать в файл? ');
Readln(n);
Writeln('Введите строки в файл:');
For i:=1 to n do
begin
  Readln(s);
  Writeln(f,s);
end;
Assign(buf,'buf.txt');
Rewrite(buf);
Write('Введите строку S: ');
Readln(s);
Writeln(buf,s);
Reset(f);
While not Eof(f) do
begin
  Readln(f,s1);
  Writeln(buf,s1);
end;
Writeln(buf,s);
Close(f);
Close(buf);
Erase(f);
Rename(buf,'1.txt');
END.
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.06.2013, 11:34 5
Цитата Сообщение от Kodzaev Посмотреть сообщение
Файл должен быть в той же папке, что и программа.
Или указать полный путь к файлу.
0
0 / 0 / 0
Регистрация: 29.12.2012
Сообщений: 12
23.06.2013, 11:39  [ТС] 6
Всем большое спасибо,все работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2013, 11:39
Помогаю со студенческими работами здесь

Дана строка S и текстовый файл, добавить строку S в конец файла
Помогите пожалуйста решить!!!

Дана строка S и текстовый файл. Добавить строку S в начало файла
Text7. Дана строка S и текстовый файл. Добавить строку S в начало файла.

Дана строка S и текстовый файл. Добавить строку S в начало файла
Дана строка S и текстовый файл. Добавить строку S в начало файла.

Дана строка S и текстовый файл. Добавить строку S в начало файла.
Напишите пожалуйста программу!СПАСИБО! Дана строка S и текстовый файл. Добавить строку S в начало...


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

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

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