04.06.2011, 15:15 | #1 (permalink) |
Новичок
Регистрация: 04.06.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите исправить ошибку в программе
Program Schitalka; Type Children = ^Child; Child = record Prev : integer; Next : Children; end; Var Circl, p, Temp : Children; i, j, NumName : integer; text : string; Function NumSlov(Var S : string) : integer; Var i, d : integer; Begin d := 0; i := 1; while i < Length(S) do begin while S[i] = ' ' do Inc(i); while S[i] <> ' ' do Inc(i); d := d+1; end; if S[Length(S)] = '' then d := d-1; NumSlov := d; End; Procedure AddName(Var Old, Young : Children); Begin Young^.Next := Old; Young^.Prev := Old^.Prev; Old^.Prev^.Next := Young; Old^.Prev := Young; End; Procedure DeleteName(Var Old : Children); Begin Old^.Next^.Prev := Old^.Prev; Old^.Prev^.Next := Old^.Next; End; Begin new(Circl); Circl^.Next := Circl; Circl^.Prev := Circl; Circl^.Name := ''; writeln('Считалка'); writeln('Введите текст считалки >'); readln(text); writeln('Сколько человек в кругу? >'); readln(NumName); if NumName>0 then begin write('Введите ',i,'-е имя: '); new(p); readln(p^.name); temp := head^.next; while temp <> head do temp := temp^.next; AddName(temp, p); end; for i := 1 to NumName-1 do begin temp := head; for j := 1 to NumSlov(text) do begin temp := temp^.next; if temp^.name = '' then temp :=temp^.next; end; writeln(temp^.name, '- вышел'); deleteName(temp); end; writeln(head^.next^.name, '- остался'); end. |
04.06.2011, 15:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные темы вам очень помогут Open GL, пожалуйста, помогите исправить ошибки в программе Помогите найти ошибку в программе Не могу найти ошибку в программе. Паскаль |
05.06.2011, 18:20 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Сочувствую. Ждите - может быть, кто-нибудь и знает. Я, к сожалению, в игрушках типа стеков, списков и вообще динамических структур, увы, не силен. Знаю очень поверхностно, максимум на уровне работы с массивами.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|