Форум программистов, компьютерный форум, киберфорум
Наши страницы

Возвести в квадрат число, состоящее из 99 семёрок - QBasic

Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Построить график функции http://www.cyberforum.ru/qbasic/thread1894527.html
Построить график функции y = ARCSIN(|SIN(x / 2)| ^ |COS(5 * x)|) REM REM y = ARCSIN(|SIN(x / 2)| ^ |COS(5 * x)|) REM DECLARE FUNCTION ARCSIN! (x!)
QBasic Найти минимальный элемент массива и его порядковый номер Добрый день! Очень прошу помочь. 1) Дан массив А(6). Найти минимальный элемент массива и его порядковый номер. 2) Составьте алгоритм и программу вычисления значений функции на произвольном отрезке... http://www.cyberforum.ru/qbasic/thread1894503.html
Квадраты чисел 66, 666, 6666, 66666, QBasic
У квадратов чисел, состоящих из цифр 6, просматривается определенная закономерность. Можно ли ее проверить для больших чисел? REM REM 66^2 = 4356 REM 666^2 = 443556 REM ...
QBasic Найти абсолютный минимум функции y = x ^ x
Найти абсолютный минимум функции y = x ^ x примечание искать надо не только Ymin, но и значение икс. В противном случае вы рискуете найти просто минимум на заданном интервале (концах интервала)...
QBasic Решение уравнения x ^ x = x + 0.5 http://www.cyberforum.ru/qbasic/thread1894369.html
Решить уравнение x ^ x = x + 0.5 REM REM x ^ x = x + 0.5 REM REM x = 0.2180; x = 1.5900 REM DECLARE FUNCTION f! (x!)
QBasic Заменить в массиве все чётные элементы нулями Как заменить массиве из 10 целых чисел все чётные элементы нулями? Как бы сделать так, чтобы нули заменили чётные индексы массива, а не так как у меня получилось. Да ещё бы и исходный массив... подробнее

Показать сообщение отдельно
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8

Возвести в квадрат число, состоящее из 99 семёрок - QBasic

06.01.2017, 11:35. Просмотров 116. Ответов 0
Метки (Все метки)

Возвести в квадрат число, состоящее из 99 семёрок

QBasic/QuickBASIC
1
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
45
46
47
48
49
50
51
52
53
54
REM
REM           Контрольное вычисление
REM  77...7 ^ 2 = 6.049 382 716 049 382D+197
REM
 
CLS
CONST n = 99
DIM x(n)
DIM y(2 * n - 1)
 
FOR i = 1 TO n
   x(i) = 7
NEXT
 
FOR i = 1 TO n
   x(i) = 7 * x(i)
NEXT
 
FOR i = n TO 1 STEP -1
   x(i - 1) = x(i - 1) + x(i) \ 10
   x(i) = x(i) MOD 10
NEXT
 
FOR i = 0 TO n - 1
FOR j = 0 TO n
   y(i + j) = y(i + j) + x(j)
NEXT j, i
 
FOR i = 2 * n - 1 TO 1 STEP -1
   y(i - 1) = y(i - 1) + y(i) \ 10
   y(i) = y(i) MOD 10
NEXT
 
FOR i = 0 TO 2 * n - 1
   IF (i + 1) MOD 9 <> 0 THEN
      PRINT y(i);
   ELSE
      PRINT y(i)
   END IF
NEXT
END
 
REM Число 77...7 ^ 2  (99 семёрок)
REM Интересная симметрия! Не так ли? 
 
 604938271  604938271  604938271 
 604938271  604938271  604938271 
 604938271  604938271  604938271 
 604938271  604938270 
 
 395061728  395061728  395061728 
 395061728  395061728  395061728 
 395061728  395061728  395061728 
 395061728  395061729
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru