QBasic / QuickBASIC1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 REM REM контрол изчисляване REM 7 ^ 77 = 1.181 813 865 805 959 65 D + REM DECLARE функция М! (I!) DECLARE FUNCTION ST $ (п!) DECLARE SUB Si7 () CLS DIM СПОДЕЛЕНО S AS STRING S = "49" за I = 1 до 75 CALL Si7 СЛЕДВАЩАТА ПЕЧАТ S END функция М (I) M = VAL (MID $ (S, I, 1)) END FUNCTION SUB Si7 DIM т AS низ за I = LEN (S) на 1 стъпка -1 а = 7 * М (и) + = пб на MOD 10 р = а \ т = 10 ST (б) + т СЛЕДВАЩАТА ако р ТОГАВА S = ST (р) + т ДРУГО S = т крайна сметка, ако End Sub FUNCTION ST $ (п) ST = LTRIM $ (STR $ (п)) END ФУНКЦИЯ
Изчислете сумата от елементите на масива А (А1, А2. An), стойности са в абсолютна лъжа рамките на предварително определен диапазон от б до (б не е програмата работи или не съответства на описанието. Моля, дайте ни за това, като попълните проста форма. Благодаря ви =) Марка сайт по-добре
Форум за търсенето
Отзиви на извършената работа
"Благодаря ви много :) преди време е направил. Изпратих :) благодаря отново. Винаги ще ти се обадя. "
"Благодаря ви много. Всичко се прави във времето, ако нещо не е ясно, това обяснява, ако има дефекти, които коригират добър човек, за да се свърже с него, той ще ви помогне да го направи правилно. ) "
"Благодаря ви много. бързо, ефективно и професионално. "
"Благодаря ви) бързо, ефикасно и най максимален резултат)."
"Благодаря ви много, помогна във време на нужда, бързо и точно. Съветвам всеки да търси тук! "
"Благодаря ви много, много бързо помогна)."
"Много благодаря за помощта))."
Свързани статии