ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) Как делить ноль.
8 сообщений из 8, страница 1 из 1
(PERL) Как делить ноль.
    #33229486
fl00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fl00
Участник
В таком действии:

Код: plaintext
 my $proc_ver61_70_2_0=$count_ver61_70_2_0/$count_ver61_70* 100 ;


если один из count равен нулю выдает ошибку:

Код: plaintext
Illegal division by zero

Как это можно исправить?
...
Рейтинг: 0 / 0
23.08.2005, 11:23
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229521
Фотография Berkut
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Berkut
Участник
> Как это можно исправить?
Проверить "если делитель не равен нулю, то разделить" ;))
...
Рейтинг: 0 / 0
23.08.2005, 11:37
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229545
fl00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fl00
Участник
Berkut>
Проверить "если делитель не равен нулю, то разделить" ;))

А по другому никак? ))

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
my $proc_ver1_10_2_0=$count_ver1_10_2_0/$count_ver1_10* 100 ;
 my $proc_ver1_10_2_1=$count_ver1_10_2_1/$count_ver1_10* 100 ;
 my $proc_ver1_10_1_2=$count_ver1_10_1_2/$count_ver1_10* 100 ;
 my $proc_ver1_10_0_2=$count_ver1_10_0_2/$count_ver1_10* 100 ;
 
 my $proc_ver11_20_2_0=$count_ver11_20_2_0/$count_ver11_20* 100 ;
 my $proc_ver11_20_2_1=$count_ver11_20_2_1/$count_ver11_20* 100 ;
 my $proc_ver11_20_1_2=$count_ver11_20_1_2/$count_ver11_20* 100 ;
 my $proc_ver11_20_0_2=$count_ver11_20_0_2/$count_ver11_20* 100 ;
 
 my $proc_ver21_30_2_0=$count_ver21_30_2_0/$count_ver21_30* 100 ;
 my $proc_ver21_30_2_1=$count_ver21_30_2_1/$count_ver21_30* 100 ;
 my $proc_ver21_30_1_2=$count_ver21_30_1_2/$count_ver21_30* 100 ;
 my $proc_ver21_30_0_2=$count_ver21_30_0_2/$count_ver21_30* 100 ;
 
 my $proc_ver31_40_2_0=$count_ver31_40_2_0/$count_ver31_40* 100 ;
 my $proc_ver31_40_2_1=$count_ver31_40_2_1/$count_ver31_40* 100 ;
 my $proc_ver31_40_1_2=$count_ver31_40_1_2/$count_ver31_40* 100 ;
 my $proc_ver31_40_0_2=$count_ver31_40_0_2/$count_ver31_40* 100 ;
 
 my $proc_ver41_50_2_0=$count_ver41_50_2_0/$count_ver41_50* 100 ;
 my $proc_ver41_50_2_1=$count_ver41_50_2_1/$count_ver41_50* 100 ;
 my $proc_ver41_50_1_2=$count_ver41_50_1_2/$count_ver41_50* 100 ;
 my $proc_ver41_50_0_2=$count_ver41_50_0_2/$count_ver41_50* 100 ;
 
 my $proc_ver51_60_2_0=$count_ver51_60_2_0/$count_ver51_60* 100 ;
 my $proc_ver51_60_2_1=$count_ver51_60_2_1/$count_ver51_60* 100 ;
 my $proc_ver51_60_1_2=$count_ver51_60_1_2/$count_ver51_60* 100 ;
 my $proc_ver51_60_0_2=$count_ver51_60_0_2/$count_ver51_60* 100 ;
 
 my $proc_ver61_70_2_0=$count_ver61_70_2_0/$count_ver61_70* 100 ;
 my $proc_ver61_70_2_1=$count_ver61_70_2_1/$count_ver61_70* 100 ;
 my $proc_ver61_70_1_2=$count_ver61_70_1_2/$count_ver61_70* 100 ;
 my $proc_ver61_70_0_2=$count_ver61_70_0_2/$count_ver61_70* 100 ;
 
 my $proc_ver71_80_2_0=$count_ver71_80_2_0/$count_ver71_80* 100 ;
 my $proc_ver71_80_2_1=$count_ver71_80_2_1/$count_ver71_80* 100 ;
 my $proc_ver71_80_1_2=$count_ver71_80_1_2/$count_ver71_80* 100 ;
 my $proc_ver71_80_0_2=$count_ver71_80_0_2/$count_ver71_80* 100 ;
 
 my $proc_ver81_90_2_0=$count_ver81_90_2_0/$count_ver81_90* 100 ;
 my $proc_ver81_90_2_1=$count_ver81_90_2_1/$count_ver81_90* 100 ;
 my $proc_ver81_90_1_2=$count_ver81_90_1_2/$count_ver81_90* 100 ;
 my $proc_ver81_90_0_2=$count_ver81_90_0_2/$count_ver81_90* 100 ;
 
 my $proc_ver91_99_2_0=$count_ver91_99_2_0/$count_ver91_99* 100 ;
 my $proc_ver91_99_2_1=$count_ver91_99_2_1/$count_ver91_99* 100 ;
 my $proc_ver91_99_1_2=$count_ver91_99_1_2/$count_ver91_99* 100 ;
 my $proc_ver91_99_0_2=$count_ver91_99_0_2/$count_ver91_99* 100 ;
...
Рейтинг: 0 / 0
23.08.2005, 11:43
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229629
.-.-.-.-.-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.-.-.-.-.-
Гость
fl00 Berkut>
Проверить "если делитель не равен нулю, то разделить" ;))

