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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

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

06.01.2017, 11:35. Просмотров 98. Ответов 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 семёрок
Посмотрите здесь:
Даны 3 числа, возвести в Квадрат те из них которые положительные QBasic
Как возвести в квадрат отрицательные числа и в третью степень положительные QBasic
Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень — отрицательные QBasic
Возвести число в степень QBasic
Возвести число в степень QBasic
QBasic Возвести все отрицательные элементы матрицы в третью степень
Все отрицательные числа матрицы возвести в третью степень QBasic
Все отрицательные числа возвести в третью степень. Из полученных значений сформировать одномерный массив QBasic
Visual Basic Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат.
Pascal ABC Возвести первое число в квадрат, а второе возвести в четвертую степень
Если введенное число отрицательное и четное, то возвести его в 3 степень, иначе возвести в квадрат C++
Возвести число в квадрат C (СИ)

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

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

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