20526

#    Sortowanie 3 wyrazów

#    Wprowadzanie wyrazów $n = 3;

for ($i = 1; $i <= $n; $i = $i + 1)

{

print "Podaj wyraz numer $i $x = <STDIN>; chomp($x);

@wyrazy = (@wyrazy, $x);

}

if ($wyrazy(0] eq $wyrazy[l]&& $wyrazy[l] eq $wyrazy[2])

{

print "Wprowadzono trzy razy $wyrazy[0). \n";

}

else

{

@wyrazy_sort = sort(@ wyrazy);

$i = 0;

foreach $wyraz(@wyrazy_sort)

{

print $wyraz, $i++!=$#wyrazy_sort?",

}

]_

N liczb pokaz najmniejsza

#! /usr/bin/perl

#    Najmniejsza liczba z N liczb

#    Wprowadzanie liczby N print "Podaj ilosc liczb:

$n = <STDIN>; chomp($n);

U Wprowadzanie liczb

for ($i = 1; $i <= $n; $i = $i + 1) print "Wprowadź liczbę $i:

$x = <STDIN>; chomp($x);

@liczby = (@liczby, $x);

}

#    Sortowanie listy

@liczby_sort = sort({$a <=> $b} @liaby); print "Największa liczba to $liczby_sort[$n-l]. \n" równanie kwadratowe #! /usr/bin/perl

#    Rozwiązywanie równania kwadratowego print "Podaj wartość a:";

$a = <STDIN>; chomp($a);