Подскажите пожалуйста решение задач через Perl с группами - If, For и While

@vladiSlava · Регистрация: 17.10.2014

IF
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

Комментарий модератора

Один вопрос - одна тема

@S_el · 17.10.2014, 20:54

vladiSlava, по правилам форума 1 вопрос - 1 тема.
1 задача:

Perl

my @array;
$array[0]=1;
$array[1]=5;
$array[2]=-2;
my $min=$array[0];
my $max=$array[0];
 
foreach(@array)
{
$min =$_ if($_ < $min);
$max =$_ if($_ > $max);
 
}
print "Min = $min \n";
print "Max = $max \n";
 
my @twoarray;
my $min1;
my $max1;
print "Input 3 numbers\n";
$count=0;
while(1)
{
    chomp($twoarray[$count]=<STDIN>);
    $min1 =$twoarray[$count] if($count eq 0);
    $max1 =$twoarray[$count] if($count eq 0);
    $min1 =$twoarray[$count] if($twoarray[$count] < $min1);
    $max1 =$twoarray[$count] if($twoarray[$count] > $max1);
    last if($count>=2);
    $count++;
}
print "Min = $min1 \n";
print "Max = $max1 \n";

volodin661 · 19.10.2014, 17:12

я тоже хочу сказать спасибо

форумчанину S_el за прекрасную иллюстрацию того, как не надо писать программы и в особенности программы на Perl, начиная с пассажа про правила форума, да и остальное всё было очень хорошо.

volodin661 5539 / 1682 / 291 Регистрация: 10.12.2013 Сообщений: 5,934
	19.10.2014, 17:12	3
	я тоже хочу сказать спасибо форумчанину S_el за прекрасную иллюстрацию того, как не надо писать программы и в особенности программы на Perl, начиная с пассажа про правила форума, да и остальное всё было очень хорошо. 0

Опции темы