Технический форум

Технический форум (http://www.tehnari.ru/)

- Basic (http://www.tehnari.ru/f127/)

- - QuickBasic (http://www.tehnari.ru/f127/t82955/)

alexeyTTT

24.12.2012 16:29

QuickBasic

Найти НОД трех чисел (НОД (а,Ь,с) - НОД(НОД(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

Часовой пояс GMT +4, время: 20:35.