Записать в файл каждую нечетную строку в обратном порядке

@Кита · Регистрация: 15.06.2017

Помогите. Срочно надо.Дан текстовый файл T («2.txt»). Сформировать из данного новый файл, …записав каждую нечетную строку в обратном порядке.

@Cyborg Drone · 03.07.2018, 23:55

Не по теме:

Сообщение от Кита

Срочно надо

Как могло так получиться, что срочно надо? Желаю Вам, чтобы в дальнейшем Вы делали так, чтобы никаких таких срочностей у Вас не возникало.

Pascal

const
  iname = 'd:\2.txt';
  oname = 'd:\3.txt';
 
var
  t, f: text;
  s: string;
  i, k: integer;
  c: char;
 
begin
  assign(t, iname);
  reset(t);
  assign(f, oname);
  rewrite(f);
  k := 0;
  while not eof(t) do
    begin
      inc(k);
      readln(t, s);
      if odd(k)
        then for i := 1 to length(s) div 2 do
          begin
            c := s[i];
            s[i] := s[length(s) - i + 1];
            s[length(s) - i + 1] := c
          end;
      writeln(f, s)
    end;
  close(t);
  close(f)
end.

@Кита 0 / 0 / 0 Регистрация: 15.06.2017 Сообщений: 63
		1
	Записать в файл каждую нечетную строку в обратном порядке 03.07.2018, 19:55. Показов 877. Ответов 1 Метки нет (Все метки) Помогите. Срочно надо.Дан текстовый файл T («2.txt»). Сформировать из данного новый файл, …записав каждую нечетную строку в обратном порядке. __________________ Помощь в написании контрольных, курсовых и дипломных работ здесь 0

Опции темы