@echo off
setlocal enabledelayedexpansion
:head
cls
set /p n=請輸入元素個數(shù)：
set /a n-=1
if !n! leq 0 goto :head
rem 頭結(jié)點(diǎn)名稱
set h=!random!!time::=!
rem ----------
set /p %h%.data=
set str=!random!!time::=!
set %h%.next=!str!
if !n!==0 set %h%.next=nil
for /l %%a in (1,1,!n!) do (
for %%b in (!str!) do (
 set /p %%b.data=
 if %%a neq !n! (set %%b.next=!random!!time::=!) else (set %%b.next=nil)
 set str=!%%b.next!
)
)
echo head id^:!h!
echo !%h%.data!
echo next^:!%h%.next!
echo=
if !%h%.next!==nil goto :f
set str=!%h%.next!
:x
rem 按順序顯示出鏈表中的各個元素
 for %%b in (!str!) do (
echo id^:%%b
echo !%%b.data!
echo next^:!%%b.next!
echo=
set str=!%%b.next!
if !str!==nil goto :f
 )
goto :x
:f
endlocal
pause
nclick="copycode($('code0'));">復(fù)制代碼