Vo1T
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: program test;
type
TPArrList = ^TArrList;
TArrList = record
Next: TPArrList;
Elem: Char;
end;
var
Ph: TPArrList;
P: TPArrList;
S: string;
I: Integer;
begin
New(Ph);
Ph^.Next := nil;
P := Ph;
ReadLn(S);
for I:=1 to Length(S) do
begin
New(P^.Next);
P := P^.Next;
P^.Elem := S[I];
end;
P^.Next := nil;
{Obraschenie k pervomu elementu spiska}
Ph := Ph^.Next;
S := Ph^.Elem;
WriteLn(S);
end. |
|
Всего записей: 312 | Зарегистр. 20-08-2008 | Отправлено: 15:36 05-12-2009 | Исправлено: Vo1T, 15:45 05-12-2009 |
|
