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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: Google [Bot]


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

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