tuleb neid kasutada ja vastavalt muuta. +-----+ +-----+ +-----+ |<---| 2 |<---| 3 |<---| 4 | +-----+ +-----+ +-----+ ^ ^ | | esimene viimane Eksisteerib veel üks eriline olukord, mida peab spetsiaalselt käsitlema. See on olek, kus järjekorras ei ole ühtegi inimest - järjekord on tühi. Järgnevalt esitan ma programmi, mis aitab pidada järjekorda numbrite abil. Program N8_3_P; Type PLyli = ^Lyli; { Järjekorra lüli viidatüüp } Lyli = record { Kirje järjekorra lüli info hoidmiseks } Number : LongInt; { Järjenumber } Eelmine : PLyli; { Viit eelmisele lülile } end; Jarjekord = record { Kirje järjekorra info hoidmiseks } Esimene : PLyli; { Viit järjekorras esimesele } Viimane : PLyli; { Viit järjekorras viimasele } end; Var JK : Jarjekord; V : Char; LV : PLyli; { Viit lülile }
+-----+ +-----+ +-----+ |<---| 2 |<---| 3 |<---| 4 | +-----+ +-----+ +-----+ ^ ^ | | esimene viimane Eksisteerib veel üks eriline olukord, mida peab spetsiaalselt käsitlema. See on olek, kus järjekorras ei ole ühtegi inimest - järjekord on tühi. Järgnevalt esitan ma programmi, mis aitab pidada järjekorda numbrite abil. Program N8_3_P; Type PLyli = ^Lyli; { Järjekorra lüli viidatüüp } Lyli = record { Kirje järjekorra lüli info hoidmiseks } Number : LongInt; { Järjenumber } Eelmine : PLyli; { Viit eelmisele lülile } end; Jarjekord = record { Kirje järjekorra info hoidmiseks } Esimene : PLyli; { Viit järjekorras esimesele } Viimane : PLyli; { Viit järjekorras viimasele } end; Var JK : Jarjekord; V : Char; LV : PLyli; { Viit lülile } N : LongInt; begin JK