Задача на строки Опции

[andreynemov]

Помогите решить, буду благодарен...
Вот: Дан файл не более, чем из 100 строк. Каждая строка не более из 255 символов. Написать программу в TP чтобы строки и символы переставились местами...
Вот о чём речь:

a[1] abra
a[2] cada
.
.
.
a[] bra
Чтобы вывилось
a[]arb
.
.
.
a[2]adac
a[1]arba

Сообщение отредактировано: andreynemov - 13.06.2007 14:10

[Urnix]

andreynemov, задача детская.
Вот код.

var
  a:array[1..100] of string;
  i,j:integer;
  s,invers:string;
  f:text;
begin
  writeln('vvedite ima faila');
  readln(s);
  assign(f,s);
  reset(f);
  j:=0;
  while not eof(f) do
    begin
      inc(j);
      readln(f,s);
      invers:='';
      for i:=length(s) downto 1 do
        invers:=invers+s[i];
      a[j]:=invers;
    end;
  close(f);
  rewrite(f);
  for i:=j downto 1 do
    writeln(f,a[i]);
  close(f);
end.

Если твоя благодарность хочет выразится в денежном эквиваленте, стучи в личку.

Сообщение отредактировано: Urnix - 13.06.2007 14:52