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

Скопировать данную строку в конец файла

16.06.2015, 13:01. Показов 1020. Ответов 1
Метки нет (Все метки)

Составьте текстовый файл p разбитый на не пустые строки. Составьте программу копирования данной строки в конце файла. Срочно нужна
Заранее огромное спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2015, 13:01
Ответы с готовыми решениями:

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

Дан текстовый файл. Вставить в начало файла его последнюю строку, а в конец первую строку.
Помогите решить задание, заранее спасибо. Дан текстовый файл. Вставить в начало файла его...

Добавить в конец файла строку, содержащую количество строк исходного файла
Дан текстовый файл. Добавить в конец файла строку, содержащую количество строк исхлдного файла,...

Добавить в конец каждой строки файла Name1 соответствующую строку файла Name2.
Даны два текстовых файла с именами Name1 и Name2. Добавте в конец каждой строки файла Name1...

1
Модератор
8616 / 4293 / 2956
Регистрация: 17.08.2012
Сообщений: 13,649
16.06.2015, 17:38 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
50
const inp_file = 'text.txt';
      tmp_file = 'temp.tmp';
var f, g: text;
    i, k: word;
    s: string;
begin
  i := 0;
  assign(f, inp_file);
  reset(f);
  assign(g, tmp_file);
  rewrite(g);
  writeln('Strings of file:');
  writeln;
  while not eof(f) do
    begin
      inc(i);
      readln(f, s);
      writeln(i:3, ': ', s);
      writeln(g, s)
    end;
  writeln;
  repeat
    write('Enter string number [1..', i, ']: ');
    readln(k)
  until (k >= 1) and (k <= i);
  reset(f);
  i := 0;
  while not eof(f) do
    begin
      inc(i);
      readln(f, s);
      if i = k then break
    end;
  writeln(g, s);
  writeln('Complete, result file:');
  writeln;
  reset(g);
  while not eof(g) do
    begin
      readln(g, s);
      writeln(s)
    end;
  close(f);
  erase(f);
  close(g);
  rename(g, inp_file);
  writeln;
  write('Press <Enter> to exit');
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.06.2015, 17:38

Добавить строку S в конец файла
Люди плиз помогите с 2умя задачами!!! 1)Дано вещественное число - цена 1кг конфет.Вывести...

Создать программу, дописывающую в конец файла новую строку вида:"Количество слов файла равно..."
Дан текстовый файл (Создать в Блокноте). Создать программу, дописывающую в конец файла новую строку...

Преобразовать данную строку в строку из тех же букв, но с чередованием больших и малых
Помогите, пожалуйста:scratch: Задана строка из смеси строчных и заглавных букв. Преобразовать её...

Из заданого текста скопировать строку s в строку s1 n-количество раз
из заданого текста скопировать строку s в строку s1 n-количество раз


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

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

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