14858

#    Wprowadzanie wyrazów $n = 3;

for (Si = 1; Si <= Sn; Si = Si + 1)

{

print "Podaj wyraz numer Si Sx = <STDIN>: chomp($x);

@wyrazy = (@wyrazy, $x);

I

if (SwyrazyfO] eq Swyrazyl 1 )&& Swyrazyf 1 ] eq Swyrazy(2))

{

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

}

else

{

@wyrazy_sort = sort(@ wyrazy);

Si = 0;

foreach Swyraz(@wyrazy_sort)

{

print $ wyraz, $i++!=$#wyrazy_sort?^M, ":".\n";

}

i_

N liczb pokaz najmniejsza

#! /usr/bin/perl

#    Najmniejsza liczba z N liczb

#    Wprowadzanie liczby N print "Podaj ilosc liczb: ";

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

#    Wprowadzanie liczb

for (Si = 1; Si <= Sn; Si = Si + 1) print "Wprowadź liczbę Si: ";

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

@ liczby = (@ liczby, $x);

}

#    Sortowanie listy

@liczby_sort = sort({Sa <=> Sb} @liczby);

print "Największa liczba to Sliczby_sort[Sn-l ]. \n"_

równanie kwadratowe #! /usr/bin/perl

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

Sa = <STDIN>; chomp(Sa); while (Sa == 0)

{

print "Podałeś niepoprawna wartość liczby a. Spróbuj jeszcze raz:";