Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) Как делить ноль. / 8 сообщений из 8, страница 1 из 1
23.08.2005, 11:23
    #33229486
fl00
fl00
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL) Как делить ноль.
В таком действии:

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


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