algorytm.org

Implementacja w Perl

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Szukanie zadanego elementu - Implementacja w Perl
Ocena użytkownikóww: *****  / 1
SłabyŚwietny
Nadesłany przez Dominik Goździuk, 05 marca 2012 22:54
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.

szukanie_elementu.pl:
#! /usr/bin/perl

# szukanie elementu w tablicy
# Dominik Gozdziuk
# www.algorytm.org

@tab = (5,65,34,67,9,46,78,7,45,90,56,83,27);

print "Tablica: ";

foreach $zmienna (@tab) {
        print "$zmienna  ";
}

print "\nPodaj szukany element: ";
$szukana = <STDIN>;
chomp($szukana);

$ok = 0;

foreach $zmienna (@tab) {
        if ($szukana == $zmienna) {
                $ok = 1;
                break;
        }
}

if ($ok == 1) {
        print "Szukany element znajduje sie w tablicy\n";
}
else {
        print "Szukany element nie znajduje sie w tablicy\n";
}
Dodaj komentarz