Recent content by asemo0n

مرسی از شما

read(*,*)dia=1500-2nic=5000/nd=ib**2-4*ia*icn=9283do9283 ib=1,n,19283continuej=050j=j+1(if(d,ge,jthenjsum=jsum+1go to 50write(*,*)bend ifendاشکال این برنامه به زبان فرترن در کجاست؟

مرسی دوست گرامی

سلام یه برنامه به زبان فرترن میخواستم به مشخصات زیر ممنون میشم کسی از دوستان کامپیوتر جوابمو بده .;) معادله درجه دومی به صورت زیر بنویسید که در ان اگر دلتای معادله بزرگتر از صفر بود مجموع ریشه های مهادله را حساب کند مشخصات معادله: ax^2+bx+c a=1500-2n b=1,n,1 c=5000\n n=9283 دلتا=b^2-4ac