Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Отрицательные элементы массива заменить их модулями Добрый вечер всем))) Требуется Ваша помощь. Задачка из прак. работы. 1. Дан одномерный массив А длиной М. Отрицательные элементы заменить их модулями. https://www.cyberforum.ru/ visual-basic/ thread105454.html	VB дан текстовый файл... Дан текстовый файл.Записать на новый файл слова,которые встречаются более одного раза Добавлено через 57 минут помогите плиз
VB В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа https://www.cyberforum.ru/ visual-basic/ thread105331.html Доброго времени суток. Нуждаюсь в помощи написания программного кода. В заданном массиве строк найти строку с максимальным количеством вхождений заданного символа. Заранее благодарен.	VB представлено в виде суммы квадратов известно что любое натуральное число N(0<N<=1000) может быть представлено в виде суммы квадратов не более 4-ех положительных целых чисел.Написать программу, которая на ввод числа N, выводит количество S всех различных представлений этого числа. Представления которые отличаются лишь порядком слагаемых, считаются одинаковыми. например: N=4: S=2 (1^2+1^2+1^2+1^2=4, 2^2=4) заранее спасибо ... https://www.cyberforum.ru/ visual-basic/ thread105188.html
Отображение графиков функции VB Возникла проблема. График начинает рисоваться откуда-то с верхней точки,а так же много лишних линий,например,в функции tan(x) Вот процедура и функция для графика: Private Sub mnuDraw_Click() Label1 = "Масштаб: " & CStr(HScroll1.Value) Form2.Cls Form2.BackColor = &H80000009 DrawWidth = 2 h = HScroll1.Value	VB надеюсь,что это не сложно Напишите пожалуйста код для этих задач, но если возможно, то прошу, скиньте сами работы в Visual Basik на мою почту www.sestrynovooo@rambler.ru …буду очень благодарна. https://www.cyberforum.ru/ visual-basic/ thread105116.html
VB В числовую переменную последовательно вводится N произвольных чисел 2. В числовую переменную последовательно вводится N произвольных чисел.Найти среди них последнюю непрерывную цепочку чисел одного знака.определить знак этой последовательности и число её членов 3. Ввести и напечатать матрицу размером (nxm).Найти элементы матрицы,превосходящие сумму других элементов в своём столбце и меньше суммы других элементов в своей строке 4. Ввести квадратную матрицу... https://www.cyberforum.ru/ visual-basic/ thread105094.html	Нужно написать программу "биоритмы" на Visual Basic VB Здравствуйте. Мне нужно написать программу биоритмы на VB.(имеется программный код для Delphi) Если никто не хочет браться за это дело, то я буду рад подсказкам). Вот например вопрос: как вычислить количество прожитых дней человеком, используя дату рождения в формате чч.мм.гггг ?
VB Пересечение графиков Нужно найти пересечение двух или более графиков (любых) и подписать точку их пересечения https://www.cyberforum.ru/ visual-basic/ thread104558.html	VB Script Control Как им пользоваться в Visual Basic 6.0????? https://www.cyberforum.ru/ visual-basic/ thread104392.html
VB Нарисовать синусоиду и косинусоиду по заданным пользователем значениям Нужна программа, которая бы рисовала синусоиду и косинусоиду по заданным пользователем значениям. Заранее спс.	VB Как получить строку без кавычек? https://www.cyberforum.ru/ visual-basic/ thread104249.html Как получить данные из строки без кавычек? Например,в text1 введено x^2 далее,y=text1.text ,и y вернётся "x^2" . Как получить без кавычек? Добавлено через 35 минут Или может есть какой-то другой способ передавать значение...кусок кода калькулятора,рисующего графики функций. Private Sub mnuDraw_Click() Form2.BackColor = &H80000009 DrawWidth = 2

YuraAAA

1605 / 1337 / 291

Регистрация: 25.10.2009

Сообщений: 3,487

Записей в блоге: 2

17.03.2010, 00:23

Используя алгоритм Евклида, найти наибольший общий делитель (НОД) - VB - Ответ 603584

17.03.2010, 00:23. Показов 12418. Ответов 4

Метки (Все метки)

Сообщение было отмечено как решение

Решение

1.1 Алгоритм Эвклида. Задача сделана в VB 6.0 и полностью рабочая

Visual Basic

Private Sub Command1_Click()
Dim m, n, r
m = CInt(Text1)
n = CInt(Text2)
r = 1
If m >= n And n <> 0 Then
Do While r <> 0
r = (m Mod n)
If r = 0 Then
nod = n
GoTo line1
Else
m = n
n = r
End If
Loop
Else
Do While r <> 0
r = n Mod m
If r = 0 Then
nod = m
Else
n = m And m = r
End If
Loop
End If
line1:
Label1 = "НОД:" & nod
End Sub

Добавлено через 9 минут
2.Ну как бы так)

Visual Basic

Private Sub Command1_Click()
Dim A As Single, res As Single
Dim n, minN
A = Text1
n = 1
minN = 1
res = 0
Do While res <= A
res = res + 1 / n
minN = n
n = n + 1
Loop
MsgBox minN
End Sub

Добавлено через 58 секунд

Сообщение от lisov

Вычислить сумму с заданной точностью e(e вводится с клавиатуры). Считать, что требуемая точность достигнута, если очередное слагаемое оказалось по модулю меньше, чем e.

Сумму чего ?) Какого-то натурального числа N ?)

Вернуться к обсуждению:
Используя алгоритм Евклида, найти наибольший общий делитель (НОД) VB

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.03.2010, 00:23

Готовые ответы и решения:

Найти наибольший общий делитель нескольких чисел
Помогите,пожалуйста! задано N натуральных чисел (N>10), найти наибольший общий делитель. Находила...

Найти наибольший общий делитель трёх чисел
Помогите пожалуйста, Дано 3 числа (любых), определить их наибольший общий делитель

наибольший общий делитель. массивы
Заранее благодарен! Могли бы прислать программные коды на почтовый адрес...

Найти наибольший общий делитель (НОД), используя алгоритм Евклида
Даны целые положительные числа A и B. Найти их наибольший об-щий делитель (НОД), используя алгоритм...

	17.03.2010, 00:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.03.2010, 00:23

Помогаю со студенческими работами здесь

Найти наибольший общий делитель (НОД) двух заданных чисел, используя алгоритм Евклида
8.Даны целые положительные числа А и В. Найти их наибольший общий делитель (НОД), используя...

Используя Алгоритм Евклида найти наибольший общий делитель (НОД) двух неотрицательных чисел
Используя Алгоритм Евклида найти наибольший общий делитель (НОД) двух неотрицательных чисел, с...

Найти наибольший общий делитель (НОД) двух введенных натуральных чисел, используя алгоритм Евклида
Найти наибольший общий делитель (НОД) двух введенных натуральных чисел, используя алгоритм Евклида....

Наибольший общий делитель (НОД) двух целых положительных чисел A и B, используя алгоритм Евклида
Описать функцию NOD2(A, B) целого типа, находящую наибольший общий делитель (НОД) двух целых...

Наверх