포트란, common, subroutine смотреть онлайн
#포트란 #common #서브루틴
1부터 10까지 입력
program ex7_8
integer a0,a1,a2,b
common a0,a1,a2,b
call subrtn(1,10) !start no, end no.
write(*,*)
write(*,10)'3 baesu hab :' ,a0
write(*,10)'nameoji 1 :' ,a1
write(*,10)'nameoji 2 :' ,a2
write(*,10)'hab :' ,b
10 format(1x,a23,i5)
endprogram ex7_8
subroutine subrtn(m,n)
integer sam0, sam1, sam2, hab
common sam0, sam1, sam2, hab
write(*,20) (i, i=m,n)
20 format(1x, 100i4)
sam0=0
sam1=0
sam2=0
hab =0
do 30 i=m,n
if(mod(i,3).eq.0) sam0=sam0+i
if(mod(i,3).eq.1) sam1=sam1+i
if(mod(i,3).eq.2) sam2=sam2+i
hab=hab+i
30 continue
return
end
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «포트란, common, subroutine» бесплатно и без регистрации, вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.