कंप्यूटर प्रोग्रामिंग/ऐरे/पर्ल
दिखावट
इस सबक में ऐरे का उदाहरण है आप इससे जान सकते है कि पर्ल प्रोग्रामिंग में किस प्रकार एक ऐरे का उपयोग होता हैं। कंप्यूटर प्रोग्रामिंग में ऐरे का उपयोग रैम में मेमोरी ब्लॉक बनाने में किया जाता हैं। ऐरे का उदाहरण चरो की शृंखला भी हो सकता है जिसमें 1-n तक चर होते है।
arrays.pl
[सम्पादन | स्रोत सम्पादित करें]#!/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();
कोशिश करो
[सम्पादन | स्रोत सम्पादित करें]निम्न कोड मुफ्त ऑनलाइन विकास के वातावरण में से एक में ऊपर कॉपी और पेस्ट करो या अपने खुद के कम्पाइलर/इंटरप्रेटर/आईडीई का उपयोग करें।