| Вопрос: Сделайте, пожалуйста, задачу, бесплатно | Добавлено: 03.06.06 14:40 |
Автор вопроса:  Ольга
|
|
Прошу, всех, кто может помочь, безвозмездно:
Ввести список футбольных команд России и количество очков, набранных каждой командой в чемпионате. Известно, что нет команд с равным кол-ом очков. Какая из команд стала чемпионом? Составьте список команд, набравших > 15 очков |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа: igor Вопросов: 0 Ответов: 1 |
Профиль | | #1 | Добавлено: 03.06.06 15:59 |
|
Консольное приложение на vb.net:
Module Module1
Structure Command Dim Name As String 'название команды Dim Point As Byte 'число очков в чемпионате End Structure Dim CCount As Byte 'число команд Dim ch As Command Sub Main() Dim i As Byte 'счетчик для цикла Console.Write("Число команд: " 
CCount = Console.ReadLine Dim Commands(CCount - 1) As Command 'массив из команд For i = 0 To CCount - 1 'вводим информацию о команде Console.Write((i + 1).ToString & "/" & CCount.ToString & " команда: " 'выводим строку вида "x/n команда: "
Commands(i).Name = Console.ReadLine 'название команды Console.Write(" Очков: "
Commands(i).Point = Console.ReadLine 'число очков Next Console.WriteLine() 'пустая строка For i = 0 To CCount - 1 'ищем чемпиона If Commands(i).Point > ch.Point Then ch = Commands(i) 'ищем максимальное число очков If Commands(i).Point > 15 Then Console.WriteLine(Commands(i).Name & " (" & Commands(i).Point.ToString & " " 'выводим команду если очков больше 15
Next Console.WriteLine() 'пустая строка Console.WriteLine(" Чемпион: " & ch.Name & "  " & ch.Point.ToString & "" 'вывод чемпиона
Console.ReadLine() End Sub End Module |
||
|
Номер ответа: 2 Автор ответа:  ОльгаВопросов: 10 Ответов: 5 |
Профиль | | #2 | Добавлено: 03.06.06 16:29 |
|
2 igor Мне нужно на visual basic 5.0 я вставляю программый код, в project1 , запускаю на выполнение, он не идет...Пожалуйста, напиши куда нужно код вставлять??? |
||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 03.06.06 18:02 |
|
Ольга, а почему бы не самой, почитать основы васика, чисто для себя, для интереса... + польза, будешь уметь сама делать такие задачи и помогать другим
|
||
|
Номер ответа: 4 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #4 | Добавлено: 03.06.06 19:37 |
|
Тот редкий случай, когда я поддерживаю HACKER'а - Ольга! Надо же иметь совесть - это простейшая задачка! Зачем тебе вообще нужен Бэйсик если ты о нем знаешь столько же сколько о теории квантового хаоса?
ОК... Качай мою работу с www.2255.nm.ru/SPECIAL/Champion.rar Листбоксы List1, List2 Кнопки But1, But2, But3 (Найти Чемпиона, Добавить, Удалить) Лэйбл Cham Текстбокс Text1 Private Sub but1_Click()
Dim i As Integer, C As Integer, maX As Integer, maxI As Integer List2.Clear With List1 If .ListCount = 0 Then Exit Sub For i = 0 To .ListCount - 1 C = Int(Val(Mid(.List(i), InStr(.List(i), " " + 1)))
If C > 14 Then List2.AddItem (.List(i)) If C > maX Then maxI = i: maX = C End If Next i Cham = .List(maxI) End With List2.Visible = True End Sub Private Sub but2_Click() List1.AddItem Trim(Text1), 0 Text1 = "" End Sub Private Sub but3_Click() If List1.ListCount = 0 Then Exit Sub List1.RemoveItem List1.ListIndex End Sub |
||
|
Номер ответа: 5 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #5 | Добавлено: 03.06.06 23:18 |
|
Ой.. сорри надо заменить C > 14 на
C > 15 - опечаточка
|
||
|
Номер ответа: 6 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #6 | Добавлено: 05.06.06 18:37 |
|
Не, ну это просто офигеть:
Сделайте бесплатно мне задачку - на те, сделали бесплатно, и даже спасибо не сказала >
|
||
|
Номер ответа: 7 Автор ответа: ОльгаВопросов: 10 Ответов: 5 |
Профиль | | #7 | Добавлено: 06.06.06 11:39 |
|
Nj, не кричи, я на сессии была, на форум некогда было заглянуть... Большое тебе спасибо, за задачу, работает Супер.. !У меня еще возник вопросик, ты случайно не знаешь, как в имеющемся файле из целых чисел их упорядочить по возрастанию?! |
||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 06.06.06 13:48 |
| 2 Nj, а ты меньше делай... Ты Отльге делаешь медевжью услугу... подумай об этом... | ||
|
Номер ответа: 9 Автор ответа: NjICQ: 223663115 Вопросов: 21 Ответов: 285 |
Профиль | | #9 | Добавлено: 06.06.06 14:12 |
|
Пусть сама решает, HACKER, не надо всех наставлять и учить: это не делай, это плохо, это сам ищи...
Ты знаешь, я знаю - а Ольга пусть сама решает: если бы ей нужен был бэйсик, она бы ему научилась, а если ей просто надо отмотать курс по инфе с бэйсиком в инсте с нулевыми знаниями в этой области - дело её, а я просто тренируюсь во-первых, ну как никак облегчаю ей жизнь во-вторых. 2 Ольга: 1. Файл надо считать в массив и закрыть. 2. Надо создать на форме ЛистБокс или объект листбокс (я бы так сделал) 3. Надо при помощи цикла раскидать элементы по листу. 4. Записать файл заново из листа. P.S. Я подумаю на досуге над этим алгоритмом. Пиши в асю, а то могу забыть. |
||
|
Номер ответа: 10 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #10 | Добавлено: 07.06.06 10:02 |
| Ага, а сво-во сортинг у листа поставить и не мучаться? На крайняк, если неохота юзать этот метод - есть куча вариантов сортировки. | ||
|
Номер ответа: 11 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #11 | Добавлено: 07.06.06 12:51 |
| ольга поставь vb6 и не доводи форумлян! | ||
|
Номер ответа: 12 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #12 | Добавлено: 07.06.06 12:52 |
cd молча и не dvd меня до белого каления 
|
||
Страница: 1 |