• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Z3vil

اعضاء جدد
  • عدد المشاركات

    4
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن Z3vil

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 12/31/1985

معلومات الملف الشخصي

  • الجنس ذكر
  1. Perl او Python

    1000% ولهدا لايجب عليك تعلمه :) ، لأن البداية ستكون سهلة، ومن بعد سيصبح الأمر صعب عند OO style تعلم مبادء البرمجة ، ومن بعد سيصبح كل شيء سهل
  2. لغز حسابى

    السلام عليكم ... لقد اعتقدت أنه موضوع جديد لهدا لم اقرأ الرسائل أخرى لكي لا أفسد على نفسي متعة التحدي ولكن كان ممتعا فكرتي الأساسية وهي : إستعمال أكبر رقم ممكن مع أصغر زوج أرقامٍ ممكن لأقترب من قيمة "1" ومنه 9/12 هو الأنسب والبحت عن عددين جمعهما يساوي 0.25 ، لقد ارتكبت خطأ ، أردت في بادئ الأمر أن أجمع فقط الأرقام القابلة للقسمة على 5 متل 0.125 لا كني لم احصل على أي حل فقمت بحدفها ليجاد جميع الحلول : فلم أجد إلا واحدا #!/usr/bin/perl -w use strict; sub ln { print @_,"\n"; } ln "example : 5/34 + 7/68 + 9/12 = " . (5/34 + 7/68 + 9/12) ; my %data = (); for( 1..9 ) { for my $x10 ( 1..9 ) { next if $_ == $x10; for my $x1( 1..9 ) { next if $_ == $x1 || $x10 == $x1; my $tmp = $_ / ($x10 * 10 + $x1 ); #if( $tmp=~/(5|0)$/ ) { $data{"$_/$x10$x1"} = $tmp ; } } } } foreach my $ky ( sort keys %data ) { ln "$ky : $data{$ky}" } my %results = (); foreach my $ky1 (sort keys %data ) { foreach my $ky2 ( sort keys %data ) { next if $ky1 eq $ky2; my @tmpky1 = split //, $ky1; next if $ky2 =~ /($tmpky1[0]|$tmpky1[2]|$tmpky1[3])/; foreach my $ky3 ( sort keys %data ) { next if $ky1 eq $ky3 || $ky2 eq $ky3; my @tmpky2 = split //, $ky2; next if $ky3 =~ /($tmpky1[0]|$tmpky1[2]|$tmpky1[3])/ || $ky3 =~ /($tmpky2[0]|$tmpky2[2]|$tmpky2[3])/; my $tmp = $data{$ky1} + $data{$ky2} + $data{$ky3}; do{ $results{"$ky1 + $ky2 + $ky3"} = $tmp ; ln "$ky1 + $ky2 + $ky3 = $tmp";} if $tmp == 1 ; } } ln "$ky1 ..." } while (my ($ky,$vl) = each(%results)) { ln "$ky : $vl" } __END__ 5/34 + 9/12 + 7/68 : 1 5/34 + 7/68 + 9/12 : 1 7/68 + 9/12 + 5/34 : 1 9/12 + 7/68 + 5/34 : 1 7/68 + 5/34 + 9/12 : 1 9/12 + 5/34 + 7/68 : 1 سلام
  3. أخي الكريم لم تقل أين تخزن هده الملاحضات (في قاعدة بيانات ، أو ... مدا ) لنستطيع تخيل طبيعة البرنامج والمطلوبة منك ولو بشكل زجئي ومن أبسط الطرق ، إضافة button (قرء) (9ori2) في فورم الموضف ، فكل ملاحضة لم تقرأ يجب اضرها له سلام
  4. فكره جميله قمت بتجربته بنجاح ^_^