информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Сетевые кракеры и правда о деле ЛевинаПортрет посетителяАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Microsoft Authenticator прекращает... 
 Очередное исследование 19 миллиардов... 
 Оптимизация ввода-вывода как инструмент... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
если вы видите этот текст, отключите в настройках форума использование JavaScript
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
[Perl] правильный вариант 04.02.03 12:56  Число просмотров: 992
Автор: whiletrue <Роман> Статус: Elderman
<"чистая" ссылка>
Я бы еще скобки в if-е расставил. А то не ясно у чего бльше приоритет у ==, у && или у +,
<programming>
[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-е расставил. А то не ясно у чего бльше приоритет у ==, у && или у +,
1




Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2025 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach