Помещение строки из файла в массив

@Kealfeyne · Регистрация: 08.02.2018

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

Дан текстовый файл. В нем записываются фамилия имя и возраст людей в столбик:
Фамилия Имя - возраст
Фамилия Имя - возраст
Нужен алгоритм, выводящий только фамилию и имя:
Фамилия Имя
Фамилия Имя
Желательно сделать это через массив. Вот моя попытка :

Pascal

while not eof(fil) do
      begin
        readln(fil,str);      
        str:=str+' ';
        while pos(' ', str) <> 0 do
          begin
            number:=number+1;
            famim[number]:=copy(str,1,pos(' ', str)-1);
            delete(str,1,pos(' ', str));
          end;
        writeln(famim[1],' ', famim[2]);

Выдает много фамилий первого человека в списке. Прошу помочь.

@Puporev · 08.02.2018, 16:36

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

Нужен алгоритм, выводящий только фамилию и имя:

Pascal

while not eof(fil) do
  begin
   readln(fil,str);    
   writeln(copy(str,1,pos('-',str))-2);
 end;

И зачем здесь массив?

@Kealfeyne · 08.02.2018, 20:58 **[ТС]**

Это только одна функция проги. В будущем планирую добавить еще информации о человеке, а без массива будет сложно. Пишет, что нельзя преобразовать string к integer.

@Kealfeyne 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 12
	08.02.2018, 20:58 [ТС]	3
	Это только одна функция проги. В будущем планирую добавить еще информации о человеке, а без массива будет сложно. Пишет, что нельзя преобразовать string к integer. 0

Опции темы