Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Sting
0 / 0 / 1
Регистрация: 10.10.2009
Сообщений: 52
#1

Считалка. - Pascal

21.01.2010, 16:02. Просмотров 1591. Ответов 1
Метки нет (Все метки)

Задача: Игра, в кругу стоит определённое количество детей, играют в щеталку потом на выбор уберают 1-го ребёнка, и т.д., вывести номер последнего отсавшегося в игре ребёнка. Вот написал прогу но что-то она тупит.Проверьте плз, может что-то опдскажете.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program enykybe;
uses crt;
var s:string;
    i,n,m:integer;p:array[0..5] of integer;
begin
 clrscr;randomize;
 s:='11111';
 writeln(s);
 p[0]:=0;
 for i:=1 to 4 do
 begin
  p[i]:=random(5)+1;
  if p[i]=p[i-1] then
  repeat
  p[i]:=random(5)+1;
  until p[i]<>p[i-1];
  delete(s,p[i],1);
  insert('0',s,p[i]);
  writeln(s);
 end;
 writeln;
 writeln(s);
 readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2010, 16:02
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Считалка. (Pascal):

Считалка
В круг выстраивается N-человек (N&lt;50000). Начиная с первого, неизменно движутся...

"Считалка 2" составить программу
даны натуральные числа n,m. предполагая, что n человек вступают в круг и...

Считалка
Ввод: input.txt Вывод: output.txt Ребята собрались играть в прятки...

Считалка
На входе две строки. Посчитайте, сколько раз первая строка встречается в...

Считалка (двунаправленный список)
Здравствуйте)) Помоги пожалуйста с решением задачи &quot;считалка&quot;. все наверное в...

Считалка
Нужно реализовать Считалку Джозефуса, википедия не спасла..

1
Puporev
Модератор
54139 / 41772 / 28880
Регистрация: 18.05.2008
Сообщений: 98,320
21.01.2010, 16:24 #2

Не по теме:

Щиталка
А чего не щипалка?



Добавлено через 5 минут
Давать рандомные номера, это круто, 2 пятых, 3 вторых, а считать как? Вообще это известная задача Джозефуса, в инете куча инфы. Вот один из алгоритмов ее решения.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
var
a:array[1..100]of integer;
i,j,k,n:integer;
begin
clrscr;
{вводим количество}
repeat
write('N:');
readln(n);
until (n>1)and(n<=100);
{вводим счетчик}
repeat
write('K:');
readln(k);
until (k>0)and(k<n);
{раставляем всех по кругу}
for i:=1 to n do a[i]:=i;
{начальное значение}
i:=0;
repeat
{вычисляем новое значение}
i:=1+(i+k-1)mod n;
{удаляем человека из круга}
dec(n);
for j:=i to n do a[j]:=a[j+1];
{выводим результат хода}
for j:=1 to n do write(a[j],' ');
writeln;
{корректируем указатель}
dec(i);
until n=1;
{выводим результат}
writeln('Последним остался № ',a[1]);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2010, 16:24
Привет! Вот еще темы с решениями:

Считалка
Вокруг считающего стоят N (N ≤ 10 000) человек, из которых выделен первый, а...

Считалка
Даны натуральные числа m и n. Предполагается, что n человек встают в круг и...

Джозефус (считалка)
Доброго времени суток! Помогите пожалуйста реализовать задачу Джозефуса. Буду...

Считалка Дозефуса?
Доброго времени суток дорогие программисты! Есть три процедуры: Тип Type...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru