ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа анализа характеристик чисел личности
10 сообщений из 10, страница 1 из 1
Программа анализа характеристик чисел личности
    #38270746
Anna Lulu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anna Lulu
Гость
Здравствуйте, нужна очень помощь в составлении программы =(
Разработка программы анализа характеристик чисел личности, получаемых по числу, месяцу и году рождения в Visual Basic . Помогите пожалуйста.
Никогда не пользовалась Visual basic ;( Вот код этой программы под с++
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
#include <iostream>
#include <string>
#include <cctype>
#include <algorithm>
 
int main() 
{
    std::string s;
    std::getline( std::cin, s );
 
    int magic = 0;
 
    std::for_each( s.begin(), s.end(), [&magic](char c) 
    { 
        if( std::isdigit(c) ) magic+= (c-'0'); 
        if( magic > 10 ) magic = 1 + magic%10;
    } );
 
    std::cout << magic;
 
    std::system( "pause" );
    return 0;
}


Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
23.05.2013, 19:22:45
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270766
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
Anna Lulu,

Visual basic - вчерашний день !
переходите на кофейную гущу - идеальная "среда", кроссплатформенность, опять же ...
...
Рейтинг: 0 / 0
23.05.2013, 19:40:57
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270783
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
 
qwerty112,
кофейную гущу - джава?
2 - пофиг, потому что гладиолус - 14340250
...
Рейтинг: 0 / 0
23.05.2013, 19:51:30
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270803
Anna Lulu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anna Lulu
Гость
qwerty112, У меня задание,написать эту программу в delphi, pascal,c++,visual basic ;( осталось вот только в нём написать...
...
Рейтинг: 0 / 0
23.05.2013, 20:00:54
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270809
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Anna Lulu,
так Вы словами написали бы
если родился в чётный день то..
если в понед. то ...
если в январе то...
и таких то миллион
........
.......
...
Рейтинг: 0 / 0
23.05.2013, 20:05:33
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270810
qwerty112
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwerty112
Гость
 
катастрофаqwerty112,
кофейную гущу - джава?

тьху !
нет конечно ! в буквальном смысле на "кофейной гуще" ! :))

ТС "гадать" собирается по дате рождения,
так к чему ей эти программы ? ещё и электричество жечь ...

"старым-добрым" способом куда проще,
а "точность" "прогноза" - не меньше
...
Рейтинг: 0 / 0
23.05.2013, 20:06:14
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270813
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
qwerty112, тонкий юмор
...
Рейтинг: 0 / 0
23.05.2013, 20:08:29
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270814
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Anna LuluУ меня заданиену раз задание, тогда уделите пожалуйста время этому посту
...
Рейтинг: 0 / 0
23.05.2013, 20:09:28
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270819
Anna Lulu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Anna Lulu
Гость
Shocker.Pro,

Спасибо
...
Рейтинг: 0 / 0
23.05.2013, 20:11:54
| Ответить | Цитировать | Написать  
Программа анализа характеристик чисел личности
    #38270830
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ну так сложно, что ли, помочь? Больше времени на написание постов потратили...

Реализация почти один в один вышеприведенного алгоритма:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Sub Magic1()
    
    s$ = InputBox("Введите дату рождения")
    If (Len(s) = 0) Or (Val(s) = 0) Then Exit Sub
    s = Format(CDate(s), "dd.mm.yyyy")
    
    magic% = 0
    For i% = 1 To Len(s)
        magic = magic + Val(Mid(s, i, 1))
        If magic > 10 Then magic = 1 + magic Mod 10
    Next
    
    MsgBox "Magic(" & s & ")=" & magic

End Sub



Другой, более простой вариант:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub Magic2()
    
    s$ = InputBox("Введите дату рождения")
    If (Len(s) = 0) Or (Val(s) = 0) Then Exit Sub
    
    d& = CDate(s)
    magic% = (Day(d) + Month(d) + Year(d)) Mod 9
    
    MsgBox "Magic(" & Format(d, "dd.mm.yyyy") & ")=" & magic

End Sub
...
Рейтинг: 0 / 0
23.05.2013, 20:20:09
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа анализа характеристик чисел личности
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=58&tid=2156959]:
 0ms
get settings:
 9ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 196ms
total:  326ms
созд. / загр.: 326ms
x
x
Закрыть


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