ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с решением задач
25 сообщений из 93, страница 2 из 4
  2  все
Проблемы с решением задач
    #37793906
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Код: 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.
Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
d1 = Sqr(ax ^ 2 + ay ^ 2)
d2 = Sqr(bx ^ 2 + by ^ 2)
d3 = Sqr(cx ^ 2 + cy ^ 2)
If (d1 < d2) And (d1 < d3) Then
Print ("точка А")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("точка В")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("точка С")
else
If d1 = d2 and d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub
...
Рейтинг: 0 / 0
14.05.2012, 21:41
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793920
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
nordstесли ax и ay соответственно равны 1 и 2а вот мы дошли и до главного, а в каком случае ax и ay будут равны 1 и 2? Укажите ту строку, которая за это отвечает
...
Рейтинг: 0 / 0
14.05.2012, 21:53
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793944
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
Shocker.Pro,

ну если я их введу 1 и 2, или не то?

BelowZero,
спасибо большое, дай бог тебе здоровья =)
но до конца не работает, но это думаю сам додумаю
...
Рейтинг: 0 / 0
14.05.2012, 22:06
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793961
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Proа вот мы дошли и до главноготут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием, поэтому проще выдать челу положенную порцию рыбы.nordst но до конца не работает, но это думаю сам додумаю т.е. не работает? что именно не работает? пиши - исправим
...
Рейтинг: 0 / 0
14.05.2012, 22:24
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793978
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
nordstну если я их введу 1 и 2, или не то?куда?BelowZeroтут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием, поэтому проще выдать челу положенную порцию рыбы.ну так выдай тогда, что ходишь вокруг да около и кота тянешь. Только выдавай рабочий проверенный вариант, а не как обычно.
...
Рейтинг: 0 / 0
14.05.2012, 22:43
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793984
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
BelowZero,

когда ввожу любые координаты мне все равно пишет "все три точки равноудалены от центра координат", при любых координатах
но все равно спасибо

BelowZeroтут единичный случай, врят ли афффтар топика решит неожиданно увлечься программированием

наверное Вы правы
Shocker.Proкуда?

в текстбокс на форме
...
Рейтинг: 0 / 0
14.05.2012, 22:53
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793996
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
nordstShocker.Proкуда?в текстбокс на формеа где текстбокс в вашей формуле?
Код: vbnet
1.
d1 = Sqr(ax ^ 2 + ay ^ 2)
...
Рейтинг: 0 / 0
14.05.2012, 23:07
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37793999
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
nordstкогда ввожу любые координаты мне все равно пишет "все три точки равноудалены от центра координат", при любых координатахпотому что при твоём вводе данныхShocker.Proни одно условие не выполняется. то есть все переменные равны между собой, а такого условия у вас не предусмотрено.
не проверял, но должно работать
Код: 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.
Option Explicit
Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
ax = InputBox("введите координаты х первой точки", "")
ay = InputBox("введите координаты у первой точки", "")
bx = InputBox("введите координаты х второй точки", "")
by = InputBox("введите координаты у второй точки", "")
cx = InputBox("введите координаты х третьей точки", "")
cy = InputBox("введите координаты у третьей точки", "")
d1 = Sqr(ax ^ 2 + ay ^ 2)
d2 = Sqr(bx ^ 2 + by ^ 2)
d3 = Sqr(cx ^ 2 + cy ^ 2)
If (d1 < d2) And (d1 < d3) Then
Print ("первая точка")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("вторая точка")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("третья точка")
Else
If d1 = d2 And d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
Else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub
...
Рейтинг: 0 / 0
14.05.2012, 23:12
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794002
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> BelowZero
> не проверял, но должно работать

А стоило бы проверить.
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub test()
  Dim x As Integer

  x = Sqr(5)
  Debug.Print x, Sqr(5)
End Sub
...
Рейтинг: 0 / 0
14.05.2012, 23:17
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794003
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
BelowZero,

работает, ещё раз огромное спасибо
...
Рейтинг: 0 / 0
14.05.2012, 23:17
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794005
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
Shocker.Proа где текстбокс в вашей формуле?


видимо нету, но про введение координат из формы, это было мое видение решения, но так как написал BelowZero тоже устроит проверяющих
...
Рейтинг: 0 / 0
14.05.2012, 23:19
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794018
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
скукотищаА стоило бы проверить.ну Белов у нас не настолько приземлен, чтобы изучать какие-то там типы данных.
...
Рейтинг: 0 / 0
14.05.2012, 23:45
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794024
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
скукотища> BelowZero
> не проверял, но должно работать

А стоило бы проверить.
Код: vbnet
1.
2.
3.
4.
5.
6.
Sub test()
  Dim x As Integer

  x = Sqr(5)
  Debug.Print x, Sqr(5)
