آقا جان مادراتون برنامه با Qbasic

[saeedonline]

سلام آقا جان مادراتون هركي ميتونه اينو با كيو بيسيك بنويسه اينجا كدشو بذاره ممنون ميشم آقا امروز لازمه تورو خدا

مسئله ژيدا كردن ريشه هاي معادله درجه دوم ؟ برنامه با Qbasic حتما باشه ممنون

 

[farazzz]

معمولا اينجا به اينطور سوالا جواب نميدن وميگن خودت برو سعي كن اشكالت رو بپرس ولي حالا ايندفه رو من با اجازه اساتيد جواب ميدم(در ضمن تا اونجايي كه كيو بيسيك يادم بود نوشتم اميدوارم درست باشه)

input a,b,c
let delta=(b*b)-(4*a*c)
if delta<0 then
print "there is no root"
else if delta=0 then
r1= -b/(2*a)
print "the root is",r1
else if delta>0 then
r1=(-b+sqr(delta))/(2*a)
r2=(-b-sqr(delta))/(2*a)
print "the roots are",r1,r2
end if

 

[saeedonline]

آقا اينجا چه باحاله

 

[ei_baba_bi_khial]

آآآ..كيو بيسيك...يادش به خير من سوم دبيرستان داشتيم 20 شدم

 

[farazzz]

آآآ..كيو بيسيك...يادش به خير من سوم دبيرستان داشتيم 20 شدم

جووني کجايي که يادت بخير