А по другому никак? ))

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
my $proc_ver1_10_2_0=$count_ver1_10_2_0/$count_ver1_10* 100 ;
 my $proc_ver1_10_2_1=$count_ver1_10_2_1/$count_ver1_10* 100 ;
 my $proc_ver1_10_1_2=$count_ver1_10_1_2/$count_ver1_10* 100 ;
 my $proc_ver1_10_0_2=$count_ver1_10_0_2/$count_ver1_10* 100 ;
 
 my $proc_ver11_20_2_0=$count_ver11_20_2_0/$count_ver11_20* 100 ;
 my $proc_ver11_20_2_1=$count_ver11_20_2_1/$count_ver11_20* 100 ;
 my $proc_ver11_20_1_2=$count_ver11_20_1_2/$count_ver11_20* 100 ;
 my $proc_ver11_20_0_2=$count_ver11_20_0_2/$count_ver11_20* 100 ;
 
 my $proc_ver21_30_2_0=$count_ver21_30_2_0/$count_ver21_30* 100 ;
 my $proc_ver21_30_2_1=$count_ver21_30_2_1/$count_ver21_30* 100 ;
 my $proc_ver21_30_1_2=$count_ver21_30_1_2/$count_ver21_30* 100 ;
 my $proc_ver21_30_0_2=$count_ver21_30_0_2/$count_ver21_30* 100 ;
 
 my $proc_ver31_40_2_0=$count_ver31_40_2_0/$count_ver31_40* 100 ;
 my $proc_ver31_40_2_1=$count_ver31_40_2_1/$count_ver31_40* 100 ;
 my $proc_ver31_40_1_2=$count_ver31_40_1_2/$count_ver31_40* 100 ;
 my $proc_ver31_40_0_2=$count_ver31_40_0_2/$count_ver31_40* 100 ;
 
 my $proc_ver41_50_2_0=$count_ver41_50_2_0/$count_ver41_50* 100 ;
 my $proc_ver41_50_2_1=$count_ver41_50_2_1/$count_ver41_50* 100 ;
 my $proc_ver41_50_1_2=$count_ver41_50_1_2/$count_ver41_50* 100 ;
 my $proc_ver41_50_0_2=$count_ver41_50_0_2/$count_ver41_50* 100 ;
 
 my $proc_ver51_60_2_0=$count_ver51_60_2_0/$count_ver51_60* 100 ;
 my $proc_ver51_60_2_1=$count_ver51_60_2_1/$count_ver51_60* 100 ;
 my $proc_ver51_60_1_2=$count_ver51_60_1_2/$count_ver51_60* 100 ;
 my $proc_ver51_60_0_2=$count_ver51_60_0_2/$count_ver51_60* 100 ;
 
 my $proc_ver61_70_2_0=$count_ver61_70_2_0/$count_ver61_70* 100 ;
 my $proc_ver61_70_2_1=$count_ver61_70_2_1/$count_ver61_70* 100 ;
 my $proc_ver61_70_1_2=$count_ver61_70_1_2/$count_ver61_70* 100 ;
 my $proc_ver61_70_0_2=$count_ver61_70_0_2/$count_ver61_70* 100 ;
 
 my $proc_ver71_80_2_0=$count_ver71_80_2_0/$count_ver71_80* 100 ;
 my $proc_ver71_80_2_1=$count_ver71_80_2_1/$count_ver71_80* 100 ;
 my $proc_ver71_80_1_2=$count_ver71_80_1_2/$count_ver71_80* 100 ;
 my $proc_ver71_80_0_2=$count_ver71_80_0_2/$count_ver71_80* 100 ;
 
 my $proc_ver81_90_2_0=$count_ver81_90_2_0/$count_ver81_90* 100 ;
 my $proc_ver81_90_2_1=$count_ver81_90_2_1/$count_ver81_90* 100 ;
 my $proc_ver81_90_1_2=$count_ver81_90_1_2/$count_ver81_90* 100 ;
 my $proc_ver81_90_0_2=$count_ver81_90_0_2/$count_ver81_90* 100 ;
 
 my $proc_ver91_99_2_0=$count_ver91_99_2_0/$count_ver91_99* 100 ;
 my $proc_ver91_99_2_1=$count_ver91_99_2_1/$count_ver91_99* 100 ;
 my $proc_ver91_99_1_2=$count_ver91_99_1_2/$count_ver91_99* 100 ;
 my $proc_ver91_99_0_2=$count_ver91_99_0_2/$count_ver91_99* 100 ;

1. учи математику (деление кажется в первом - третьем классе проходят)
2. учи программирование, в частности работу с массивами.
...
Рейтинг: 0 / 0
23.08.2005, 12:10
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229670
.-.-.-.-.-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.-.-.-.-.-
Гость
если бы использовался язык с поддержкой исключений, то выход был бы, но код все равно ужасен
...
Рейтинг: 0 / 0
23.08.2005, 12:19
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229696
fl00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fl00
Участник
.-.-.-.-.-.... но код все равно ужасен
Ты еще весь не видел)). Но пока получается только так. Намекни как лучше, я покопаюсь, переделаю...
...
Рейтинг: 0 / 0
23.08.2005, 12:27
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229728
Фотография 4m@t!c
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4m@t!c
Участник
fl00 , вам же уже подсказали - "Работа с МАССИВАМИ ".
P.S. Клавиши Ctrl, C, V еще не западают???;)))
----------------------------------------
Артисты не приехали, приехали цыгане
...
Рейтинг: 0 / 0
23.08.2005, 12:38
| Ответить | Цитировать | Написать  
(PERL) Как делить ноль.
    #33229735
fl00
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fl00
Участник
массивы так массивы.
Про клавиши не понял..
...
Рейтинг: 0 / 0
23.08.2005, 12:41
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) Как делить ноль.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=23&fpage=460&tid=1477717]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 208ms
total:  335ms
созд. / загр.: 335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]