End Sub

сейчас нет доступа к компу, сплю, потому не могу проверить, в чем ошибка. видимо, в присвоении переменной иррационального числа. ща попробую с телефона подправить код)
...
Рейтинг: 0 / 0
14.05.2012, 23:56
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794030
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Код: 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.
Option Explicit
Private Sub Command1_Click()
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer, d1 As Integer, d2 As Integer, d3 As Integer
ax = InputBox("введите координаты х первой точки", "")
ay = InputBox("введите координаты у первой точки", "")
bx = InputBox("введите координаты х второй точки", "")
by = InputBox("введите координаты у второй точки", "")
cx = InputBox("введите координаты х третьей точки", "")
cy = InputBox("введите координаты у третьей точки", "")
d1 = ax ^ 2 + ay ^ 2
d2 = bx ^ 2 + by ^ 2
d3 = cx ^ 2 + cy ^ 2
If (d1 < d2) And (d1 < d3) Then
Print ("первая точка")
Else
If (d2 < d3) And (d2 < d1) Then
Print ("вторая точка")
Else
If (d3 < d1) And (d3 < d2) Then
Print ("третья точка")
Else
If d1 = d2 And d1 = d3 Then
Print ("все три точки равноудалены от центра координат")
Else
If d1 = d2 Then Print ("1 и 2 точки равноудалены")
If d1 = d3 Then Print ("1 и 3 точки равноудалены")
If d2 = d3 Then Print ("2 и 3 точки равноудалены")
End If
End If
End If
End If
End Sub
...
Рейтинг: 0 / 0
15.05.2012, 00:03
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794064
Фотография MasterZiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MasterZiv
Участник
Эникейщик тынц

О! Можно я это себе в С++ скопиписчу ?
Достали эти стьюденты ужо... А тут так ясно, доходчиво, и вместе с тем мягко посылают...
...
Рейтинг: 0 / 0
15.05.2012, 01:15
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794068
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
MasterZivЭникейщик тынц

О! Можно я это себе в С++ скопиписчу ?
Достали эти стьюденты ужо... А тут так ясно, доходчиво, и вместе с тем мягко посылают...Нужно!
Shocker.Pro, в общем мы подумали и решили тебя сплагиатить.
...
Рейтинг: 0 / 0
15.05.2012, 01:32
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37794132
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
MasterZiv, White Owl, дык. не возражаю. Можете где-нить внизу маленькими серыми буквами копирайт прицепить, раз так смущаетесь. )
...
Рейтинг: 0 / 0
15.05.2012, 08:30
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797617
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
тему можно закрывать, задания сданы
всем ещё раз большое спасибо
...
Рейтинг: 0 / 0
16.05.2012, 18:14
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797622
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
nordstтему можно закрывать, задания сданы
особенно интересует, как было сдано заданиеnordst2) Используя цикл For...Next, выполните
...
Рейтинг: 0 / 0
16.05.2012, 18:19
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797774
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
Shocker.Pro,

ну то задание я сделал первым поэтому не стал дописывать, а удалить забыл)
...
Рейтинг: 0 / 0
16.05.2012, 20:10
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797777
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
глубоко обидно за наши вузы(( как афффтару удалось сдать зачёт - для меня загадка. мне, конечно, не жалко дипломов, но всё это как-то печально
...
Рейтинг: 0 / 0
16.05.2012, 20:15
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797929
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
BelowZero,

не зачет, это 1 лабораторная
программирование не мой профильный предмет
я не в коем случае не отмазываюсь или что-то подобное, просто на выходе мне это программирование да ещё и в ВБ уверен не понадобится
...
Рейтинг: 0 / 0
16.05.2012, 23:12
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797935
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
nordstмне это программирование да ещё и в ВБ уверен не понадобитсято же самое можно сказать про большинство предметов... Ты читал Дюма "Три Мушкетера"?
...
Рейтинг: 0 / 0
16.05.2012, 23:17
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797997
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
Shocker.Proто же самое можно сказать про большинство предметов... Ты читал Дюма "Три Мушкетера"?

ну не большинство, но процентов 30 точно не понадобится

зы. да читал ещё в школе
...
Рейтинг: 0 / 0
17.05.2012, 00:35
| Ответить | Цитировать | Написать  
Проблемы с решением задач
    #37797998
nordst
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nordst
Гость
Ребят а скажите если не секрет, сколько вы бы попросили денег за решение этих задач которые в 1 посте?
они то по сути для вас легкими должны быть
...
Рейтинг: 0 / 0
17.05.2012, 00:36
| Ответить | Цитировать | Написать  
25 сообщений из 93, страница 2 из 4
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проблемы с решением задач
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37793978&tid=2157711]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 15ms
total:  139ms
созд. / загр.: 139ms
x
x
Закрыть


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