![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 06.06.2013
Сообщений: 2
|
![]()
добрый день. помогите пожалуйста переделать программу с бейсика на си ++ без компеляции. вложенные циклы с записью в файл.
Последний раз редактировалось skrl; 06.06.2013 в 19:07. |
![]() |
![]() |
![]() |
#2 |
Новичок
Джуниор
Регистрация: 06.06.2013
Сообщений: 2
|
![]()
OPEN "d:\arh.txt" FOR OUTPUT AS #1
FOR K = 1 TO 4096 CLS:s = 0 FOR A0 = 0 TO K FOR A1 = 0 TO K FOR A2 = 0 TO K FOR A3 = 0 TO K FOR A4 = 0 TO K FOR A5 = 0 TO K FOR A6 = 0 TO K FOR A7 = 0 TO K FOR A8 = 0 TO K FOR A9 = 0 TO K FOR A10 = 0 TO K FOR A11 = 0 TO K FOR A12 = 0 TO K FOR A13 = 0 TO K FOR A14 = 0 TO K FOR A15 = 0 TO K s = A0 + A1 + A2 + A3 + A4 + A5 + A6 + A7 + A8 + A9 + A10 + A11 + A12 + A13 + A14 + A15 IF s = K THEN GOSUB 100 IF s < K THEN GOTO 10 10 NEXT A15 NEXT A14 NEXT A13 NEXT A12 NEXT A11 NEXT A10 NEXT A9 NEXT A8 NEXT A7 NEXT A6 NEXT A5 NEXT A4 NEXT A3 NEXT A2 NEXT A1 NEXT A0 A15 = 0 A14 = 0 A13 = 0 A12 = 0 A11 = 0 A10 = 0 A9 = 0 A8 = 0 A7 = 0 A6 = 0 A5 = 0 A4 = 0 A3 = 0 A2 = 0 A1 = 0 A0 = 0 PRINT #1, CHR$(A0) + CHR$(A1) + CHR$(A2) + CHR$(A3); CHR$(A4) + CHR$(A5) + CHR$(A6) + CHR$(A7) + CHR$(A8) + CHR$(A9) + CHR$(A10) + CHR$(A11) + CHR$(A12) + CHR$(A13) + CHR$(A14) + CHR$(A15); NEXT K CLOSE 100 LOCATE 10, 10 PRINT s; " "; K PRINT A0; " "; A1; " "; A2; " "; A3; " "; A4; " "; A5; " "; A6; " "; A7; " "; A8; " "; A9; " "; A10; " "; A11; " "; A12; " "; A13; " "; A14; " "; A15; PRINT #1, CHR$(A0) + CHR$(A1) + CHR$(A2) + CHR$(A3); CHR$(A4) + CHR$(A5) + CHR$(A6) + CHR$(A7) + CHR$(A8) + CHR$(A9) + CHR$(A10) + CHR$(A11) + CHR$(A12) + CHR$(A13) + CHR$(A14) + CHR$(A15); 101 IF A0 = 256 THEN STOP 102 RETURN |
![]() |
![]() |