Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Visual Basic .NET Реализация симплекс-метода https://www.cyberforum.ru/ vb-net/ thread1426831.html
Всем доброго времени суток. Требуется помощь с реализацией симплекс-метода на VB.NET. С самим методом знаком, но не слишком сильно. Подскажите, пожалуйста, структуру программы на примере следующей...
Visual Basic .NET Как добавить строки из DataGridView в таблицу Access
Вообщем проблема такая. Есть форма в нем 2 Текстбокса( Высота и Ширина) Нажимаю на кнопку ниже "Расчитать" Программа добавляет в DataGridView 5 строк c расчётами и картинками ,вот код: ...
Как из первой формы TextBox вывести значение во вторую форму в webbrowser Visual Basic .NET
Как мне из Form1 ( из текстбокса 2 ) - Вывести ip адресс для поиска во Form2 в Webbrowser Имеется вот такой вот код: Скопипастил код =) 'код 2 формы WebBrowser1.Navigate("www.infosniper.net")...
Visual Basic .NET Как нарисовать сектор с заливкой? В учебнике Зиборова предлагается такой вариант в несколько секторов, но он не работает на VB 2010 Sub DrawPieExample(ByVal e As PaintEventArgs) Dim g As Graphics = e.Graphics Dim largeRect... https://www.cyberforum.ru/ vb-net/ thread1426007.html
Visual Basic .NET 'ReDim' can only change the rightmost dimension в двухмерних массивах https://www.cyberforum.ru/ vb-net/ thread1425821.html
опять здравствуйте в проге создал кнопки: https://www.cyberforum.ru/vb-net/thread1422742.html каждая кнопка соответствует конкретному дню. объявил 2 интегера: ДН = выбранный день ДНС =...
Visual Basic .NET Почему на родительской форме появляется свернутое окно "MSCTFIME UI"?
Здравствуйте. Объясните в чем проблема? Появляется какое-то свернутое окно! Чтобы поймать открытие процесса, запускается из дочерней формы не дочерняя. Родительская со всеми дочерними при этом...
Visual Basic .NET Как можно узнать из файла .m3u название песни и вывести это название в Label?
Я делаю свою программку для прослушивания радиостанций (хоть таких и полно - но мне хочется создать что-то свое). Как можно узнать из файла .m3u название песни которая транслируется в данный момент и...
Visual Basic .NET Получить массив имен цветов (KnowColor) Здравствуйте. Мне надо получить массив имен цветов. Dim cname() As String =.GetNames(GetType(KnowColor)) В cname() оказываются все имена. В том числе системные цвета. Мне системные не нужны. ... https://www.cyberforum.ru/ vb-net/ thread1425320.html
Visual Basic .NET Обработка объекта item сообщения Interop.Outlook https://www.cyberforum.ru/ vb-net/ thread1424895.html
Всем привет! Подскажите, пожалуйста, возможно кто-то сталкивался с такой ситуацией: Пытаюсь через Interop.Outlook отловить отправку сообщения и прочесть адрес получателя Класс и метод: Imports...
Visual Basic .NET Отмена удаления строки DataGridView Имеется DataGridView1 без привязок к базам данных. При выделении строки и нажатии клавиши Del - строка удаляется, причём это происходит автоматически без реализации кода. Как мне заблокировать эту... https://www.cyberforum.ru/ vb-net/ thread1424608.html
COM‐пропагандист
478 / 412 / 100
Регистрация: 18.12.2014
Сообщений: 904
Записей в блоге: 1
22.04.2015, 00:22 0

Определить количество футбольных команд, что выиграли больше половины матчей

22.04.2015, 00:22. Просмотров 1054. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Переменные внутри функции нужно объявлять сразу же в месте использования. Выносить их в отдельный блок или писать в самом начале функции — это антишаблон программирования.
Переменной k не нужно присваивать 0, так как она уже получает ноль в качестве значения по умолчанию. Лишняя строка кода.
Создаётся массив A(n, n), но фактически будет создан массив A(0, 0), так как переменная n имеет значение по умолчанию 0, а значение ей задаётся уже после создания массива. Очевидная ошибка.
Для целочисленного деления нужно использовать оператор \ вместо /.
Во втором случае цикл можно заменить на For Each, это упростит код.
Можно использовать оператор «x += что‐то» вместо «x = x + что‐то».
vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Sub Main()
        Console.WriteLine("количество матчей")
        Dim n As Integer = Console.ReadLine()
        Dim A(n, n) As Integer
        For i As Integer = 0 To n
            For j As Integer = 0 To n
                A(i, j) = Console.ReadLine()
            Next j
        Next i
        Dim k, s As Integer
        For Each i As Integer In A(i, j)
                If i = 2 Then
                    k += 1
                End If
                If k > n \ 2 Then
                    s += 1
                End If
        Next
        Console.WriteLine("количество команд что выиграли больше половины матчей" & " " & s)
    End Sub
Однако я сомневаюсь, что величина s рассчитывается правильно, так как в этом коде она будет всегда накручиваться, как только k станет больше половины n.

Вернуться к обсуждению:
Определить количество футбольных команд, что выиграли больше половины матчей
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.04.2015, 00:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

БД футбольных матчей
В MS Access создана БД, в которой хранятся результаты проведенных матчей. Матч проводится путем...

бд футбольных матчей
как в этом месте (которое выделил) сделать так чтобы в "Команду1" и "Команду2" попадали разные...

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

Результаты футбольных матчей.
Даны два массива из 20 однозначных чисел. В первом из них записано количество мячей, забитых...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.