Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста / 8 сообщений из 8, страница 1 из 1
24.05.2008, 23:55
    #35333292
Milagros
Milagros
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
Помогите сделать нетрудное задание. У меня никак не получается, но я новичок в VB.

Задача : Даны три числа a,b,c Удвоить каждое из данных чисел, если a>=b>=c и заменить их модулями в противном случае.
Для задания значений a,b,c использовать элементы управления textBox, каждый из которых снабдить поясняющей надписью ( элемент управления Label ) . Запуск вычислений производить с помощью командной кнопки “Вычислить”. Результат вычисления представить на форме, с помощью элементов управления textBox .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 03:21
    #35334203
M.A.R.K
M.A.R.K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
Milagros, попробуй так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim a as long
Dim b as long
Dim c as long

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

if (a >= b) and (b >= c) then
  a = a *  2 
  b = b *  2 
  c = c *  2 
else
  a =  0  - a
  b =  0  - b
  c =  0  - c
end if
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 09:46
    #35334363
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
авторa = 0 - a Сие даже на кол не тянет. Что Вы получите при положительном числе? Скорее уж лучше взять корень из квадрата.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 10:26
    #35334442
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
> Автор: AndreyMp
> автор
> a = 0 - a
> Сие даже на кол не тянет. Что Вы получите при положительном числе?
> Скорее уж лучше взять корень из квадрата.

А что Abs() отменили???

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 10:30
    #35334456
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
автор Abs :) Ну это слишком просто. Надо ж поизвращаться.:))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 11:51
    #35334707
M.A.R.K
M.A.R.K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
Было сказано: "...и заменить их модулями в противном случае."
То есть, имеем:
a = 3
b = -56
c = -144
(a > b) ? - Да
(b > c) ? - Да
=>Переворачиваем модули...
a = -3
b = 56
c = 144

Ваши комментарии...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 11:55
    #35334723
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
Модуль числа 3 есть 3, а не -3. И все комментарии ... :))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2008, 11:57
    #35334728
M.A.R.K
M.A.R.K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите, пожалуйста
AndreyMp
Точно, а я забыл совсем... ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 422ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162244]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 3ms
track hit:
 139ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 199ms
total:  422ms
x
x
Закрыть


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