الليف ما ينقط
هده المدونة اعترف لكم انها ليست ذات قيمة انا متاكد انكم لن تستفيدوا منها شيئا فلا تضيعوا وقتكم معي ماعداان كنتم مثلي في حالة تقاعد تقاعس الزمن/الوقت بالنسبة لكم كالسكر كالدهون الموصي باحراقها
الأحد، 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
الاشتراك في:
الرسائل (Atom)