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

QBasic

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

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

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

Возвести числа в квадрат - Basic
Даны три вещественных числа. Возвести в квадрат те, которые положительные Добавлено через 52 минуты помогите плиз!!!!!!!!!!!!!!!!

Даны 3 числа, возвести в Квадрат те из них которые положительные - QBasic
Даны 3 числа, возвести в Квадрат те из них которые положительные. (задачу решать только в QBASIK ). Заранее Спасибо.

Как возвести в квадрат отрицательные числа и в третью степень положительные - QBasic
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не трудно конечно же вот первая. На ветвление...

Возвести в квадрат те числа, значения которых неотрицательны, и в четвертую степень — отрицательные - QBasic
1. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные. ...

Возвести число в степень - QBasic
Помогите с задачками на циклы. Дано вещественное число A и целое число N(&gt;0). Вывести A в степени N:AN=A*A*...*A (числа A...

Возвести число в степень - QBasic
плиз, прошу помощи в реализации проги, никак не могу придумать алгоритм перевода в СС. Задача такая: возвести число в степень...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2017, 11:35
Привет! Вот еще темы с ответами:

Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его в куб, в противном случае возвести число в квадрат. - Visual Basic
Помогите пожалуйста, через 2 часа сдавать. Дано вещественное число. Если оно отрицательно, то вычислить модуль этого числа и возвести его...

Возвести первое число в квадрат, а второе возвести в четвертую степень - Pascal ABC
С клавиатуры вводится два трёхзначных числа. Возвести первое число в квадрат, а второе возвести в четвертую степень, если хотя бы у одного...

Если введенное число отрицательное и четное, то возвести его в 3 степень, иначе возвести в квадрат - C++
Ввести целое число В. Если В отрицательное и четное, то возвести его в 3 степень, иначе возвести в квадрат

Возвести число в квадрат - C (СИ)
Как писать число в квадрате на СИ?


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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