Нужна блок-схема

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

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

Кто умеет составлять блок-схему?..........

Visual Basic
1
2
3
4
5
6
7
8
Dim x As Integer, y As Integer
x=InputBox("Введите х")
у=InputBox("Введите y")
Do
If x>y Then x=x Mod y Else y=y Mod x
Loop Until (x=0) Or (y=o)
MsgBOX "НОД" & Cstr ((x+y)) 
End Sub

Добавлено через 12 минут
И еще одна схема...для выносливых.:-)До завтра позарез нужна!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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 
End If
Next i
MsgBOX "сумма четных элементов=" & CSts(s) & ", количество нечетных=" & CStr (k)

Спасибо за внимание!

Добавлено через 15 секунд
И еще одна схема...для выносливых.:-)До завтра позарез нужна!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
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 
End If
Next i
MsgBOX "сумма четных элементов=" & CSts(s) & ", количество нечетных=" & CStr (k)

Спасибо за внимание!

@BasicMan · 12.01.2010, 10:24

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

y=o

ничо не попутал? О_О
мож так y=0?

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

&i&

а здесь пробелы где потерял?

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

CSts

а чо эт за функция?

мдааа...

@Андрей Борисови · 12.01.2010, 11:13

Copy-Paste рулит

нафиг разбираться ?

@BasicMan · 12.01.2010, 11:19

Андрей Борисови, эт не копипаст(эт хуже....), сравни с оригиналом
наибольший общий делитель. массивы

Добавлено через 1 минуту
хотя вот это

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

y=o

для ВБ тож должно сработать, если там опшинексплисита нет

@Андрей Борисови · 12.01.2010, 11:34

это уже даже не смешно)

@Арби · 13.01.2010, 22:04 **[ТС]**

Спасибо Вам!Особенно Бурундуку!Респект и еще раз уважение!

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	12.01.2010, 11:13
	Copy-Paste рулит нафиг разбираться ? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	12.01.2010, 11:34
	это уже даже не смешно) 0

@Арби 0 / 0 / 0 Регистрация: 11.01.2010 Сообщений: 20
	13.01.2010, 22:04 [ТС]
	Спасибо Вам!Особенно Бурундуку!Респект и еще раз уважение! 0

Опции темы