ورود

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



wickietetsu
12-06-2009, 18:39
سلام دوستان
لطفا کسانی که آشنایی هرچند جزئی با فرترن دارند منو راهنمائی کنن.
یه برنامه می خوام بنویسم که اعداد کوچکتر از 100 رو تقسیم بر 7 بکنه و رایت کنه.
آیا این برنامه ای که نوشتم درسته؟ مخصوصا قسمت اولش رو شک دارم. نمیدونم باید اول تو فرترن متغیرهایی رو که باید در برنامه ازشون استفاده کنم رو بعد از I= مشخص کنم.


I=N,A -----



N=0-----



101N=N+1



IF (N.GT.100) STOP-----



A=N/7-----



WRITE (*,*) A-----



GOTO 101-----


ممنون از شما.

مهندس آب
21-06-2009, 11:25
سلام NوAکه در اول برنامه ات وارد کردی به صورتA,N (*,*) READ باشه