Вывести записи файла на экран в виде: Имя Отчество Фамилия

@Mаrina · Регистрация: 27.06.2011

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

в каждой строке текстового файла STUDENTS.DAT записаны через пробел Фамилия,Имя и Отчество студента. Вывести их на экран в виде: Имя Отчество Фамилия

@Страдалецъ · 28.06.2011, 12:50

Примерно так, писал на коленке возможны ошибки:

Pascal

{открываете файл}
Assign(f, 'STUDENTS.DAT');
Reset(f); 
{читаете из файла построчно}
while not eof(f)
do begin
    ReadLn(f, s); 
    {последовательно вычленяем из строки слова} 
    Fam := Copy(s,1,Pos(' ',s)-1);   
    Delete(s,1,Pos(' ',s)+1); 
    Ima := Copy(s,1,Pos(' ',s)-1);   
    Delete(s,1,Pos(' ',s)+1); 
    Otch := Copy(s,1,Length(s));
    {и выводим на экран в нужной последовательности полученные данные}    
    WriteLn(Ima,Otch,Fam);
    end;

@Arcor · 28.06.2011, 13:18

только файл получится для одноразового пользования, лучше организовать без удаления я думаю

Добавлено через 6 минут
черт я кажется ступил.... извините пожалуйста... мы оперируем со считанной строкой из файла в программе, а не лезем в сам файл

Прошу прощения !

@Mаrina 0 / 0 / 0 Регистрация: 27.06.2011 Сообщений: 12
		1
	Вывести записи файла на экран в виде: Имя Отчество Фамилия 28.06.2011, 12:18. Показов 1640. Ответов 2 Метки нет (Все метки) в каждой строке текстового файла STUDENTS.DAT записаны через пробел Фамилия,Имя и Отчество студента. Вывести их на экран в виде: Имя Отчество Фамилия 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	28.06.2011, 13:18	3
	только файл получится для одноразового пользования, лучше организовать без удаления я думаю Добавлено через 6 минут черт я кажется ступил.... извините пожалуйста... мы оперируем со считанной строкой из файла в программе, а не лезем в сам файл Прошу прощения ! 1

Опции темы

Вывести записи файла на экран в виде: Имя Отчество Фамилия

Решение