Abrogen
Убью нахер
- Регистрация
- 18.08.2010
- Сообщения
- 190
Знаю что не по адресу пришёл с эти вопросом, но может всё-таки есть народ знающие Delphi
Кто знает объясните, пожалуйста, как эта процерура работает. Я в списках-данных вообще ничего не понимаю, а скоро экзамен. :excl:
Код:
type
PoleSv = ^Auto;
Str = string[15];
Auto = record
MarcAuto : Str;
SpeedMax : real;
Next : PoleSv;
end;
procedure Init(var u : PoleSv);
var x, y : PoleSv;
i, n : integer;
begin
ReadLn(n);
u := Nil;
for i := 1 to n do
begin
New(y);
ReadLn(y^.MarcAuto);
ReadLn(y^.SpeedMax);
y^.Next := Nil;
if u = Nil Then
u := y
Else
x^.Next := y;
x := y;
end;
end;