Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 51255
05.08.2006, 18:22
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, вот написал программку (см. в приложении), аля "угадай число". Понятно, что возможно я это сделал не очень эффективно, поэтому я обращаюсь к вам, что бы вы дали свои рекомедации, что можно было бы сделать лучше, что-либо усовершенствовать и более рационализировать прогу...
Спасибо...

Приложение:
#!/usr/bin/perl -w$num = int(rand(3));print "Угадай число от 1 до 3\n";$mynum="";OUT:while ($mynum ne $num) {$mynum=<STDIN>; chomp $mynum;if ($mynum eq $num) {print "Вы угадали. Хотите повторить?\n";} else {print "Вы ошиблись, хотите повторить?(y/n): ";}$ans =<STDIN>; chomp $ans;next if ($ans eq "y");last OUT;}print "Всего доброго!!!\n";

Обсуждение

Неизвестный
06.08.2006, 03:24
общий
это ответ
Здравствуйте, Lperw!

Вот видишь! Отлично у тебя все получилось ... Если немного переделать то что получилось у тебя, то будет примерно вот так:

<code>
#!/usr/bin/perl -w

do{
my $num = int(rand(3));
print "Угадай число от 1 до 3\n";
my $mynum="";
$mynum=<STDIN>; chomp $mynum;
if ($mynum eq $num) {
print "Вы угадали. Хотите повторить?\n";
}else{
print "Вы ошиблись, хотите повторить?(y/n): ";
}
my $ans =<STDIN>; chomp $ans;
}until $ans eq "n";
print "Всего доброго!!!\n";

</code>
Форма ответа