مثلث باسكال

achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
في: كانون الثاني 30, 2009, 08:03:34 صباحاً
...:: السلام عليكم ::...
  اعضاء المنتدى

 اقدم لكم اليوم مثلث باسكاللا أريد الإطالة عليكم ... لندخل إلى صلب الموضوع
 هذا هو كود سورس :
Module Module1
 Sub Main()
 Dim t(10, 10), i, j, n, k As  Integer
t(0, 0) = 1
 Console.Write("saisi la taille de pascal : ")
 n = Console.ReadLine
 While n > 10
 Console.Write("Erreur ...!! saisi une valeur entre 1 et 10 : ")
 n = Console.ReadLine
 End While
For i = 1 To n
 k += 1
 For j = 1 To k
 t(i, j) = t(i - 1, j - 1) + t(i - 1, j)
 Console.Write("  " & t(i, j))
 Next
Console.WriteLine()
 Next
Console.ReadLine()
 End Sub
 End Module
 النتيجة




Ssoft

  • Hero Member
  • *****
    • مشاركة: 1410
    • مشاهدة الملف الشخصي
    • http://sabeur-academy.com
    • البريد الالكتروني
رد #1 في: كانون الثاني 30, 2009, 08:39:36 صباحاً
تسلم بارك الله فيك


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #2 في: كانون الثاني 30, 2009, 08:55:12 صباحاً
وفيك بركة ...............شكرا لمرورك


lucky girl

  • Hero Member
  • *****
    • مشاركة: 1151
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #3 في: كانون الثاني 30, 2009, 01:52:42 مسائاً
بــــــــــــــــارك الله فيك شكرااااااااااا أخي أشرف


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #4 في: كانون الثاني 30, 2009, 01:54:25 مسائاً
وفيك البركة ....................................شكرا لمرورك الطيب


مامي

  • Hero Member
  • *****
    • مشاركة: 1140
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #5 في: كانون الثاني 30, 2009, 04:59:28 مسائاً


achraf.mouni

  • Hero Member
  • *****
    • مشاركة: 2439
    • مشاهدة الملف الشخصي
    • البريد الالكتروني
رد #6 في: شباط 01, 2009, 02:54:20 مسائاً
وفيك بركة شكرا لمرورك الطيب