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

@UT20 · Регистрация: 05.10.2019

Author24 — интернет-сервис помощи студентам

Очень нужна помощь

@ZX Spectrum-128 · 19.11.2019, 18:21

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

Pascal

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.

@UT20 · 19.11.2019, 19:35 **[ТС]**

У меня не работает это(

@ZX Spectrum-128 · 19.11.2019, 19:36

Сообщение от ZX Spectrum-128

assign(f, 'in.txt');

Файл создан?

@UT20 · 19.11.2019, 19:44 **[ТС]**

Да,у меня сначала высветилось, что i не используется нигде, я ее убрала, а потом он вообще ничего не делает , и ошибок вроде нет,но и ничего не запускает и не выводит

@ZX Spectrum-128 · 19.11.2019, 19:49

Откройте файл out.txt.
Результат в нем.

Вам же нужно было

Сообщение от UT20

Создать новый текстовый файл

@UT20 0 / 0 / 0 Регистрация: 05.10.2019 Сообщений: 9
		1
	Создать новый текстовый файл , каждая строка которого содержит последний символ соответствующей строки исходного файла 19.11.2019, 17:41. Показов 2209. Ответов 5 Метки нет (Все метки) Очень нужна помощь 0

@UT20 0 / 0 / 0 Регистрация: 05.10.2019 Сообщений: 9
	19.11.2019, 19:35 [ТС]	3
	У меня не работает это( 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	19.11.2019, 19:36	4
	Сообщение от ZX Spectrum-128 assign(f, 'in.txt'); Файл создан? 0

@UT20 0 / 0 / 0 Регистрация: 05.10.2019 Сообщений: 9
	19.11.2019, 19:44 [ТС]	5
	Да,у меня сначала высветилось, что i не используется нигде, я ее убрала, а потом он вообще ничего не делает , и ошибок вроде нет,но и ничего не запускает и не выводит 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	19.11.2019, 19:49	6
	Откройте файл out.txt. Результат в нем. Вам же нужно было Сообщение от UT20 Создать новый текстовый файл 0

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

Решение