ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пожалуийста на эту задачу!!
8 сообщений из 8, страница 1 из 1
помогите пожалуийста на эту задачу!!
    #38275275
druce
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
druce
Участник
Составить программу, реализующую алгоритм, преобразующий произвольное положительное число, записанное в арабских цифрах, в систему римских цифр и наоборот.
...
Рейтинг: 0 / 0
27.05.2013, 17:39
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275323
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
М-да
http://www.sql.ru/forum/actualsearch.aspx?a=druce&ma=0


Читаем тут
http://www.sql.ru/forum/132692/pravila-foruma-prochtite-pered-tem-kak-zadavat-vopros
и тут
http://www.sql.ru/forum/932580/posobie-dlya-studentov-i-shkolnikov
...
Рейтинг: 0 / 0
27.05.2013, 18:02
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275442
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Если VB - это VBA и Excel, то в Экзеле есть даже стандартные формулы листа - РИМСКОЕ() и АРАБСКОЕ(). Последняя, правда, появилась только в 2013-м
...
Рейтинг: 0 / 0
27.05.2013, 20:02
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275518
Volodbka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volodbka
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
Function VRymNumb$(VNumb%)

Dim Numb%
Dim RymNumb$
Dim i%

RymNumb$ = ""
Numb% = VNumb%

For i% = 1 To 20
If 1000 <= Numb% And Numb% <= 4000 Then
RymNumb$ = RymNumb$ & "M"
Numb% = Numb% - 1000
End If

If 4001 <= Numb% And Numb% < 5000 Then
RymNumb$ = RymNumb$ & "MC"
Numb% = Numb% - 4000
End If


If 500 <= Numb% And Numb% <= 900 Then
RymNumb$ = RymNumb$ & "D"
Numb% = Numb% - 500
End If

If 901 <= Numb% And Numb% < 1000 Then
RymNumb$ = RymNumb$ & "DC"
Numb% = Numb% - 400
End If



If 100 <= Numb% And Numb% <= 400 Then
RymNumb$ = RymNumb$ & "C"
Numb% = Numb% - 100
End If

If 401 <= Numb% And Numb% < 500 Then
RymNumb$ = RymNumb$ & "CL"
Numb% = Numb% - 400
End If

If 50 <= Numb% And Numb% <= 90 Then
RymNumb$ = RymNumb$ & "L"
Numb% = Numb% - 50
End If

If 41 <= Numb% And Numb% < 50 Then
RymNumb$ = RymNumb$ & "LX"
Numb% = Numb% - 40
End If

If 10 <= Numb% And Numb% <= 40 Then
RymNumb$ = RymNumb$ & "X"
Numb% = Numb% - 10
End If



If 5 <= Numb% And Numb% < 9 Then
RymNumb$ = RymNumb$ & "V"
Numb% = Numb% - 5
End If

If Numb% = 9 Then
RymNumb$ = RymNumb$ & "IX"
Numb% = Numb% - 9
End If

If 1 <= Numb% And Numb% < 4 Then
RymNumb$ = RymNumb$ & "I"
Numb% = Numb% - 1
End If

If Numb% = 4 Then
RymNumb$ = RymNumb$ & "IV"
Numb% = Numb% - 4
End If



Next i%

VRymNumb$ = RymNumb$
End Function



Это код содержит ошибки
...
Рейтинг: 0 / 0
27.05.2013, 21:22
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275525
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
 
в цикле пока число >=1000:
если число больше 1000 то
пишем М
вычитаем из числа 1000

если число больше 900 то
пишем СМ
вычитаем 900

если число больеш 500 то
пишем D
вычитаем 500

если число больше 400 то
пишем СМ
вычитаем 400

в цикле пока число >=100(или просто вставляешь 3 раза подряд):
если число больше 100 то
пишем С
вычитаем 100

если число больше 50 то
пишем L
вычитаем 50

если число больше 40 то
пишем ХL
вычитаем 40

в цикле пока число >=10:
если число больше 10 то
пишем Х
вычитаем 10

если число больше 5 то
пишем V
вычитаем 5

если число больше 4 то
пишем IV
вычитаем 4

если число

в цикле пока число >=1:
если число больше 10 то
пишем I
вычитаем 1
...
Рейтинг: 0 / 0
27.05.2013, 21:28
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275533
Клевер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Клевер
Участник
Volodbka,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
If 500 <= Numb% And Numb% <= 900 Then
RymNumb$ = RymNumb$ & "D"
Numb% = Numb% - 500
End If

If 901 <= Numb% And Numb% < 1000 Then
RymNumb$ = RymNumb$ & "DC"
Numb% = Numb% - 400
End If



поменяй циклы местами. кроме того в коде множество неправильных преобразований римских чисел. юзай мой код. там тоже есть ошибки, но их меньше)
...
Рейтинг: 0 / 0
27.05.2013, 21:36
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275548
Volodbka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volodbka
Участник
http://www.sql.ru/forum/1025513/pomogite-pozhaluiysta-ne-znau-kak-reshit-etu-zadachu?hl=
что-то такое надо делать, я не буду, мне не надо
...
Рейтинг: 0 / 0
27.05.2013, 21:57
| Ответить | Цитировать | Написать  
помогите пожалуийста на эту задачу!!
    #38275603
Volodbka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Volodbka
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
Function VRymNumb$(VNumb%)

Dim Numb%
Dim RymNumb$
Dim i%

RymNumb$ = ""
Numb% = VNumb%

For i% = 1 To 20


If Numb% = 1000 Then
RymNumb$ = RymNumb$ & "M"
Numb% = Numb% - 1000
End If


If 900 <= Numb% And Numb% < 1000 Then
RymNumb$ = RymNumb$ & "CM"
Numb% = Numb% - 900
End If
If 500 <= Numb% And Numb% <= 900 Then
RymNumb$ = RymNumb$ & "D"
Numb% = Numb% - 500
End If


If 400 <= Numb% And Numb% < 500 Then
RymNumb$ = RymNumb$ & "CD"
Numb% = Numb% - 400
End If
If 100 <= Numb% And Numb% <= 400 Then
RymNumb$ = RymNumb$ & "C"
Numb% = Numb% - 100
End If


If 90 <= Numb% And Numb% < 100 Then
RymNumb$ = RymNumb$ & "XC"
Numb% = Numb% - 90
End If
If 50 <= Numb% And Numb% <= 90 Then
RymNumb$ = RymNumb$ & "L"
Numb% = Numb% - 50
End If


If 40 <= Numb% And Numb% < 50 Then
RymNumb$ = RymNumb$ & "XL"
Numb% = Numb% - 40
End If

If 10 <= Numb% And Numb% < 40 Then
RymNumb$ = RymNumb$ & "X"
Numb% = Numb% - 10
End If

If Numb% = 9 Then
RymNumb$ = RymNumb$ & "IX"
Numb% = Numb% - 9
End If



If 5 <= Numb% And Numb% < 9 Then
RymNumb$ = RymNumb$ & "V"
Numb% = Numb% - 5
End If
If Numb% = 4 Then
RymNumb$ = RymNumb$ & "IV"
Numb% = Numb% - 4
End If



If 1 <= Numb% And Numb% < 4 Then
RymNumb$ = RymNumb$ & "I"
Numb% = Numb% - 1
End If

Next i%

VRymNumb$ = RymNumb$
End Function



если выборка найденная в инете - верна, то вот это работает
...
Рейтинг: 0 / 0
27.05.2013, 23:24
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / помогите пожалуийста на эту задачу!!
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38275518&tid=2156952]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 17ms
total:  161ms
созд. / загр.: 161ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]