هده المدونة اعترف لكم انها ليست ذات قيمة انا متاكد انكم لن تستفيدوا منها شيئا فلا تضيعوا وقتكم معي ماعداان كنتم مثلي في حالة تقاعد تقاعس الزمن/الوقت بالنسبة لكم كالسكر كالدهون الموصي باحراقها
الأحد، 10 مايو 2015
الخميس، 7 مايو 2015
ax^2+bx+c=0
Module Module1
Sub Main()
Console.WriteLine("ax^2+bx+c=0")
Dim a,
b, c, d, x1, x2 As Decimal
Console.Write("enter
parametre(a)?")
a = Console.ReadLine()
Console.Write("enter
parametre(b)?")
b = Console.ReadLine()
Console.Write("enter
parametre(c)?")
c = Console.ReadLine()
d = b ^ 2 - 4 * a * c
x1 = (-b + d ^ 0.5) / 2 * a
x2 = (-b - d ^ 0.5) / 2 * a
Console.WriteLine(" x1= " & x1 & " x2= " & x2)
Console.ReadLine()
End Sub
End Module
الأربعاء، 6 مايو 2015
الثلاثاء، 5 مايو 2015
x²+bx+c=0
Module Module1
Sub Main()
Console.WriteLine("ax^2+bx+c=0")
Dim a, b, c, x1, x2 As Decimal
Console.Write("enter parametre(a)?")
a = Console.ReadLine()
Console.Write("enter parametre(b)?")
b = Console.ReadLine()
Console.Write("enter parametre(c)?")
c = Console.ReadLine()
x1 = (-b + (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
x2 = (-b - (b ^ 2 - 4 * a * c) ^ 0.5) / (2 * a)
Console.WriteLine("x1=" & x1 & " x2= " & x2)
Console.ReadLine()
End Sub
End Module
الاثنين، 4 مايو 2015
C=A+B
Module Module1
Sub Main ()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Console.WriteLine ("écrire le premier numéro")
A = Console.ReadLine ()
Console.WriteLine ("écrire le deuxième nombre")
B = Console.ReadLine ()
Console.WriteLine ("le numéro de somme»)
C = A + B
Console.WriteLine (C)
Console.ReadLine ()
End Sub
DO WHILE__LOOP
Module Module1
Sub Main()
Dim value As Integer
Do While value < 30
value = value + 1
Console.WriteLine(value)
Loop
Console.ReadLine()
End Sub
End Module
الجمعة، 1 مايو 2015
الثلاثاء، 28 أبريل 2015
IBRAHIMABDELMAJID1
Module Module1
Sub Main()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Console.WriteLine("write the first number")
A = Console.ReadLine()
Console.WriteLine("write the second number")
B = Console.ReadLine()
Console.WriteLine(" the sum number is")
C = A + B
Console.WriteLine(C)
Console.ReadLine()
End Sub
End Module
السبت، 25 أبريل 2015
الجمعة، 24 أبريل 2015
Sub main()
Dim num1, num2, numsum As Integer
console.writeline ("input the firdt number?")
num1 = console.readline()
console.writeline ("input the second number?")
num2 = console.readline()
nnumsum = num1 + num2
console.writeline ("the sum =" & numsum)
End Sub
_________________________________________________________________________________
Module Module1
Sub Main()
Dim num1, num2, numsum As Integer
Console.WriteLine("input the firdt number?")
num1 = Console.ReadLine()
Console.WriteLine("input the second number?")
num2 = Console.ReadLine()
numsum = num1 + num2
Console.WriteLine(num1 & "+" & num2 & "=" & numsum)
Console.ReadLine()
End Sub
End Module
_________________________________________________________________________________
Module Module1
Sub Main()
Dim num1, num2, numsum As Integer
Console.WriteLine("input the firdt number?")
num1 = Console.ReadLine()
Console.WriteLine("input the second number?")
num2 = Console.ReadLine()
numsum = num1 + num2
Console.WriteLine(num1 & "+" & num2 & "=" & numsum)
Console.ReadLine()
End Sub
End Module
الأربعاء، 22 أبريل 2015
الثلاثاء، 21 أبريل 2015
الأحد، 19 أبريل 2015
السبت، 18 أبريل 2015
الخميس، 16 أبريل 2015
الأربعاء، 15 أبريل 2015
الثلاثاء، 14 أبريل 2015
الاثنين، 13 أبريل 2015
الأربعاء، 8 أبريل 2015
الثلاثاء، 7 أبريل 2015
السبت، 4 أبريل 2015
الأربعاء، 1 أبريل 2015
الثلاثاء، 31 مارس 2015
الجمعة، 27 مارس 2015
السبت، 21 مارس 2015
الأحد، 8 مارس 2015
الأحد، 1 مارس 2015
السبت، 28 فبراير 2015
الجمعة، 27 فبراير 2015
الأربعاء، 28 يناير 2015
الثلاثاء، 27 يناير 2015
السبت، 17 يناير 2015
الجمعة، 16 يناير 2015
الخميس، 15 يناير 2015
تقنية المسابقات
1)التباري المباشر
وهي الطريقة المثلي الاكثر نحاعة والاكثر متعة وهي الاشتغال مباشرة على المدونة في هده الحالة يكفي الانتقال الى التعليقات
وكتابة اسمكم المستعارورقم الجواب الصحيح
وهي الطريقة الاكثر ملائمة للواقع الاقتصادي لاغلبية الاسر حيث تقوم الحمعيات الثقافية وخصوصا تلك التي تهتم بالطفل بالتكفل بالجانب الثقني للعملية كتوفير الحواسيب و الارتباط بالشبكة واريد هنا ان افتح قوسا واناشد الشباب الدي يريد تحقيق داته في العمل التطوعي ان يقترح على جمعيات الاباء الانخراط معنا في هدا العمل
و النقاش مستمر
السبت، 3 يناير 2015
الاشتراك في:
الرسائل (Atom)