→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Perl, угадай число 
Автор Сообщение
Начинающий

Регистрация: 19.03.2010
Сообщения: 1
Языки:

Репутация: 0 [ ? ]
Сообщение Perl, угадай число
Модифицировать программу Угадай число так, что бы игра продолжалась, пока число не будет угаданно.

Текс програми Угадай число:

Код Perl:
#!/usr/bin/perl -w
$im_thinking_of=int(rand 10);
print "vvedite chislo ot 0 do 9:";
$guess=<STDIN>;
chomp $guess; #i Be забудьте удалить символ новой строка!
if ($guess>$im_thinking_of) {
print "Perebor! \n";
} elsif ($guess < $im_thinking_of) {
print "nedobor! \n";
}else{
print "Vi ugadali! Chislo= $guess";

}


19.03.2010 9:32
Профиль Отправить email
Начинающий

Регистрация: 14.06.2011
Сообщения: 1
Языки:

Репутация: 0 [ ? ]
Сообщение Re: Perl, угадай число


14.06.2011 16:53
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»