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

@Арби · Регистрация: 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, то вычисляет квадрат числа...вот.

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

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

	наибольший общий делитель. массивы 11.01.2010, 17:20. Показов 5342. Ответов 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