Программка версия 2.0Program lab2 Integer I,J,N,UM Integer
Программка версия 2.0
Program lab2 Integer I,J,N,UM Integer Y(100) READ *, N CALL CHISLO(N,Y,100,L,UM) PRINT *,UM PAUSE END SUBROUTINE CHISLO(B,H,O,L,SUM) INTEGER B,L,SUM,O INTEGER H(O) DO I=1,B H(I)=I ENDDO SUM=0 DO J=1,B L=1 DO I=1,J L=L*I ENDDO SUM=SUM+L ENDDO PRINT 99 PRINT 100,(H(I),I=1,B) 99 FORMAT ('.....',B('....')) 100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':')) END
Задать свой вопрос
Ванька Канцовский
отдал
Колька Сануевич
Программу добавил. Все для вас.
Пашок
Спасибо за ответ. Желаю чтобы программа выводила необходимое мне число точек, чтобы в зависимости от переменной B, верхние точки сочиняли верхнюю границу таблицы вывода.
1 ответ
Tanjuha Zvezdeva
Program lab2
Integer I,J,N,UM
Integer Y(100)
READ *,N
CALL CHISLO(N,Y,100,L,UM)
PRINT *,UM
STOP
END
SUBROUTINE CHISLO(B,H,O,L,SUM)
INTEGER B,L,SUM,O
INTEGER H(O)
DO I=1,B
H(I)=I
ENDDO
SUM=0
DO J=1,B
L=1
DO I=1,J
L=L*I
ENDDO
SUM=SUM+L
ENDDO
PRINT 99,'.....',REPEAT('....',B)
PRINT 100,(H(I),I=1,B)
99 FORMAT (A,A)
100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':'))
END
Integer I,J,N,UM
Integer Y(100)
READ *,N
CALL CHISLO(N,Y,100,L,UM)
PRINT *,UM
STOP
END
SUBROUTINE CHISLO(B,H,O,L,SUM)
INTEGER B,L,SUM,O
INTEGER H(O)
DO I=1,B
H(I)=I
ENDDO
SUM=0
DO J=1,B
L=1
DO I=1,J
L=L*I
ENDDO
SUM=SUM+L
ENDDO
PRINT 99,'.....',REPEAT('....',B)
PRINT 100,(H(I),I=1,B)
99 FORMAT (A,A)
100 FORMAT (/':',1X,'I',1X,':',20(1X,I1,1X,':'))
END
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов