Написать код и нарисовать блок-схему

@KiRiLL1990 · Регистрация: 05.04.2010

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

Помогите пожалуйста решить:

Задана произвольная последовательность целых положительных чисел, среди которых есть одно отрицательное. Определить наибольшее значение среди членов последовательности, расположенных до отрицательного члена (числа вводятся по одному)

@YuraAAA · 06.04.2010, 00:27

Visual Basic

Private Sub Command1_Click()
Dim b() As Integer, i As Byte, O As Integer, max As Integer, n As Byte
n = InputBox("Vvedite kol-vo elementov")
ReDim b(1 To n) As Integer
For i = 1 To n
b(i) = InputBox("Vvedite element: " & i)
Next i
O = 0
For i = 1 To n
If b(i) < 0 Then
O = i
Exit For
End If
Next i
If O = 0 Then MsgBox ("Net otrizatelnix"): Exit Sub
If O = 1 Then MsgBox ("Otricatel'noe - pervoe"): Exit Sub
max = b(1)
For i = 1 To O - 1
If b(i) > max Then max = b(i)
Next i
MsgBox (max)
End Sub

@KiRiLL1990 · 06.04.2010, 01:07 **[ТС]**

Спасибо большое, а то я практически не шарю в VB, ещё вопрос: а как будет примерно выглядеть блок-схема

@YuraAAA · 06.04.2010, 02:10

Кривенько конечно,но как-то вот так =))

@KiRiLL1990 · 06.04.2010, 02:25 **[ТС]**

Большое спасибо!!!

@KiRiLL1990 0 / 0 / 0 Регистрация: 05.04.2010 Сообщений: 14
		1
	Написать код и нарисовать блок-схему 05.04.2010, 23:54. Показов 1564. Ответов 4 Метки нет (Все метки) Помогите пожалуйста решить: Задана произвольная последовательность целых положительных чисел, среди которых есть одно отрицательное. Определить наибольшее значение среди членов последовательности, расположенных до отрицательного члена (числа вводятся по одному) 0

@KiRiLL1990 0 / 0 / 0 Регистрация: 05.04.2010 Сообщений: 14
	06.04.2010, 01:07 [ТС]	3
	Спасибо большое, а то я практически не шарю в VB, ещё вопрос: а как будет примерно выглядеть блок-схема 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	06.04.2010, 02:10	4
	Кривенько конечно,но как-то вот так =)) Миниатюры 0

@KiRiLL1990 0 / 0 / 0 Регистрация: 05.04.2010 Сообщений: 14
	06.04.2010, 02:25 [ТС]	5
	Большое спасибо!!! 0