Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ помогите исправить ошибку в проге
Автор: nasty555 6.06.2011 1:29
«Считалка». N ребят располагаются по кругу. Начав отсчёт от первого удаляют каждого K-го, смыкая круг после каждого удаления. Определите порядок удаления ребят из круга.
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.
Пожалуйста помогите, очень нужно. Здесь где-то ошибка, а где не знаю.
Заранее ОГРОМНОЕ СПАСИБО .
Автор: DarkWishmaster 6.06.2011 1:36
Цитата(nasty555 @ 5.06.2011 21:29) 
«Считалка». N ребят располагаются по кругу. Начав отсчёт от первого удаляют каждого K-го, смыкая круг после каждого удаления. Определите порядок удаления ребят из круга.
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.
Пожалуйста помогите, очень нужно. Здесь где-то ошибка, а где не знаю.
Заранее ОГРОМНОЕ СПАСИБО .
используй форум:
http://forum.pascal.net.ru/index.php?showtopic=28154&hl=%E4%E2%F3%F5%F1%E2%FF%E7%ED%FB%E9
Автор: best place to buy generic cialis 4.12.2021 11:43
Tadalafil 5mg Buy Online India
Автор: hydroxychloroquine for sale amaz 5.12.2021 2:18
Generic Propecia 10mg
Автор: do you need a prescription for p 19.12.2021 1:36
Priligy Ca Marche