19.10.2014, 17:16 | #1 (permalink) |
Member
Регистрация: 22.08.2013
Сообщений: 22
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача. Pascal
|
19.10.2014, 17:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Не стоит торопиться, давайте сначала изучим похожие топики Pascal, задача Задача. Pascal |
19.10.2014, 18:40 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
type PRec=^TRec;
TRec= record mint: integer; mnext: PRec; end; var L:PRec; procedure InitL(ai: integer); var p:PRec; begin New(p); p^.mint:=ai; p^.mnext:=L; L:=p; end; procedure AddL; var p1,p2:PRec; k:integer; begin if Assigned(L) then begin p1:=L; p2:=p1; While Assigned(p1^.mnext) do begin p2:=p1; p1:=p1^.mnext; end; end; k:=p1^.mint; p2^.mnext:=nil; Dispose(p1); InitL(k); end; procedure PrintL; var q:PRec; begin q:=L; While Assigned(q) do begin Write(q^.mint:4); q:=q^.mnext; end; end; var i: integer; begin L:=nil; for i:=1 to 10 do InitL(i); PrintL; Writeln; AddL; PrintL; Readln; end. Последний раз редактировалось Евгений; 19.10.2014 в 18:48 |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|