تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 2 از 2

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

  1. #1
    در آغاز فعالیت saeed6343's Avatar
    تاريخ عضويت
    Jun 2008
    پست ها
    8

    پيش فرض درخواست از کسایی که فرترن بلد هستن

    دوستان من دانشجوی رشته مکانیک هستم و درسی دارم به نام برنامه نویسی که استاد اون فرترن رو درس داد و دو پروژه داد که یکی از اونها برنامه ای هست که دو عدد m و n رو بگیره و اعداد اول بینش رو چاپ کنه من فلوچارت زیر رو براش کشیدم.و برنامه پایین رو هم نوشتم ولی فقط تو جواب میزنه 0.00000 خواهشا کمک کنید:
    این برنامه ای هست که نوشتم:
    program saeed
    implicit none
    real :: m,n,k,r,t
    integer:: d
    read*,m,n
    if (m<n) then
    k=1
    d=1
    else
    end if
    do

    m=t
    n=m
    t=n
    if (m<n) then
    k=1
    d=1
    end if

    r=mod(m,k)
    if (r==0) then
    d=d+1
    k=k+1
    end if
    if (k<=(m/2)) then
    else
    end if

    if (d==2) then
    print*,m
    else
    m=m+1
    end if
    end do
    if (m<n) then
    else
    end if
    end program saeed
    این هم فلوچارت:

  2. #2
    در آغاز فعالیت saeed6343's Avatar
    تاريخ عضويت
    Jun 2008
    پست ها
    8

    پيش فرض

    یعنی هیچ کس برای کمک اینجا نمیاد؟؟؟؟؟؟؟؟

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •