Форум программистов, компьютерный форум, киберфорум
Perl
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 4
1

Найти произведение всех целых чисел от А до В включительно

17.10.2014, 18:00. Просмотров 1053. Ответов 7
Метки нет (Все метки)

FOR
Даны два целых числа А и В (А<В). Найти произведение всех целых чисел от А до В включительно.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2014, 18:00
Ответы с готовыми решениями:

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
Помогите Пожалуйста

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
помогите

Найти произведение всех целых чисел от A до B включительно
если можно с циклом for и while Добавлено через 1 час 22 минуты сделал сам:)

Найти произведение всех целых чисел от А до В включительно
даны 2 целых числа А и В (А&lt;В). найти произведение всех целых чисел от А до В включительно.

7
2399 / 1803 / 395
Регистрация: 15.12.2013
Сообщений: 7,700
19.10.2014, 21:00 2
vladiSlava,
Perl
1
2
3
4
5
6
7
8
9
print "Input 2 numbers\n";
my $a = int(<STDIN>);
my $b = int(<STDIN>);
my $p=($a<$b)?1:die "Wrong input!";
for(my $i=$a;$i<=$b;$i++)
{
    $p=$p*$i;
}
print $p,"\n";
0
3111 / 1305 / 228
Регистрация: 10.12.2013
Сообщений: 4,496
20.10.2014, 05:44 3
форумчанин S_el,
чтоб было похоже на Перл5, надо тогда уж как-нибудь так:

Perl
1
2
3
4
5
6
7
use bigint;
print "Найти произведение всех целых чисел от А до В включительно\n";
print "Введите числа A и B (A<B  и A>0), но не слишком увлекайтесь B\n";
my $prod=1;
$prod *= $_  for <>..<>;
 
print $prod,v10;

а вот так на Perl6:

Perl
1
2
3
4
say "Найти произведение всех целых чисел от А до В включительно";
my $A = prompt "Введите числo A";
my $B = prompt "Введите числo B большее чем A, но не слишком увлекайтесь;
say[*] $A .. $B;
3
2399 / 1803 / 395
Регистрация: 15.12.2013
Сообщений: 7,700
20.10.2014, 10:21 4
volodin661, необычный код на 6-той версии.
А что касается 5-ой,то мой код для новичка будет намного понятнее.
0
0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 4
20.10.2014, 22:18  [ТС] 5
S_el, доброго времени суток! Спасибо за Ваши ответы! Можно ли с Вами связаться в какой-нибудь социальной сети?
0
S_el
20.10.2014, 22:24
  #6

Не по теме:

vladiSlava, пишите здесь в ЛС.

0
173 / 170 / 19
Регистрация: 31.08.2010
Сообщений: 569
03.11.2014, 12:33 7
Цитата Сообщение от volodin661 Посмотреть сообщение
а вот так на Perl6:
Perl
1
2
3
4
say "Найти произведение всех целых чисел от А до В включительно";
my $A = prompt "Введите числo A";
my $B = prompt "Введите числo B большее чем A, но не слишком увлекайтесь;
say[*] $A .. $B;
На Perl 5 можно следующим образом:

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl -w
use strict;
use warnings;
use bigint;
use feature 'say';
 
use IO::Prompt;
use List::Util 'reduce';
 
say 'Найти произведение всех целых чисел от A до B включительно.';
my $numA = prompt "Число A: ";
my $numB = prompt "Число B: ";
 
#my $prod = reduce { no warnings 'once'; $a * $b } $numA .. $numB;
# или
my $prod = reduce { our($a,$b); $a * $b } $numA .. $numB;
say $prod;
0
173 / 170 / 19
Регистрация: 31.08.2010
Сообщений: 569
04.11.2014, 17:45 8
Начиная с версии Perl 5.20 нет необходимости писать no warnings 'once' или our($a,$b):
Perl
1
my $prod = reduce { $a * $b } $numA .. $numB;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2014, 17:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Найти произведение всех целых чисел от А до В включительно
Даны два целых числа А и В (А&lt;В). Найти произведение всех целых чисел от А до В включительно....

Найти произведение всех целых чисел от A до B (включительно)
Даны два целых числа A и B (A&lt;B). Найти произведение всех целых чисел от A до B (включительно) ...

Найти произведение всех целых чисел от А до В включительно
Задано два целых А и В . (А&lt;В) найти произведение всех целых чисел от А до В включно. помогите...

Найти произведение всех целых чисел от A до B включительно
Даны два целых числа А и В (A &lt; B). Найти произведение всех целых чисел от A до B включитель-...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.