Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Kirsach
0 / 0 / 0
Регистрация: 11.10.2017
Сообщений: 3
#1

Игра в мяч. - Pascal ABC

23.10.2017, 16:54. Просмотров 319. Ответов 1
Метки нет (Все метки)

Задача 1. Игра в мяч
Дети встали в круг и бросают друг другу мяч. Известно, что каждый ребёнок бросает мяч всегда одному и тому же ребёнку, например, первый ребёнок бросает всегда седьмому, второй ребёнок всегда бросает третьему, и так далее. Известно, у какого ребёнка находится мяч в начале игры. Требуется определить, у какого ребёнка будет мяч после заданного количества бросков.

Входные данные
В первой строке записываются целые числа n – количество детей, a – номер ребёнка, у которого находится мяч в начале игры, и m – количество бросков мяча (2 ≤ n ≤ 1000, 1 ≤ a ≤ n, 0 ≤ m ≤ 1000000). Во второй строке содержится n целых чисел k1, k2, …, kn, где ki – номер ребёнка, которому бросает мяч ребёнок номер i (1 ≤ ki ≤ n, ki ≠ i).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2017, 16:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Игра в мяч. (Pascal ABC):

Скачущий мяч
Нужна анимация прыгающего на плоскости мяча:)

Желательно обычный мяч
Помогите создать простую графику в паскале! Желательно обычный мяч. За ранее...

Анимация, человек кидает мяч!
Здравствуйте, мне нужна программа: человечек кидает мяч в кольцо (баскетбол),...

Нарисовать мальчика, кидающего мяч в кольцо
Нарисовать мальчика, кидающего мяч в кольцо. Нарисовал через 3 изображения, a...

Анимация. Мальчик, который набивает мяч на ногах
3.и мальчик который набивает мяч на ногах.:good:

Как сделать анимацию, чтобы фигуры перекидывали мяч друг другу?
Как сделать анимацию, чтобы фигуры перекидывали мяч друг другу?

1
AndrewBeletskiy
32 / 32 / 45
Регистрация: 26.10.2016
Сообщений: 83
Завершенные тесты: 2
23.10.2017, 17:41 #2
Лучший ответ Сообщение было отмечено Kirsach как решение

Решение

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
Program pr;
 
var n:integer;
    a:integer;
    m:longint;
    k: array [1..1001] of integer;
    
procedure input();
var i: integer;
begin
    readln(n, a, m);
    for i:=1 to n do
    begin
        read(k[i]);
    end;
end;
function next(current: integer): integer;
begin
    next := k[current];
end;
procedure output();
var i: longint;
    current: integer;
begin
    current := a;
    for i:=1 to m do
    begin
        current := next(current);
    end;
    writeln(current);
end;
 
BEGIN
    input();
    output();
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2017, 17:41
Привет! Вот еще темы с решениями:

Дан файл f, содержащий сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т
Дан файл f, содержащий сведения об игрушках: указывается название игрушки...

Дан массив записей, содержащих сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, констру
Дан массив записей, содержащих сведения об игрушках: указывается название...

забить мяч в ворота
Помогите забить мяч в варота! После пусть выйдет надпись гоол! Очень надо...

Изобразить мяч, который прыгает
Есть тут 2 задачки , графику в паскале я знаю на уровне рисования...


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

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

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