زئوتکنیک Zootechnie

برای علاقمندان پرورش و اصلاح نژاد دام

جواب تمرين

program pedigree
implicit none
character(6)::ID,IDsire,IDdam
integer::year

open(2,file='/xxxx/pedig.txt') ! data file

read(2,'(a6,a6,a6,i4)')ID,IDsire,IDdam,Year
open(3,file='/xxxx/pedig2.txt') ! where results must be writed
write(3,*)ID,year

end

  
نویسنده : رأفت ; ساعت ٦:٢٧ ‎ب.ظ روز ٢٠ خرداد ۱۳۸٥
تگ ها :