РRОGRАМ МАIN РАGЕ NО 1 INТЕGЕR РRIМЕ DIМЕNSIОN РRIМЕ(100) ----------------------------------------- --------------------------------------* DО 1 N=2,100 * + ----------------------------------------- + I + ----------------------------------------- ++++++++++++++++++++++++++++ 1 +++I РRIМЕ(N)=1 I ----------------------------------------- I ----------------------------------------- --------------------------------------* DО 2 N=2,100 * + ----------------------------------------- + I + . + . ’ ’ . + . ’ IF ’ . + . ’ (РRIМЕ(N)) ’ . + --’ . . ’-- + I ’ . . ’ I + I ’ . . ’ I + I ’ . ’ I + I - I 0 I + + ------- ------- I + *2 * *2 * I + ’. .’ ’. .’ I + ’ ’ I + I + I---------------- + I + ----------------------------------------- + 22 I L=100/N I + ----------------------------------------- + I + ----------------------------------------- +-------------------------------------* DО 3 К=2,L * +I ----------------------------------------- +I I +I ----------------------------------------- ++++++++++++++++++++++++++++ 3 +++I РRIМЕ(N*К)=0 I + ----------------------------------------- + I ++++++++++++++++++++++++++++ 2 ++++++++++++++++++СОNТINUЕ I ----------------------------------------- --------------------------------------* DО 4 N=2,100 * + ----------------------------------------- + I + . + . ’ ’ . + 4 . ’ IF ’ . FАLSЕ + . ’ ((((((((((((((((( ’ . +++++++++++++++++++++++++++++++++++++++++ ’ . ((((((((((((((((((((( . ’------------------ ’ . ((((((((((((((. ’ I ’ . . ’ I ’ . ’ I I ТRUЕ I I I (РRIМЕ(N).ЕQ.1) РRINТ 5,N I I I --------------------------------- I 5 FОRМАТ (1ХI6) ** I
РRОGRАМ МАIN РАGЕ NО 2 I *********** * SТОР * * * ***********
Это я увидел в списке подпрограмм стандартной библиотеки БЭСМ-6 нечто странное - очень большие процедуры по сравнению с обычными математическими - и решил запустить.
Или так:
СОL.73-80 СОL. 1-72 FLОW DIАGRАМ
SUВRОUТINЕ FОО
С- - ---( ---( ---( ---( 1---
1 GОТО 3
С- .
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 3 ---------
С- V
С- - ---( ---( ---( ---( 2--------V---
2 GОТО 4 V А
С- . V А
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 4 --------V--А---
С- V А V
С- - ---( ---( ---( ---( 3--------- А V
3 GОТО 5 А V
С- . А V
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 5 --------- А V
С- V А V
С- - ---( ---( ---( ---( 4--------V--А---
4 GОТО 6 V А
С- . V А
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 6 --------V--А---
С- V А V
С- - ---( ---( ---( ---( 5--------- А V
5 GОТО 7 А V
С- . А V
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 7 --------- А V
С- V А V
С- - ---( ---( ---( ---( 6--------V--А---
6 GОТО 8 V А
С- . V А
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 8 --------V--А---
С- V А V
С- - ---( ---( ---( ---( 7--------- А V
7 GОТО 9 А V
С- . А V
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 9 --------- А V
С- V А V
С- - ---( ---( ---( ---( 8--------V--А---
8 GОТО 10 V А
С- . V А
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 10 ------ V А
С- V V А
С- - ---( ---( ---( ---( 9-----V--- А
9 GОТО 2 V А
С- . V А
С- - - - - - - - - - - - - - - - - - - - - - - GО ТО 2 -----V------
С- V
С- - ---( ---( ---( ---( 10------
10 SТОР
RЕТURN
ЕND