TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

         Практическое задание N 1. 32

            Написать и отладить программу с рекурсивным вызовом процедур:

            Ученики двух групп имеют порядковые номера от 1 до N в каждой группе.  В процедуре P_1 функцией Random определяются два числа "a" и "b" от 1 до N.  Если числа разные,  то два участника с номерами "a" и "b" выбывают,  оставшиеся ученики перенумеровываются от 1 до (N-1) и играют дальше (процедура P_1 повторяется с новыми значениями "a" и "b"),  иначе выводится значение совпавшего номера,  ученики получают приз и процедура P_2 предлагает играть снова.

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz