معذرة ولكن اريد منكم أن تحلون لي fortran90
السلم عليكم ورحمة الله وبركاته
يا اخواني
اريد منكم أن تحلون لي برنامج FORTRAN90-95
هذا نص البرنامج
واريد منه أن يقوم بطباعة التقدير بناء على SCORE
فمثلا لو كان جايب 90
يعطيه A
وهكذا
ياليت تستعجلون ومعليش إن كان انني دخلته مع الPhP
لكن مافيه قسم خاص به
ارجو منكم الرد
Program Student_information
Implicit none
Integer::student_number,passed_hour,semester,final_marke,I,score,gread
Real::rate,start,final,step
Character(30)::student_name
write(*,*)'Enter the final number'
read(*,*)final
write(*,*)'Enter the start number'
read(*,*)start
write(*,*)'Enter the step number'
read(*,*)step
Do I=start,final,step
Write(*,*)'Enter your student name'
Read(*,*)student_name
Write(*,*)'Enter your student number'
Read(*,*)student_number
Write(*,*)'Enter your subject hours'
Read(*,*)passed_hour
Write(*,*)'Enter your semester'
Read(*,*)semester
Write(*,*)'Enter your rate'
Read(*,*)rate
Write(*,*)'Enter your final marke'
Read(*,*)final_marke
Write(*,*)'Enter your score'
Read(*,*)score
if(score>=90)then
write(*,*)'Your Gread is'
gread='A'
else if(score>=80)then
write(*,*)'Your Gread is'
gread='B'
else if(score>=70)then
write(*,*)'Your Gread is'
gread='C'
else if(score>=60)Then
write(*,*)'Your Gread is'
gread='D'
else if(score>=0)then
write(*,*)'Your Gread is'
gread='F'
end if
end do
Read(*,*)student_number
Read(*,*)semester
End program
__________________
لا تنتظر حتي تصبح عظيماً لتبدأ ، ابدأ حتي تصبح عظيماً..
