السلام عليكــم ورحمـة الله وبركاتــه ،،
كيف حآلكم يامبدعين المنتدى ..
نفع الله بكم الامه الاسلاميه ..
بداية احب اوضح لكم طريقتي في العمل على لغات البرمجه
ان شاء الله توصلني طريقتي هذي الى الاحتراف والاتقان التام لاكثر من لغه
بالبداية اسوي لي برنامج بلغة البيسك بحكم انها ابسط لغه
ومن ثم احول هذا البرنامج للغة السي بلس بلس
والحين صرت اتعامل من الجافا ايضا يعني احول البرنامج للجافا
عشان اكون اقدر اميز واتعامل مع 3 لغات برمجه بنفس الوقت
والحمد لله كله تمام للحين بس عند مشكلة بالجآفا ..!!
انا سويت هذا البرنامج بلغه البيسك وحولته للسي بلس بلس وعادي ضبط بسرعه
بس ماعرفت شلون احوله للجافا
ياليت لو احد عنده خبره يعلمني شلون ..؟؟
Rem STUDENTS MARKS
INPUT " HOW MANY SYUDENT DO WANT ?", n
Dim A$(n)
Dim x(n)
Print " ENTER TREIR NAMES AND MARKS: "
For i = 1 To n
Print "Student("; i; ")-";
INPUT A$(i)
50 PRINT "MARK"; : INPUT "( 0 < MARK < 100 )"; x(i)
If (x(i) < 0) Or (x(i) > 100) Then
Print "error"
GoTo 50
End If
Next i
'========================================================
Rem "Successful Student"
k = 0
For i = 1 To n
If x(i) >= 60 Then k = k + 1
Next i
'===============================================================
Rem "Percent of Success and Fail"
s = (k / n) * 100
F = ((n - k) / n) * 100
'===============================================================
Cls
For i = 1 To n
Print A$(i), x(i)
Next i
Print "Success Student ="; k
Print "Percent of success = "; s; "%"
Print "Percent of Fail = "; F; "%"
'========================================================
Rem "The Order of Successful Student"
For i = 1 To n - 1
For j = 1 To n - i
If x(j) < x(j + 1) Then
s = x(j)
x(j) = x(j + 1)
x(j + 1) = s
B$ = A$(j)
A$(j) = A$(j + 1)
A$(j + 1) = B$
End If
Next j
Next i
'=======================================================
Print "The Order of Successful Student"
For L = 1 To k
Print A$(L), x(L)
Next L
End
Cls
ارجو المساعده
<< حاستي تعلمات الجافا للادخآل :S
مشكورين مقدمآ ... :wub:
كرزه حمراء
