наибольший общий делитель. массивы

@Арби · Регистрация: 11.01.2010

Студворк — интернет-сервис помощи студентам

Заранее благодарен!
Могли бы прислать программные коды на почтовый адрес sellexioner@yandex.ru.....на кону вся жизнь и карьера начинающего программиста
1))))Написать программу, которая вычисляет наибольший общий делитель двух введенных с клавиатуры чисел.
2)))Задан массив на 10 вещественных чисел. Вычислить сумму четных элементов и количество нечетных.
3)))Дано число. Если оно положительно, то вычислите сумму всех целых чисел до заданного числа включительно, отрицательное произведение.

@Toxa33rus · 11.01.2010, 17:25

Хм... Обычно такие задачи просят решить начинающие юристы/экономисты (которым зачем-то ввели программирование в универе), а раз ты действительно веришь в то что ты начинающий программист, то ТАКОЕ должен уметь решать с закрытыми глазами.
Первая уже есть на форуме.
По второй:

Visual Basic
1
2
3
for i=1 to 10
  if a(i) mod 2 = 0 then
...

Третья:

Visual Basic
1
2
3
If N>0 then
  For i=1 to N
....

@Арби · 11.01.2010, 17:50 **[ТС]**

Спасибо тебе большое!Ты угадал.:-)Я не учусь на факультете программирования, но мне необходимо сдать курсовую работу по информатике(завтра),в которой есть эти три задачи. Надеюсь,ты не откажешь в помощи,если попрошу написать полные коды этих задач.

@BasicMan · 11.01.2010, 18:14

1.НОД

Visual Basic
1
2
3
4
5
6
7
dim x  as Integer, y as Integer
x=Inputbox("Введите x")
y=Inputbox("Введите y")
do 
If x>y Then x=x Mod y Else y=y Mod x
loop Until (x=0) Or (y=0)
msgbox "НОД=" & (x+y)

Добавлено через 15 минут
2.че такое четное вещественное число непонятно.
вот скажи 1.2 эт четное или нечетное?
бум считать целые

Visual Basic
1
2
3
4
5
6
7
8
dim a(10) as integer, k as integer, s as integer
k=0
s=0
for i=1 to 10
a(i)=inputbox("a(" & i &")")
if a(i) mod 2 = 0 then s=s+a(i) else k=k+1
next i
msgbox "суммa четных элементов=" & s & ", количество нечетных=" & k

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

Сообщение от Арби

то вычислите сумму всех целых чисел до заданного числа включительно

до какого заданного?

Добавлено через 16 минут
Арби, наф кроспостишь?

у нас порядок: запостил 2 темы одинаковые - получи желтую карточку. 3 - красную.
3 красные карточки - автобан

@Арби · 11.01.2010, 18:30 **[ТС]**

У меня интернет зависает, и по этой причине- дважды одна и та же тема.:-)У меня почему-то выдает НОД= ЛОЖЬ...Как объясните?

Добавлено через 8 минут
Заданное число- это то, которое нужно ввести.

@BasicMan · 11.01.2010, 18:33

Сообщение от Арби

У меня почему-то выдает НОД= ЛОЖЬ.

попробуй так

Visual Basic
1
msgbox "НОД=" & cstr((x+y))

@Арби · 11.01.2010, 18:49 **[ТС]**

Вторая задача выдает compile error: else without if... и private sub выделяется желтым цветом.Брат,а третью можешь посмотреть?

@BasicMan · 11.01.2010, 18:53

Сообщение от Арби

Вторая задача выдает compile error: else without if... и private sub выделяется желтым цветом

ты все правильно скопипастил?
у мя ошибок не пишет

хотя попробуй еще так 6ю строку переписать

Visual Basic
1
2
3
4
5
if a(i) mod 2 = 0 then
 s=s+a(i)
else
 k=k+1
end if

@Арби · 11.01.2010, 19:09 **[ТС]**

Спасибо за внимание и понимание!После изменения 6 строки выделил *количество*.

@BasicMan · 11.01.2010, 19:15

последнюю строку напиши так

Visual Basic
1
msgbox "суммa четных элементов=" & cstr(s) & ", количество нечетных=" & cstr(k)

у тебя какая версия Бейсика?

@Арби · 11.01.2010, 19:39 **[ТС]**

*VB 6.0* Сейчас работает!Все супер!Помоги с третьей, пожалуйста!!!

@BasicMan · 11.01.2010, 19:54

я вопрос задал, невнимательный ты наш

Сообщение от CyberБурундукЪ

