Форум программистов CodeGuru
23 Июль 2018, 05:46:40 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.

Войти
Новости:
 
   Начало   Помощь Войти Регистрация  
Страниц: [1]   Вниз
  Печать  
Автор Тема: помогите решить задачу  (Прочитано 8779 раз)
0 Пользователей и 1 Гость смотрят эту тему.
koko
Новичок
*
Офлайн Офлайн

Сообщений: 5


Просмотр профиля
« : 13 Май 2010, 10:56:27 »

Дано четырехзначное число. Составить алгоритм подсчета количества и
печати тех разрядов, которые равны нулю.

заранее благодарен.
Записан
3V
Администратор
Ветеран
*****
Офлайн Офлайн

Сообщений: 1347



Просмотр профиля WWW
« Ответ #1 : 13 Май 2010, 21:13:28 »

Можно перегнать число в строку и использовать функцию Mid для анализа на предмет существования символа "0" в нужной позиции. Т.к. заведомо известно, что число 4-х значное, то будет всего 4 условия.

Кстати, число именно 4-х значное, или максимум четырехзначное ?
Записан

koko
Новичок
*
Офлайн Офлайн

Сообщений: 5


Просмотр профиля
« Ответ #2 : 13 Май 2010, 23:16:35 »

Кстати, число именно 4-х значное, или максимум четырехзначное ?
именно 4-х значное
Записан
koko
Новичок
*
Офлайн Офлайн

Сообщений: 5


Просмотр профиля
« Ответ #3 : 14 Май 2010, 23:18:11 »

Dim massiv(4) As Integer
Dim i, j As Byte
Dim s, As String
s = ""
For i = 1 To 4
massiv(j) = InputBox("введи число")
 s = s + Str(massiv(j)) + " "
Next i
Text1 = s
For i = 1 To Len(j)
If Mid(j, i, 1) = "0" Then
Text2 = i
End If
Next i


вот написал такую программу, но она почмуто не совсем работает. Например, я ввожу такие числа как 5049 или 3800 ,он пишет ,что только один ноль. Поправьте пожалуйста
Записан
Valery
Пользователь
***
Офлайн Офлайн

Сообщений: 83


Просмотр профиля
« Ответ #4 : 15 Май 2010, 16:54:46 »

Text2 = i
Здесь у тебя всегда бутет переписыватся значение
т.е Text2 =1 потом Text2 = 2
Тебе надо суммировать Значения
С уважением Валерий
Записан
Страниц: [1]   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!