QuickBasic

alexeyTTT · 24.12.2012, 16:29

Найти НОД трех чисел (НОД (а,Ь,с) - НОД(НОД(a,b),с)).

iks2 · 24.10.2016, 11:37

Код:

DECLARE FUNCTION NOD! (a!, b!)

CLS
INPUT "A,B,C = "; a, b, c
PRINT NOD(NOD(a, b), c)
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

24.12.2012, 16:29	#1 (permalink)
alexeyTTT Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	QuickBasic Найти НОД трех чисел (НОД (а,Ь,с) - НОД(НОД(a,b),с)).

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

24.12.2012, 16:29
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Не торопитесь, лучше ознакомится с похожими темами и набраться побольше информации Задачка в QuickBasic

24.10.2016, 11:37	#2 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Код: DECLARE FUNCTION NOD! (a!, b!) CLS INPUT "A,B,C = "; a, b, c PRINT NOD(NOD(a, b), c) 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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070