то вычислите сумму всех целых чисел до заданного числа включительно

до какого заданного?

прочитай. подумай. ответь

тогда помогу

@Арби · 11.01.2010, 20:18 **[ТС]**

*Visual Basic 6.* У меня проблемы с третьей...три часа с ней волокита...Интернет барахлит,вот..

Добавлено через 8 минут
До любого числа, которое мы вводим в программу.В условии говорится только об этом.Я сейчас уточню.

@BasicMan · 11.01.2010, 20:22

Сообщение от Арби

Дано число. Если оно положительно

это - это число? или еще заносится какое-то другое?
если это, то тогда не понятно, вот это

Сообщение от Арби

отрицательное произведение

произведение каких чисел интересно? отрицательных, или положительных?

@Арби · 11.01.2010, 21:15 **[ТС]**

У меня пока нет возможности узнать условие задачи.Может она выглядела таким образном...Дано число.Если оно положительно, то вычислите сумму всех целых чисел до заданного числа включительно.Если оно отрицательно,то произведение этих чисел.К примеру: допустим, что это число 5.Тогда сумма чисел составляет 0+1+2+3+4+5=15.Если это -5, то тогда (-1)*(-2)*(-3)*(-4)*(-5)=-125.

@BasicMan · 11.01.2010, 21:32

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
dim x  as Integer, s as Integer
x=Inputbox("Введите x")
select case x
case is >0
s=0
for i=1 to x
s=s+x
next x
msgbox "суммa положительных элементов=" & cstr(s)
case is <0
s=1
for i=-1 to x step -1
s=s*x
next x
msgbox "произведение отрицателных элементов=" & cstr(s)
case 0
msgbox "фигня какая-то"
end select

@Арби · 11.01.2010, 22:03 **[ТС]**

На просьбу решить один прислал этот код: if N>0 then for i=1 to N.......И программа выделяет next X.А когда убираешь букву x, то вычисляет квадрат числа...вот.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20

	наибольший общий делитель. массивы 11.01.2010, 17:20. Показов 5348. Ответов 16 Метки нет (Все метки) Заранее благодарен! Могли бы прислать программные коды на почтовый адрес sellexioner@yandex.ru.....на кону вся жизнь и карьера начинающего программиста 1))))Написать программу, которая вычисляет наибольший общий делитель двух введенных с клавиатуры чисел. 2)))Задан массив на 10 вещественных чисел. Вычислить сумму четных элементов и количество нечетных. 3)))Дано число. Если оно положительно, то вычислите сумму всех целых чисел до заданного числа включительно, отрицательное произведение. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 17:50 [ТС]
	Спасибо тебе большое!Ты угадал.:-)Я не учусь на факультете программирования, но мне необходимо сдать курсовую работу по информатике(завтра),в которой есть эти три задачи. Надеюсь,ты не откажешь в помощи,если попрошу написать полные коды этих задач. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 18:30 [ТС]
	У меня интернет зависает, и по этой причине- дважды одна и та же тема.:-)У меня почему-то выдает НОД= ЛОЖЬ...Как объясните? Добавлено через 8 минут Заданное число- это то, которое нужно ввести. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 18:49 [ТС]
	Вторая задача выдает compile error: else without if... и private sub выделяется желтым цветом.Брат,а третью можешь посмотреть? 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 19:09 [ТС]
	Спасибо за внимание и понимание!После изменения 6 строки выделил количество. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 19:39 [ТС]
	VB 6.0 Сейчас работает!Все супер!Помоги с третьей, пожалуйста!!! 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 20:18 [ТС]
	Visual Basic 6. У меня проблемы с третьей...три часа с ней волокита...Интернет барахлит,вот.. Добавлено через 8 минут До любого числа, которое мы вводим в программу.В условии говорится только об этом.Я сейчас уточню. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 21:15 [ТС]
	У меня пока нет возможности узнать условие задачи.Может она выглядела таким образном...Дано число.Если оно положительно, то вычислите сумму всех целых чисел до заданного числа включительно.Если оно отрицательно,то произведение этих чисел.К примеру: допустим, что это число 5.Тогда сумма чисел составляет 0+1+2+3+4+5=15.Если это -5, то тогда (-1)(-2)(-3)(-4)(-5)=-125. 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	11.01.2010, 22:03 [ТС]
	На просьбу решить один прислал этот код: if N>0 then for i=1 to N.......И программа выделяет next X.А когда убираешь букву x, то вычисляет квадрат числа...вот. 0