I Need You Help In Perl

السؤال الأول : أكتب برنامج بلغة بيرل عند تنفيذه يطلب إدخال :

أ‌- إدخال رقم 1 يطلب فيه البرنامج ادخال عناصر المصفوفة (N).

ب‌- ادخال الرقم 2 يطلب البرنامج ادخال عناصر المصفوفة السابقة .

ت‌- ادخال الرقم 3 يقوم البرنامج بتعديل كل رقم صفر بالمصفوفة إن وجد الى الرقم "واحد".

ث‌- ادخال الرقم 4 يقوم البرنامج بتحديد وطباعة اكبر عنصر بالمصفوفة وموقعه بالمصفوفة .

ج‌- ادخال الرقم 5 يقوم البرنامج بالبحث عن كل رقم زوجي ثم يقوم باضافة (1) للرقم الزوجي الاول و(2)للرقم الزوجي الثاني و(3) للرقم الزوجي الثالث ..... وهكذا .

ح‌- ادخال الرقم 6 يقوم البرنامج يجمع الارقام الفردية بالمصفوفة وطباعتها .

خ‌- ادخال الرقم 7 يقوم البرنامج بطباعة الاعداد الأولية في المصفوفة ان وجد.

د‌- ادخال الرقم 8 يقوم البرنامج بطلب ادخال عناصر في بداية المصفوفة وتستمر عملية الادخال حتى يدخل المستخدم كلمة (Stop) وبعدها يتم طباعة المصفوفة الجديدة.

ذ‌- ادخال الرقم 9 يقوم البرنامج بطباعة المصفوفة مرتبة بشكل تنازلي .

ر‌- ادخال الرقم 10 يقوم البرنامج بتعريف مصفوفة جديدة مترابطة من المصفوفة السابقة وطباعتها كما هي .

ز‌- ادخال الرقم 11 يقوم بطباعة المؤشرات والقيم للمصفوفة المترابطة كل على حد (سطر جديد).

س‌- ادخال الرقم 12 يقوم بانهاء تنفيذ البرنامج وطباعة الجملة التالية (end program).

السؤال الثاني : اكتب برنامج بلغة بيرل عند تنفيذه يقوم البرنامج بتحويل جميع الاعداد الفردية فقط الى الرقم 1 في مصفوفة يتم ادخالها مسبقا من قبل المستخدم وطولها 10 عناصر ان وجد ثم طباعة المصفوفة الجديدة .

السؤال الثالث : اكتب برنامج بلغة بيرل يطلب البرنامج عند تنفيذه بادخال الاسم ثم يقوم البرنامج بطباعة طول الاسم وطباعة الاسم بشكل متقطع (فراغات)ثم يطبع الاسم بشكل معكوس ، ثم يطلب البرنامج ادخال حرف وبعد الادخال يقوم البرنامج بالبحث عن الحرف وان وجد يطبع انه وجده وان لم يجده يطبع انه لم يجده.

مثال : عند تنفيذ البرنامج هكذا يطبع :

Enter your name : ahmad

Len=5

A1=a h m a d

A2=d a m h a

Enter any character : h

The ch is found in your name in index :1

السؤال الرابع : ادخل رقمين وحدد اذا كان الرقم الاصغر هو احد عوامل الرقم الاكبر .

السؤال الخامس : ادخل خمس ارفام ثم حدد عدد الاعداد الفردية وعدد الاعداد الزوجية .

السؤال السادس : ادخل رقم مكون من اربع خانات ثم حدد فيما اذا كان الرقم متماثل او لا .

مثال : 1221

1111

اين محاولاتك؟؟؟؟

مشكور اخي على اهتمامك انا عم احاول احل بس ما عم يزبط معي هي تجربتي بالسؤال الاول لكن بائت بالفشل

@array=();
print "enter (1) to determine the length of array\n";
print "enter (2) to enter the element of array\n";
print "enter (3) to find zeroes\n";
print "enter (4) to find the max\n";
print "enter (5)to find the even number\n";
print "enter (6) to find the sum of odd number\n";
print "enter (7) to find the prime numbers\n";
print "enter (8) to to add to array \n";
print "enter (9) to sort array descending \n";
print "enter (10) to creat associated array\n";
print "enter (11) to print a key & values of associated array\n";
print "enter (12) t0 exit \n";
$x=<STDIN>;
chomp $x;
if($x==1){
$n=<STDIN>;
chomp $n;
@array2=$array[$n];
}
elsif($x==2){
@array2=<STDIN>;
}
elsif($x==3){
print "@array2.\n";
}

الرجاء المساعدة ضروري جدا

SHO MA FI RDOD ?

مبدئيا من غير ما اجرب الكود

غلطتك في الكود هذا

if($x == 1 )

المفروض تكون

if($x eq 1)

وكذلك مع جميع الجمل الشرطيه ل if

في امان الله

مشكور اخي حازم مفيد ،انا معلوماتي ضعيفة جدا بالبيرل وبالتركيب تبعها عشان هيك انا لجأت لمساعدتكم والصراحة انا مستواي صفر فيها وحابب اتقوى فيها ويا ريت تتكرموا علي وتساعدوني بالاسئلة بكون شاكر لكم

الرجااااااء المساعدة ؟؟؟؟اين انتم اخواني ؟؟

الرجاء المساعدة هذه بعض محاولاتي

print "enter (1) to determine the length of array\n";
print "enter (2) to enter the element of array\n";
print "enter (3) to find zeroes\n";
print "enter (4) to find the max\n";
print "enter (5)to find the even number\n";
print "enter (6) to find the sum of odd number\n";
print "enter (7) to find the prime numbers\n";
print "enter (8) to to add to array \n";
print "enter (9) to sort array descending \n";
print "enter (10) to creat associated array\n";
print "enter (11) to print a key & values of associated array\n";
print "enter (12) t0 exit \n";
$inc = 0;
$x=<STDIN>;
chomp $x;
if($x eq 1){
print "Enter number of elemant of array ........\n";
$strnum=<STDIN>;
chomp($strnum);
}
$x=<STDIN>;
chomp $x;
if($x eq 2){
while ($inc < $strnum) {
if($inc < $strnum){
print 'Enter element: ';
}
chomp($input = <STDIN>);
push (@array, $input);
$inc++;
}
}
print "Array is:- @array\n";
$x=<STDIN>;
chomp $x;
if($x eq 7){
for $a (0 .. $#array){
		print " the prime numbers is:$array[$a], \n";
	}
}
$x=<STDIN>;
chomp $x;
if($x eq 4){
$max = $array[0];

	foreach $i (@array[1..$#array])
	{
		if ($i > $max)
		{
			$max = $i;
		}

	}
}
	print "The maximum is " . $max . "\n";
$sum=0;
 $x=<STDIN>;
chomp $x;
if($x eq 6){
foreach $i (@array){
if ($i % 2==1){
$sum=$sum+$i;
}
}
}
print "the sum of Single Number is: $sum\n";
$b=0;
$x=<STDIN>;
chomp $x;
if($x eq 8){
print "Add Elemant in Start of Array......\n";
while ($k ne'stop') {
chomp($k = <STDIN>);
unshift(@array, $k);
}
}
print "array now after adding is:@array\n";
$x=<STDIN>;
chomp $x;
if($x eq 9){
@array2=sort{$b<=>$a}@array;
}
print " Array after sort is :@array2\n";


$x=<STDIN>;
chomp $x;
if($x eq 10){
#%array3=@array2;
}
print " arry in hash =%array3\n";

هذا حل السؤال الرابع والخامس وضعتهم لتعم الفائدة على الجميع

حل السؤال الرابع :

print("enterfirst number\n");
$x = <STDIN>;
chop($x);
print("enter second number\n");
$z = <STDIN>;
chop($z);
if($x > $z){
if($x % $z == 0){
print("number2 iis less than number1 7 one of number1 divisors\n");}
else{
print("number2 is less than number1 but not one of number1 divisors\n");}}
else{
if($z % $x == 0){
print("number1 is less than number2 & one of number2 divisors\n");}
else{
print("number1 is less than  number2 but not one of number2 divisors\n");}}

حل السؤال الخامس :

for ($i=1; $i<=5;$i++){
print "enter number:$i\n";
$x=<STDIN>;
chomp($x);
if($x % 2==0){
$y+=1;
}
else{
$z+=1;
}
}
if ($y !=0){
print "number of even is =$y\n";
}
else{
print " there is no even number \n";
}
if ($z!=0){
print "number of odd is =$z\n";
}
else{
print "there is no odd number \n";
}

الرجاء المساعدة في حل باقي الاسئلة لتعم الفائدة على الجميع ولنقوي قسم البيرل ويزداد الاقبال عليه

السلام عليكم

شو الظاهر ما حد بدو يساعد !!؟؟؟؟

وينكم يا جماعة ؟؟؟شو وين الردود؟؟ حاسس حالي حاطت اسئلة تعجيزية ، الرجاء المساعدة

السلام عليكم ورحمة الله وبركاته ، مشكورين ما ساعدتوني لكن الحمدلله دبرت اموري وحليتهم بنفسي

والان اضع الحل بين ايديكم حتى تعم الفائدة على الجميع وأي من طلاب البيرل بيلاقي اكتر الافكار في هذه الحلول لاني ما اظن حد يعطيكم اصعب من هيك أسئلة هههههههههه

هذا حل السؤال الاول:-

print "enter (1) to determine the length of array\n";
print "enter (2) to enter the element of array\n";
print "enter (3) to find zeroes\n";
print "enter (4) to find the max\n";
print "enter (5)to find the even number\n";
print "enter (6) to find the sum of odd number\n";
print "enter (7) to find the prime numbers\n";
print "enter (8) to to add to array \n";
print "enter (9) to sort array descending \n";
print "enter (10) to creat associated array\n";
print "enter (11) to print a key & values of associated array\n";
print "enter (12) t0 exit \n";
$inc = 0;
$x=<STDIN>;
chomp $x;
if($x eq 1){
print "Enter number of elemant of array ........\n";
$strnum=<STDIN>;
chomp($strnum);
}
$x=<STDIN>;
chomp $x;
if($x eq 2){
while ($inc < $strnum) {
if($inc < $strnum){
print 'Enter element: ';
}
chomp($input = <STDIN>);
push (@array, $input);
$inc++;
}
}
print "Array is:- @array\n";

chomp($x=<STDIN>);
if($x eq 3){
foreach $i(@array[0..$#array]){
if(@array[$i]==0){
@array[$i]=1;
print " Now is after change Zero to One is:@array\n";
}
}
}
$x=<STDIN>;
chomp $x;
if($x eq 4){
$max = $array[0];

	foreach $i (@array[1..$#array])
	{
		if ($i > $max)
		{
			$max = $i;
		}

	}
}
	print "The maximum is " . $max . "\n";


chomp($x=<STDIN>);
if($x eq 5){
foreach $i (@array[0..$#array]){
if(@array[$i] % 2 == 0){
@array = $i +1;}

print("now is @array\n");}}


$sum=0;
 $x=<STDIN>;
chomp $x;
if($x eq 6){
foreach $i (@array){
if ($i % 2==1){
$sum=$sum+$i;
}
}
}
print "the sum of Single Number is: $sum\n";

$x=<STDIN>;
chomp $x;
if($x eq 7){
for($i = 1; $i <= $x; $i++){
for($w = 2; $w <-1"]=@array[$i]-1; $w++){
if(@array[$i] % $w == 1){
print(@array[$i],"is prime number\n");}
}
}
}

$x=<STDIN>;
chomp $x;
if($x eq 8){
print "Add Elemant in Start of Array......\n";
while ($k ne'stop') {
chomp($k = <STDIN>);
unshift(@array, $k);
}
shift(@array);
print " now is after add elemant is :@array\n";
}

$x=<STDIN>;
chomp $x;
if($x eq 9){
@array2=sort{$b<=>$a}@array;
}
print " Array after sort is :@array2\n";


$x=<STDIN>;
chomp $x;
if($x eq 10){
%array3=@array;
}

print %array3,"\n";

$x=<STDIN>;
chomp $x;
if($x eq 11){
while(($key,$value) = each(%array3)){
print"$key => $value\n";}}

$x=<STDIN>;
chomp $x;
if($x eq 12){
print"End program";
}

وهنا حل السؤال الثاني:-

$strnum=10;
while ($inc <= $strnum) {
if($inc < $strnum){
print 'Enter Ten Numbers: ';
chomp(my $input = <STDIN>);
push (@array, $input);
}
$inc++;
}
print "Array before change odd no to one is :@array\n";
@array2=@array;
foreach $i (@array2){
if ($i % 2==1){
$i=1;
}
}
print "Array after change odd number to one is: @array2\n";

وهنا حل السؤال الثالث:-

print" Please enter your name:";
chomp($z = <STDIN>);
$a = length($z);
print"len = $a\n";
for ($i = 1; $i <= $a; ++$i){
@a = split(/ /,$z);}
print(@a,"\n");
@b = reverse(@a);
print(@b);
print "Enter any Character Plz .....:";
$s=<STDIN>;
chomp $s;
$k=index($z,$s);
print "the Ch found in ...:$k\n";

طبعا حل السؤالين الرابع والخامس وضعتهم فوق من الاول خذوهم من فوق .

هذا حل السؤال السادس:-

chomp($no=<STDIN>);
@array=split(\ \ ,$no);
for($i=0;$i<=3;$i++){
if($array[0] == $array[3] && $array[1]==$array[2]){
print "it is Analoge No\n";
}
else{
print "there ir no Analoge No\n";
}

وشكرا لكم جميعا اتمنى انكم تستفيدوا من الحلول