Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Basic


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

Найти НОД трех чисел (НОД (а,Ь,с) - НОД(НОД(a,b),с)).
alexeyTTT вне форума   Ответить с цитированием

Старый 24.12.2012, 16:29
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 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
iks2 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.