Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 27.11.2012
Сообщений: 217
1

НОД для всех элементов одномерного числового массива

27.11.2012, 09:49. Показов 540. Ответов 3
Метки нет (Все метки)

Добрый день!
Необходимо сделать программу, которая будет вычислять наибольший общий делитель для всех элементов одномерного числового массива.
Спасибо!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2012, 09:49
Ответы с готовыми решениями:

Программа для обработки одномерного числового массива, состоящего из случайных элементов элементов
Разработать алгоритм и программу для обработки одномерного числового массива, состоящего из 20...

Разработать программу для вычисления произведения элементов одномерного числового массива
Разработать программу для вычисления произведения элементов одномерного числового массива. Помогите...

Найти НОД для всех элементов массива
Подскажите как найти наибольший общий делитель всех элементов массива?

Вычисление произведения элементов одномерного числового массива
Помогите решить задачу: разработать программу для вычисления произведения элементов одномерного...

3
Заблокирован
27.11.2012, 10:34 2
Посмотри, может поможет - Найти НОД шести чисел, трех и двух
1
6143 / 910 / 305
Регистрация: 25.02.2011
Сообщений: 1,304
Записей в блоге: 1
27.11.2012, 12:55 3
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DATA 540,720,270,360
n = 4
DIM arr(1 TO n) AS LONG
 
CLS
FOR i = 1 TO n
  READ arr(i)
  PRINT arr(i)
NEXT i
 
a = arr(1)
FOR i = 2 TO n
  b = arr(i)
  WHILE b
    c = b
    b = a MOD b
    a = c
  WEND
NEXT i
PRINT "Nod ="; a
2
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
24.06.2016, 15:52 4
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
DECLARE FUNCTION NOD! (a!, b!)
CLS
DATA 540, 720, 270, 360
OPTION BASE 1
n = 4
DIM a(n)
 
FOR i = 1 TO n
   READ a(i)
   PRINT a(i)
NEXT i: PRINT
 
D = a(n)
 
FOR i = 1 TO n - 1
   D = NOD(D, a(i))
NEXT
 
PRINT "NOD ="; D
END
 
FUNCTION NOD (a, b)
   IF a = 0 OR b = 0 THEN
      NOD = a + b
   ELSE
      IF a > b THEN
         NOD = NOD(a MOD b, b)
      ELSE
         NOD = NOD(a, b MOD a)
      END IF
   END IF
END FUNCTION
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.06.2016, 15:52

Найти произведение элементов одномерного числового массива
найти произведение элементов одномерного числового массива

Найти сумму элементов одномерного числового массива
вычислить p= S1-S2,где S1-сумма элементов одномерного числового массива а, а S2-сумма элементов...

Найти произведение ненулевых элементов одномерного числового массива
Найти произведение ненулевых элементов одномерного числового массива

Определить суммы отрицательных и положительных элементов одномерного числового массива.
Помогите пожалуйста решить задачу!!! Заранее спасибо! Определить суммы отрицательных и...

Найти произведение ненулевых элементов данного одномерного числового массива
Найти произведение ненулевых элементов данного одномерного числового массива.

Составьте программу, которая запрашивает значения элементов одномерного числового массива
Составьте программу, которая запрашивает значения элементов одномерного числового массива А,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru