0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 54
1

Блок-схема к задаче нахождения двух наибольших чисел последовательности

06.05.2015, 00:38. Показов 3283. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Не могу нарисовать блок-схему, совсем запуталась. программа простенькая вроде. но схема...
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Sub Main()
        Dim x, Max1, Max2 As Integer
        Dim i As Integer = 0
        Console.WriteLine("Вводите числа последовательности (0 - конец ввода): ")
        Do
            Console.Write("> ")
            Do While Not Integer.TryParse(Console.ReadLine(), x)
                Console.Write("Ошибка! Введите число: ")
            Loop
            If x <> 0 Then
                If i = 0 Or x > Max1 Then
                    Max2 = Max1
                    Max1 = x
                ElseIf x > Max2 Then
                    Max2 = x
                End If
                i += 1
            End If
        Loop Until x = 0
        If i < 2 Then
            Console.WriteLine("Последовательность содержит меньше 2 чисел. ")
        Else
            Console.WriteLine("Два наибольших числа: {0}; {1}", Max1, Max2)
        End If
        Console.Write("Для завершения работы нажмите любую клавишу... ")
        Console.ReadKey()
    End Sub
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2015, 00:38
Ответы с готовыми решениями:

Блок-схема для нахождения суммы наибольших значений элементов столбцов двумерного массива
Программирование двумерных массивов. Дан двумерный числовой массив. Найти сумму наибольших значений...

Составить программу нахождения суммы двух наибольших из трех различных чисел
Составить программу нахождения суммы двух наибольших из трех различных чисел. ПОМОГИТЕ Девушке,...

Сумма двух наибольших чисел последовательности.
Здравствуйте, уважаемые. Прошу Вас, помочь мне разобраться в коде программы. Или упростить...

Составьте алгоритм и программу нахождения произведения двух наибольших из трех введенных чисел
Составьте алгоритм и программу нахождения произведения двух наибольших из трех введенных чисел....

9
es geht mir gut
11272 / 4756 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
06.05.2015, 07:34 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Так?
Миниатюры
Блок-схема к задаче нахождения двух наибольших чисел последовательности  
1
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 54
06.05.2015, 12:29  [ТС] 3
спасибо))^^
0
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 54
06.05.2015, 20:28  [ТС] 4
Пыталась ко второй задачке сделать блок-схему, можете проверить не запуталась ли я в условиях?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Public Class Оценка
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Clear()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show("Следует вводить числа", "Ошибка",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Clear()
            TextBox1.Focus()
            Exit Sub
        End If
        Dim X As Integer
        X = Convert.ToInt32(TextBox1.Text)
        If X = 5 Then
            MessageBox.Show("Молодец!")
        ElseIf X = 4 Then
            MessageBox.Show("Хорошо!")
        ElseIf X = 3 Then
            MessageBox.Show("Лентяй!")
        ElseIf X = 2 Then
            MessageBox.Show("Бездельник!")
        ElseIf X > 5 Or X < 2 Then
            MessageBox.Show("Введите оценку по пятибальной системе", "Ошибка",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
End Class
Миниатюры
Блок-схема к задаче нахождения двух наибольших чисел последовательности  
0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,221
06.05.2015, 20:32 5
SoftIce,
Как мне кажеся знак "?" лишний в блоке условий.
Просто "x<>0" вместо "x<>0?"
не?
0
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 54
06.05.2015, 20:51  [ТС] 6
Цитата Сообщение от Alex77755 Посмотреть сообщение
Как мне кажеся знак "?" лишний в блоке условий.
Просто "x<>0" вместо "x<>0?"
не?
это меняет что-то кроме соответствия госту?
0
es geht mir gut
11272 / 4756 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
06.05.2015, 21:27 7
Цитата Сообщение от Alex77755 Посмотреть сообщение
Просто "x<>0" вместо "x<>0?"
не?
Alex77755, этот знак вопроса вставляет редактор блок-схем автоматически, а я не стал поправлять.

И еще, заметил ошибку: вторая сверху стрелка(которая с левой стороны) должна быть расположена выше, то есть, чуть ниже первой
0
0 / 0 / 0
Регистрация: 18.07.2013
Сообщений: 54
07.05.2015, 01:02  [ТС] 8
Цитата Сообщение от SoftIce Посмотреть сообщение
И еще, заметил ошибку: вторая сверху стрелка(которая с левой стороны) должна быть расположена выше, то есть, чуть ниже первой
то есть?
а что за программа такая? я попробовала некоторые, но они так и не заработали.
0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,221
07.05.2015, 19:54 9
редактор блок-схем
У меня выдаёт в одном варианте такое:
Но он не обрабатывает вложенный If и схему делает не по нашим стандатам.
Позтому я перестал им пользоваться
Миниатюры
Блок-схема к задаче нахождения двух наибольших чисел последовательности  
0
11517 / 3803 / 681
Регистрация: 13.02.2009
Сообщений: 11,221
07.05.2015, 20:34 10
и ещё:
Миниатюры
Блок-схема к задаче нахождения двух наибольших чисел последовательности  
0
07.05.2015, 20:34
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.05.2015, 20:34
Помогаю со студенческими работами здесь

Напишите программу для нахождения произведения двух наибольших из трех веденных с клавиатуры чисел
Напишите программу для нахождения произведения двух наибольших из трех веденных с клавиатуры чисел...

Блок-схема к задаче: Найти и вывести на экран номера двух элементов массива, наименее отличающихся друг от друга
Здравствуйте! Помогите, пожалуйста, составить блок-схему к данной задаче. Впрочем, если не сложно,...

Определить в последовательности целых чисел сумму двух наибольших и сумму двух наименьших
Напишите программу, которая в последовательности целых чисел определяет сумму двух наи- больших и...

Циклы: в произвольном числовом ряду найти меньшее число из двух наибольших чисел этой последовательности
В произвольном числовом ряду (ввод чисел с клавиатуры, ввод завершить числом 0) найти меньшее число...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru