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

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

19.11.2019, 17:41. Показов 1988. Ответов 5
Метки нет (Все метки)

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

Создать новый текстовый файл, записав в него перевернутые строки исходного файла
дан текстовый файл.создать новый текстовый файл,записав в него перевернутые строки исходного файла:...

Создать новый текстовый файл, содержащий k последних строк исходного файла
Дано число k (< 10) и текстовый файл, содержащий более k строк. Создать новый текстовый файл,...

Файлы. Создать новый текстовый файл, содержащий К последних строк исходного файла
Дан текстовый фаил содержащий более К строк. Создать новый текстовый фаил содержащий К последних...

Записать в новый текстовый файл последнее слово каждой строки исходного файла
мне дана задача: Записать в новый текстовый файл последнее слово каждой строки исходного файла. Я...

5
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
19.11.2019, 18:21 2
Лучший ответ Сообщение было отмечено UT20 как решение

Решение

Взято отсюда: Создать новый текстовый файл, записав в него перевернутые строки исходного файла
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  f, g: text;
  s, ss: string;
  i: byte;
 
begin
  assign(f, 'in.txt');
  assign(g, 'out.txt');
  reset(f);
  rewrite(g);
  while not (eof(f)) do
  begin
    ss := '';
    readln(f, s);
    ss := s[length(s)];
    writeln(g, ss);
  end;
  close(f);
  close(g);
end.
1
0 / 0 / 0
Регистрация: 05.10.2019
Сообщений: 9
19.11.2019, 19:35  [ТС] 3
У меня не работает это(
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
19.11.2019, 19:36 4
Цитата Сообщение от ZX Spectrum-128 Посмотреть сообщение
assign(f, 'in.txt');
Файл создан?
0
0 / 0 / 0
Регистрация: 05.10.2019
Сообщений: 9
19.11.2019, 19:44  [ТС] 5
Да,у меня сначала высветилось, что i не используется нигде, я ее убрала, а потом он вообще ничего не делает , и ошибок вроде нет,но и ничего не запускает и не выводит
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
19.11.2019, 19:49 6
Откройте файл out.txt.
Результат в нем.

Вам же нужно было
Цитата Сообщение от UT20 Посмотреть сообщение
Создать новый текстовый файл
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2019, 19:49
Помогаю со студенческими работами здесь

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

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

Файл: Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки файла, а в конце строки - согласные
Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки...

Создать новый строковый файл, содержащий все строки исходного файла наибольшей длины
Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла...


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

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

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