सामग्री पर जाएँ

कंप्यूटर प्रोग्रामिंग/ऐरे/पर्ल

विकिविश्वविद्यालय से

इस सबक में ऐरे का उदाहरण है आप इससे जान सकते है कि पर्ल प्रोग्रामिंग में किस प्रकार एक ऐरे का उपयोग होता हैं। कंप्यूटर प्रोग्रामिंग में ऐरे का उपयोग रैम में मेमोरी ब्लॉक बनाने में किया जाता हैं। ऐरे का उदाहरण चरो की शृंखला भी हो सकता है जिसमें 1-n तक चर होते है।

#!/usr/bin/perl

// यह  पम ांतरण ि  रदरि करन  ि एर  उपय करत 

sub build_c //बिल्डसी फंक्शन
{
    $size = $_[0];

    my @c;
    my $index;

    for ($index = 0; $index <= $size; $index += 1) 
    {
        push(@c, $index * 9 / 5 + 32);
    }
    
    return @c;
}

sub build_f //बिल्डएफ फंक्शन
{
    $size = $_[0];

    my @f;
    my $index;

    for ($index = 0; $index <= $size; $index += 1) 
    {
        push(@f, ($index - 32) * 5 / 9);
    }
    
    return @f;
}

sub display_array //डिस्प्लेऐरे फंक्शन
{
    my ($name, @array) = @_;
    my $index;
    
    for ($index = 0; $index <= @array - 1; $index += 1) 
    {
        print $name . "[" . $index . "] = " . $array[$index], "\n";
    }
}

sub find_temperature //फाइन्डटेम्परेचर फंक्शन
{
    my $c = $_[0];
    my @c = @$c;
    my $f = $_[1];
    my @f = @$f;
    
    my $temp;
    my $size;
    
    $size = minimum($#c, $#f);
    do 
    {
        print "Enter a temperature between 0 and ". $size . "\n";
        $temp = <>;
        chomp($temp);
    } while $temp < 0 || $temp > $size;
    print $temp . "° Celsius is " . $c[$temp] . "° Fahrenheit\n";
    print $temp . "° Fahrenheit is " . $f[$temp] . "° Celsius\n";
}

sub minimum //मिनिमम फंक्शन
{
    my $value1 = $_[0];
    my $value2 = $_[1];
    my $result;
    
    if ($value1 < $value2) 
    {
        $result = $value1;
    }
    else
    {
        $result = $value2;
    }
    
    return $result
}

sub main() //मुख्य फंक्शन
{
    my @c;
    my @f;
    
    @c = build_c(100);
    @f = build_f(212);
    
    display_array("C", @c);
    display_array("F", @f);
    find_temperature(\@c, \@f);
}

main();

निम्न कोड मुफ्त ऑनलाइन विकास के वातावरण में से एक में ऊपर कॉपी और पेस्ट करो या अपने खुद के कम्पाइलर/इंटरप्रेटर/आईडीई का उपयोग करें।