ввод-вывод строчного массива.

[Honey Bear]

Здравствуйте! Имеется задание: массив (10,25). Фамилии+ инициалы. Необходимо представить как 10 стрингов. В дальнейшем по заданию идет процедура сортировки, но это дело десятое. Мне не удается написать код, что бы паскаль хотя бы выводил это добро из файла. Получается либо выводит только одну строку, либо вообще только 10 символов вместо 25(длина стринга).

program strng;
var
    s: array [1..25] of string;
    t: string;
    i, j: integer;
    f, g: text;
begin
       assign (f, 'DAN2.INP');
       reset (f);
       assign (g, 'RES2.OUT');
       rewrite (g);
       for i:=1 to 10 do
begin
       read (f, s[i]);
       write (g, s[i]);
end;
       readln (f);
       writeln (g);
       for i:=1 o 10 do
begin
       write (g, s[i]);
end;
       close (f);
       close (g);
end.

В интернете задачи на стринги такого плана не нашел. Один знакомый сказал, что я не загнал их в массив. Но помочь разобраться у него времени нет. Умнее кода придумать пока не удалось, ввиду слабого понимания данной темы. Буду благодарен, если кто направит в нужную сторону мой, уже воспаленный, моск.

[Alex11223]

Дык для записи в файл используйте writeln, чтобы не в 1 строку. Или что? В первом файле как записаны они?

(10,25)

почему 10, 25?oO У вас, кстати, не [10, 25], а одномерный из 25 элементов. Или что это означает?

[Serge_Bliznykov]

или я не совсем понял задание, или это полнейший бред!

но, если я правильно понял, что требуется (хоть это и безумное задание), тогда попробуйте так:

var
  s: array[1..10] of string[25];
  i, j: integer;
  f, g: text;
begin
  assign(f, 'DAN2.INP');
  reset(f);
  assign(g, 'RES2.OUT');
  rewrite(g);
  for i := 1 to 2 do
  begin
    s[i] := '';
    for j:=1 to 25 do begin
      s[i] := s[i] + ' ';
      read(f, s[i][j]);
    end;
    Readln(f);
    writeln(g, s[i]);
  end;
  close(f);
  close(g);
  WriteLn('Done. Press Enter to quit.');
  Readln
end.

p.s. если я ошибся в своих предположениях, тогда расскажите подробнее, что у Вас дано и что нужно в итогое получить. Ну и пример исходного файла выложите. Не помешает...

[Honey Bear]

Задание:
Дан список группы в 10 человек в виде
ФАМИЛИЯ И.О.
20 симв. 4 симв.
Данные в одной строке отделяются друг от друга пробелами.
Отсортировать список по алфавиту с учетом инициалов методом сравнения “один со всеми”.

вариант решения:
С массивами STRING.

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

[Honey Bear]

Я думаю исходя из условия задания исходный файл - не проблема, я думаю. =Р

[Alex11223]

А где этот список дан? Из файла читать? В каком виде?

Иванов И.А.
Петров Б.В.
Сидоров Е.Ф.
...

?
Тогда читать строку из файла и потом это строку разделять на 2 (до пробела и после) и т.д. до конца файла. Или куда это вы записать хотите? В двухмерный массив?
http://pascal.guti.ru/files.html (текстовые файлы)

[Honey Bear]

Alex11223 честно скажу, вот тот текст задания, какой я выложил - есть оригинал. Т.е. я от себя добавить ни чего не могу, т.к. обладаю только данным условием.
Сами исходные данные находятся в текстовом файле DAN2.INP, он фигурирует в моем псевдокоде.)) Указанный Вами пример - есть правильный, т.к. При выполнении предыдущего варианта, файл ввода именно так и выглядел. Только заметьте, что инициалы должны быть по правому краю (условие).

[Alex11223]

Только заметьте, что инициалы должны быть по правому краю (условие).

А где они у меня?оО

Дык я так и не понял, что не получается. Записать в двухмерный массив [1..25, 1..2] строк эти данные из файла?

[Honey Bear]

Разобрался.

program strng;
type
    t=string [25] ;
    tt=array [1..10] of t;

var
   A: tt;
   i: integer;
   f, g: text;

{procedure sort}

begin
     assign (f, 'DAN2.INP');
     reset (f);
     assign (g, 'RES2.OUT');
     rewrite (g);
     for i:=1 to 10 do

begin
     readln (f, A[i]);
     writeln (g, A[i]);

end;
     readln (f);
     writeln (g);
     {begin
          SORT (A);
     end;}
               writeln (g, 'result======================');
for i:=1 to 10 do
begin
     writeln (g, A[i]);
end;
    close (f);
    close (g);
end.