Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
2 / 2 / 0
Регистрация: 06.01.2013
Сообщений: 26
1

три точки А, В, С на числовой оси

09.01.2013, 11:17. Просмотров 1792. Ответов 8
Метки нет (Все метки)


Даны три точки А, В, С на числовой оси. Точка С расположена между точками А и В. Найти произведение длин отрезков АС и ВС.
помогите реализовать на ВБА

A:= число
B:= число
C:= число
A < C < B
B < C < A
Как правильно запиисать, что точка С между А и В
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2013, 11:17
Ответы с готовыми решениями:

На оси ОХ расположены три точки а, b, с. Определить, какая из точек b или с расположена ближе к а
Помогите решить.Практические сдавать надо,а в этом мало понимаю.

На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?
На оси OX расположены три точки а, b, c. Определить какая из точек b или c расположены ближе к а?

Указать наименьшую длину числовой оси
Дана последовательность чисел a1, a2, ..., an. Указать наименьшую длину числовой оси, содержащую...

Указать наименьшую длину числовой оси, содержащую все эти числа
Дан массив чисел а1, а2,..., an. Указать наименьшую длину числовой оси, содержащую все эти числа

__________________
Помогаю в написании студенческих работ здесь.
8
Модератор
Эксперт Python
28417 / 15309 / 3018
Регистрация: 12.02.2012
Сообщений: 25,075
Записей в блоге: 4
09.01.2013, 12:07 2
Цитата Сообщение от Rwq Посмотреть сообщение
Как правильно запиисать, что точка С между А и В
- вот так:

Visual Basic
1
2
3
if (A <= C) And (B >= c) then 
   ...
end if
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
09.01.2013, 12:15 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
    Dim A As Double, B As Double, C As Double
    
    A = InputBox("A = ", , 2)
    B = InputBox("B = ", , 7)
    C = InputBox("C = ", , 5)
     
    If A < C And C < B Or A > C And C > B Then MsgBox "С находится между А и В" & vbCrLf & PrOt(A, B, C)
  
End Sub
 
Function PrOt(ByVal A As Double, ByVal B As Double, ByVal C As Double) As Double
    PrOt = Abs(A - C) * Abs(C - B)
End Function
1
2 / 2 / 0
Регистрация: 06.01.2013
Сообщений: 26
10.01.2013, 18:39  [ТС] 4
http://plus.google.com/photos/... 5842?hl=ru
Правильно ли я составил блок схему ? подскажите плиз
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
10.01.2013, 19:03 5
Что-то я по твоей ссылке куда не туда попадаю
0
2 / 2 / 0
Регистрация: 06.01.2013
Сообщений: 26
10.01.2013, 19:41  [ТС] 6
вот )
0
Миниатюры
три точки А, В, С на числовой оси  
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
10.01.2013, 20:05 7
Да, примерно так.

Сам попробовал программой сделать - получается не то.
Условия не все влазят, функцию нельзя воткнуть.
0
Миниатюры
три точки А, В, С на числовой оси  
2 / 2 / 0
Регистрация: 06.01.2013
Сообщений: 26
10.01.2013, 20:16  [ТС] 8
Твоя правильная ?

Добавлено через 1 минуту
Что за прога такая ?)
0
es geht mir gut
11222 / 4699 / 1178
Регистрация: 27.07.2011
Сообщений: 11,426
10.01.2013, 20:49 9
Твоя правильная ?
Не-а.


Цитата Сообщение от Rwq Посмотреть сообщение
Что за прога такая ?)

Вот
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2013, 20:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

На числовой оси расположены три точки..
НА числовой оси распложены три точки: A,B,C. Определить, какая из двух последних точек (B и С)...

Даны три точки на числовой оси. Найти длины отрезков и их сумму
1 Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.

Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
1. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти...

Дано целое число N (> 1) и две вещественные точки на числовой оси
Дано целое число N (&gt; 1) и две вещественные точки на числовой оси: А, В (А &lt;В). отрезок разбит на...


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

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

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