Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
821 / 1016 / 347
Регистрация: 23.10.2013
Сообщений: 4,761
Записей в блоге: 4
#1

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

06.01.2017, 11:35. Просмотров 91. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2017, 11:35     Возвести в квадрат число, состоящее из 99 семёрок
Посмотрите здесь:

QBasic Возвести все отрицательные элементы матрицы в третью степень
Все отрицательные числа возвести в третью степень. Из полученных значений сформировать одномерный массив QBasic
Магический квадрат QBasic
Возвести число в степень QBasic
QBasic Заштриховать квадрат
Вращающийся квадрат QBasic
Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень — отрицательные QBasic
Все отрицательные числа матрицы возвести в третью степень QBasic
Вычислить квадрат и синус числа QBasic
Даны 3 числа, возвести в Квадрат те из них которые положительные QBasic
Как возвести в квадрат отрицательные числа и в третью степень положительные QBasic
Возвести число в степень QBasic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 09:17. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru