Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [VB6] Ввод действительных чисел 
:(
    Опции темы
Гость_Студент
Дата 27.5.2005, 11:16 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите решить задачи на Visual Basic, без применения всяких компонентов, только Input Box и MsgBox:
1.
В одну и ту же переменную последовательно вводятся действительные числа. Количество вводимых чисел заранее не известно. Определить номер и значение ПОСЛЕДНЕГО максимального числа. Определить номер и значение ПЕРВОГО минимального числа.

М
 
Один топик - один вопрос!


Это сообщение отредактировал(а) Pakshin A. S. - 27.5.2005, 18:32
  Вверх
ChofCh
Дата 27.5.2005, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 27.4.2005
Где: г. Долгопрудный

Репутация: 1
Всего: 2
Чёрт, лишний раз на Enter нажал...

Это сообщение отредактировал(а) ChofCh - 27.5.2005, 20:02
PM MAIL ICQ   Вверх
ChofCh
Дата 27.5.2005, 19:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 27.4.2005
Где: г. Долгопрудный

Репутация: 1
Всего: 2
Т.к. явно в запросе версия языка была не указана, писал на VB6.
1. Не уверен, что правильно понял условие, но вроде бы так:
Код

Private Sub Main()
Dim X As Double, Xmin As Double, Xmax As Double
Dim I As Long, Imin As Long, Imax As Long
I=1
Imin=1
Imax=1
X=InputBox("Введите число")
Xmax=X
Xmin=X
Do While MsgBox("Продолжить последовательность?", vbYesNo)=vbYes
X=InputBox("Введите число")
I=I+1
If If X<Xmax Then
  If X<Xmin Then
    Xmin=X
    Imin=I
  End If
Else
  Xmax=X
  Imax=I
End If
Loop
MsgBox "Минимальное значение " & Xmin & " номер первого минимального значения - " & Imin
MsgBox "Максимальное значение " & Xmax & " номер первого максимального значения - " & Imax
End Sub

2. Где-то так:
Код

Private Sub Main()
Dim X As Double
Dim Sum As Double
Dim Pos As Long, Zeros As Long, ZerosMax As Long
Dim ZeroChain As Boolean
Pos=0
Sum=0
ZeroMax=0
ZeroChain=False
Do
X=InputBox("Введите число")
If X=0
 If ZeroChain Then Zeros=Zeros+1 Else Zeros=1
Else
 Sum=Sum+X
 Pos=Pos+1
 If ZeroChain Then
   If Zeros>ZerosMax Then ZerosMax=Zeros
 End If
End If
Loop Until MsgBox ("Закончить ввод?", vbYesNo)=vbYes
MsgBox "Длина максимальной цепочки нулей: " & ZerosMax
MsgBox "Количество положительных чисел: " & Pos
MsgBox "Их сумма: " & Sum
End Sub

3. Метод стремный, но должен работать:
Код

Private Sub Main()
Dim Sum As Long, X As Integer, S As String, i As Long
S=InputBox("Введите число")
For i=1 to Len(S)
X = Asc(Mid$(S,i,1))-Asc(0)
If (X<10) And  (X>=0) Then Sum=Sum+X
Next i
MsgBox "Сумма цифр во введенном числе:" & Sum
End Sub
PM MAIL ICQ   Вверх
Гость_Студент
Дата 30.5.2005, 06:53 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Спасибо за помощь! Первая задача правильно сделана, а вот вторая несчитает чепочки введенных нулей. А в третьей задаче кажется надо найти сумму чисел вещественного числа, т.е. число до запятой и после, и посчитать их сумму, например, 22,2 значит
22+2=24 вот вроде. С 3 третьей задачей у меня запарка только в том, что я незнаю как разделить целую часть и дробную.
  Вверх
Yanis
Дата 30.5.2005, 10:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 4
Всего: 111
И что тебе нужно то?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Гость_Студент
Дата 30.5.2005, 21:23 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Как отделить целую и дробную часть в вещественном числе, например 22,2 Как отделить 22 и 2, чтобы потом сложить?
  Вверх
ChofCh
Дата 30.5.2005, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 27.4.2005
Где: г. Долгопрудный

Репутация: 1
Всего: 2
Пропатченый вариант второй задачки (блин, забыл написать пару тривиальных вещей):
Код

Private Sub Main()
Dim X As Double
Dim Sum As Double
Dim Pos As Long, Zeros As Long, ZerosMax As Long
Dim ZeroChain As Boolean
Pos=0
Sum=0
ZeroMax=0
ZeroChain=False
Do
X=InputBox("Введите число")
If X=0
 If ZeroChain Then
  Zeros=Zeros+1
 Else
  Zeros=1
  ZeroChain=True
 End If
Else
 Sum=Sum+X
 Pos=Pos+1
 If ZeroChain Then
   If Zeros>ZerosMax Then ZerosMax=Zeros
   ZeroChain=False
 End If
End If
Loop Until MsgBox ("Закончить ввод?", vbYesNo)=vbYes
If ZeroChain Then
 If Zeros>ZerosMax Then ZerosMax=Zeros
End If
MsgBox "Длина максимальной цепочки нулей: " & ZerosMax
MsgBox "Количество положительных чисел: " & Pos
MsgBox "Их сумма: " & Sum
End Sub

3. Ну, елы-палы:
Код

Private Sub Main()
Dim X As Double, S As Long
X=InputBox("Введите число")
S=Int(X)
X=X-Int(X)
Do While Int(X)<>X
 X=X*10
Loop
S=S+X
MsgBox "Сумма цифр во введенном числе:" & S
End Sub
PM MAIL ICQ   Вверх
Гость_Студент
Дата 1.6.2005, 05:56 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
ОГРОМНОЕ СПАСИБО!!!
  Вверх
volk
Дата 29.1.2007, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.1.2007

Репутация: нет
Всего: нет
Помогите, пожалуйста, решить 2 задачки на Visual Basic. Заранее благодарю!
1. Задана строка символов. Группы символов, разделенные пробелом и не содержащие пробелов внутри себя, будем называть словами. Вывести все буквы, которые входят в наибольшее количество слов строки.

2.Одномерные массивы. Решить следующую задачу.
Дана последовательность а1,а2,...,а40. Расположить положительные элементы последовательности, стоящие на нечетных местах, по возрастанию.


M
Alexeis		Модератор: Пожалуйста, один топик - один вопрос.



Это сообщение отредактировал(а) Alexeis - 30.1.2007, 15:31
PM MAIL   Вверх
Strannik
Дата 29.1.2007, 11:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.1.2007

Репутация: 1
Всего: 2
Цитата

Помогите, пожалуйста, решить 2 задачки на Visual Basic.

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

Добавлено @ 11:47 
Так что могу только алгоритм рассказать...
PM MAIL   Вверх
volk
Дата 29.1.2007, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.1.2007

Репутация: нет
Всего: нет
надо обязательно на VB 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0515 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.