نتايج هماهنگ با عبارت جستجو شده : 1

توسط msdkrdn
پنج‌شنبه ۱۴۰۰/۳/۲۷ - ۱۳:۳۶
انجمن: فناوری اطلاعات
موضوع: فرترن
پاسخ ها: 17
مشاهده: 14963

Re: فرترن

سلام دوستان
میشه برای ساختار درست این کد در فرترن راهنمایی کنید:

کد: انتخاب همه

Do i=0,1000,1
          T(i)=t-(i*TI)
          if (z(i) .EQ. 0.00) then
              z(i+1)=v*T(i)
          elseif (z(i) .EQ. A) then
              z(i+1)=A-v*T(i)
          endif   
          r1=sqrt(x**2+(z-z(i))**2)
      end do