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

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

03.02.2014, 18:17. Показов 1948. Ответов 1
Метки нет (Все метки)

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

Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец строку из пят
Дан текстовый файл. Вставить в его начало строку, состоящую из пяти звездочек (*****), а в конец...

Дан текстовый файл ( определить слово с наибольшим количеством букв и вставить его на начало и конец строки)
Дан текстовый файл определить слово с наибольшим количеством букв и вставить его на начало и конец...

Дан текстовый файл, состоящий из нескольких строк. Поменять в нем местами первую и последнюю строку.
Дан текстовый файл, состоящий из нескольких строк. Поменять в нем местами первую и последнюю...

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

1
Модератор
9364 / 4724 / 3175
Регистрация: 17.08.2012
Сообщений: 14,840
04.02.2014, 00:33 2
Лучший ответ Сообщение было отмечено TaAccTikk как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var s, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  readln(i, s);
  while not(eof(i)) do
    begin
      readln(i, t);
      writeln(r, t)
    end;
  writeln(r, s);
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.
Добавлено через 2 часа 48 минут
Ох, нет. Это я первую строку поместил в конец файла. Так правильно:
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
const nam = 'c:\test.txt';
      tmp = 'c:\test.tmp';
 
var sf, sl, t: string;
    i, r: text;
 
begin
  assign(i, nam);
  reset(i);
  assign(r, tmp);
  rewrite(r);
  while not(eof(i)) do readln(i, sf);
  reset(i);
  readln(i, sl);
  writeln(r, sf);
  while not(eof(i)) do
    begin
      readln(i, t);
      if not(eof(i))
        then writeln(r, t)
        else writeln(r, sl)
    end;
  close(i);
  close(r);
  erase(i);
  rename(r, nam)
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.02.2014, 00:33
Помогаю со студенческими работами здесь

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

Даны два файла. Скопировать второй файл в начало первого. Удалить первую и последнюю строку во втором файле
Вот файл, но здесь не надо использовать readlines -тоесть сделать не применяя строк, дофига чего...

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

Дан непустой текстовый файл. Удалить из него первую строку.
Дан непустой текстовый файл. Удалить из него первую строку.


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

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

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