Слово
«enddo»впервые сказано пользователем
Voronin 18.05.2011 в 19:02,
и с тех пор употреблялось
21 раз.
Сообщения со словом
«enddo»
Запрос выполнился за
0.0032 сек.
- 17.12.2011, 15:34. milachka в теме
«Fortran. 2семестр.»
... open 1 file in txt do i 1 n read 1 a i j j 1 n b i enddo do i 1 n write a i j j 1 n b i enddo do k 1 n-1 do j k 1 n c k j a k j a k k d k b k a k k enddo do i k 1 n do j k 1 n a i j a i j -a i k c k j enddo b i b i -a i k d k enddo enddo d n b n a n n x n d n do i n-1 1 -1 sum 0 do j i 1 n sum sum c i j x j enddo x i d i -sum enddo do i 1 n print x i x i end do end program ert implicit none integer det i j k n real allocatable dimension a c open 1 file in txt read 1 n allocate a n n allocate c n n read 1 a i j j 1 n i 1 n do i 1 n write a i j j 1 n enddo print det 1 do k 1 n det det a k k print a k k do j k 1 n c k j a k j a k k enddo do i k 1 n do j k 1 n a i j a i j -a i k c k j enddo enddo enddo det det a n n print det end program зарание спасибо...
- 18.05.2011, 21:41. TheEnt в теме
«Числаки»
... 1000 w j r1 v j 1 v j-1 r2 v j 0 3 tu exp -1 2 h j-1 enddo do j 2 1001 v j w j мне не нравится вот что во-первых exp -1 2 h j-1 почему j-1 мне кажется там должно быть h j потом код do j 2 1001 v j w j j 2 в v j не копируется начальное условие u 0 t в v 1 лежит все время 0 как я понимаю потому что до цикла было написано код do j 1 1001 v j 0 3 h j-1 enddo с этого момент v 1 ни разу не менялось ещё разберись...
- 18.05.2011, 20:08. Voronin в теме
«Числаки»
... kp 200 w 1 0 4 w 1001 0 8 do j 1 1001 v j 0 3 h j-1 enddo goto 3 1 do j 2 1000 w j r1 v j 1 v j-1 r2 v j 0 3 tu exp -1 2 h j-1 enddo do j 2 1001 v j w j enddo n n 1 k k 1 t t tu if k lt kp goto 1 3 k 0 write...
- 18.05.2011, 19:26. Neper в теме
«Числаки»
... публиковать стыдно и грешно код do j 1 1001 w j 0 3 h j-1 enddo h 2 100 а после этого использования неинициализированной...
- 18.05.2011, 19:02. Voronin в теме
«Числаки»
... 1 20 1 40 1 60 1 80 2 00 do j 1 1001 w j 0 3 h j-1 enddo h 2 100 tu 0 05 r1 2 2 tu h h r2 1-2 r1 n 0 t 0 k 0 np 100 kp 20 w 1 0 4 w 1001 0 8 goto 3 1 do j 2 1000 w j r1 v j 1 v j-1 r2 v j 0 3 tu exp -1 2 h j-1 enddo do j 2 1001 v j w j enddo n n 1 k k 1 t t tu if k lt kp goto 1 3 k 0 write...
