Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[Perl] Объясните мне в чем ошибка... 03.02.03 21:27
Автор: XooX Статус: Незарегистрированный пользователь
|
В книжке встретил упражнение(раздел цикл в цикле): найти количество быков, коров и телят если всег о надо купить 100 голов за 100 рублей.
Вот сама программа:
#!/usr/bin/perl -w
for ($b=0; $b<=10; $b++) {
for ($k=0; $k<=20; $k++) {
for ($d=0; $d<=200; $d++) {
If ( $b+$k+$d=100 && 20*$b+10*$k+$d=200 ) {
print $b;
print $k;
print $n;
}
}
}
}
Выводит, мне что:
syntax error at perl1.pl line 5, near ") {"
syntax error at perl1.pl line 12, near "}"
Execution of perl1.pl aborted due to compilation errors.
Может быть у меня сам алгоритм неправильный?
|
|
[Perl] правильный вариант 04.02.03 11:21
Автор: ZaDNiCa <indeed ZaDNiCa> Статус: Elderman
Отредактировано 04.02.03 11:22 Количество правок: 1
|
#!/usr/bin/perl -w
for ($b=0; $b<=10; $b++) {
for ($k=0; $k<=20; $k++) {
for ($d=0; $d<=200; $d++) {
if ( $b+$k+$d==100 && 20*$b+10*$k+$d==200 ) {
print $b;
print $k;
print $d;
}
}
}
}
З.Ы. вывод лучше сделаьт таким
print "$b\n";
print "$k\n";
print "$d\n";
|
| |
[Perl] правильный вариант 04.02.03 12:56
Автор: whiletrue <Роман> Статус: Elderman
|
|
Я бы еще скобки в if-е расставил. А то не ясно у чего бльше приоритет у ==, у && или у +,
|
|
|
подробно о проекте
Анализ криптографических сетевых... 
