С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Khaker_tt
30 / 30 / 6
Регистрация: 24.11.2015
Сообщений: 330
Завершенные тесты: 1
1

Как определить количество страниц в книге, если известна сумма его страниц?

04.11.2016, 07:35. Просмотров 863. Ответов 2
Метки нет (Все метки)

Привет друзья.
Не получается решать одну задачу. Как определить количество стр в книге, когда суммы его страницы известно.
условия такая:
1+2+3+4+5+6+7+8+9=45
10=1+0=1
11=1+1=2
12=1+2=3
13=1+3=4
14=1+4=5
15=1+5=6
45+21=66
то есть итог 66.
Вот у меня код: которые через количество стр находить его сумму мне надо чтобы через суммы его стр нашёл количество страниц.
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
        Dim summa As Integer = 0
        Dim i As Integer
        Dim k, k2, k3, k4 As Integer
        Dim n As Integer = 15
        For i = 1 To n
            ListBox1.Items.Add(i)
            If i <= 9 Then
                summa = summa + i
            End If
            If i > 9 And i < 99 Then
                k = Mid(i, 1, 1)
                k2 = Mid(i, 2, 1)
                k3 = k + k2
                summa = summa + k3
            End If
            If i > 99 Then
                k = Mid(i, 1, 1)
                k2 = Mid(i, 2, 1)
                k3 = Mid(i, 3, 1)
                k4 = k + k2 + k3
                summa = summa + k4
            End If
            TextBox1.Text = summa
        Next
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.11.2016, 07:35
Ответы с готовыми решениями:

Как получить количество страниц в документе PDF
kak iz biblioteka pdf reader (Axdpdf) shitat countpage in.vbnet

Количество страниц в ReportViewer
Привет всем! Помогите, пожалуйста, решить проблемку... Пишу форму вывода...

Количество напечатанных принтером страниц
Допустим есть запущенная программа. Как заставить ее отслеживать сколько...

Как сделать несколько страниц на форме?
Как сделать Page'ы на форме?

Как вывести на печать диапазон страниц из документа Word?
Здравствуйте! Как печатать нужный страницы текстового редактора MS-Word через...

2
Step_UA
1422 / 555 / 192
Регистрация: 09.06.2011
Сообщений: 1,187
04.11.2016, 12:53 2
Лучший ответ Сообщение было отмечено OwenGlendower как решение

Решение

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim i, j As Integer, n As Long
        n = 66  ' сумма
        i = 0   ' номер строки
        While n > 0
            i = i + 1
            For j = 1 To i.ToString.Length
                n = n - Mid(i, j, 1)
            Next
        End While
        If n = 0 Then
            MsgBox(i)
        Else
            MsgBox("Строка отсутствует", MsgBoxStyle.Critical)
        End If
1
Khaker_tt
30 / 30 / 6
Регистрация: 24.11.2015
Сообщений: 330
Завершенные тесты: 1
04.11.2016, 14:40  [ТС] 3
Step_UA, Всё правильно спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2016, 14:40

Как оптимально сделать алгоритм параллельной загрузки и обработки веб-страниц
Всем привет! Моя программа сначала загружает исходный код ста html-страниц...

Определить количество страниц в книге
https://tproger.ru/problems/number-of-pages-in-a-book/ Не могу понять.

Определить количество страниц в самой толстой книге
В массиве хранится информация о количестве страниц в каждой из 100 книг. Все...


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

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

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