Фамилия и инициалы

[BBagi]

Задан массив, состоящий из строк вида фамилия, имя, отчество студента, разделенных пробелом. Написать программу, для печати списка студентов с фамилией и инициалами.

Где-то видела это решение) а вот найти не могу еще разок. Очень прошу помочь. Завтра ГОСы учу теоррию осталась одна задача из 27 )) крыша уже просто съехала=)))))))) Умные мужчины помогите ^_^

[zetrix]

Эта функция получает строку из массива, а возвращает Фамилию и инициалы.

function fio(s:string):string;
begin
Result:=copy(s,1,pos(' ',s));
delete(s,1,pos(' ',s));
Result:=Result+s[1];
delete(s,1,pos(' ',s));
Result:=Result+' '+s[1];
end;

[BBagi]

А как грамотно вписать эту функцию в массив? просто не разу с этим не сталкивалась)))) ведь у нас в масиве допустим будет 6 строчек =))))))))))))))

[zetrix]

мда...

var a:array[1..6]of string;
i:byte;

function fio(s:string):string;   
begin  
Result:=copy(s,1,pos(' ',s));   
delete(s,1,pos(' ',s));   
Result:=Result+s[1];   
delete(s,1,pos(' ',s));   
Result:=Result+' '+s[1];   
end;  

begin
a[1]:='Неужели Сложно Было';
a[2]:='Самой Написать Этот;
//...
a[6]:='Код. Юная Программистка';

for i:=1 to 6 do writeln(fio(a[i]));
readln;
end.

[BBagi]

=)))) ну глаза в кучку уже сварачиваются))) а можно))) как нибуть покрасивее вот это оформить=)))

a[1]:=' я не Волшебник'
a[2]:=   'я ^_^ {очень смущенно}'
//...   
a[6]:='только учусь'

Через цыкл))))

Задаю вопросы и понимаю на сколько же они дурадские))))))))))
аж щеки от стыда краснеют))))))

[puporev]

Вот простенькое решение без функции, лень делать, да особо она здесь и не нужна.

uses crt;
var s,s1:array[1..50]of string;
    n,i:integer;
begin
clrscr;
writeln('Vvedite kolichectvo strok:');
readln(n);
for i:=1 to n do
   begin
    writeln('Stroka ',i);
    readln(s[i]);
    s1[i]:=copy(s[i],1,pos(' ',s[i]));//копируем фамилию с пробелом
    delete(s[i],1,pos(' ',s[i])); //удаляем ее с пробелом
    s1[i]:=s1[i]+s[i][1]+'. '; //добавляем первую букву имени, точку и пробел
    delete(s[i],1,pos(' ',s[i]));//удаляем имя с пробелом
    s1[i]:=s1[i]+s[i][1]+'.'; //добавляем первую букву отчества и точку
   end;
writeln;
writeln('Rezultat:');
for i:=1 to n do
writeln(s1[i]);
readln
end.