Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2013, 13:07   #1
skrl
Новичок
Джуниор
 
Регистрация: 06.06.2013
Сообщений: 2
По умолчанию C ++ добрый день. кто может переделать программу с бейсика на си ++ без компеляции. вложенные циклы с записью в файл. спасибо.

добрый день. помогите пожалуйста переделать программу с бейсика на си ++ без компеляции. вложенные циклы с записью в файл.

Последний раз редактировалось skrl; 06.06.2013 в 19:07.
skrl вне форума Ответить с цитированием
Старый 06.06.2013, 13:26   #2
skrl
Новичок
Джуниор
 
Регистрация: 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
skrl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск