Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.82
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
#1

Найти сумму длин медиан треугольника - VB

24.12.2010, 16:53. Просмотров 1381. Ответов 10
Метки нет (Все метки)

1.Треугольник задан координатами вершин на плоскости A(X1,Y1), B(X2,Y2), C(X3,Y3).Найти сумму длин медиан треугольника ABC.
2.Написать программу, которая по номеру месяца выдает название следующего за ним месяца.
3.Найти все натуральные числаБ которые не превосходят заданного N, десятичная запись которых есть строго возрастающая или строго убывающая последовательность чисел.
4.Расположить элементы одномерного массива, заполненого случайным образом в интервале [-120,99/120,99], в следующем порядке:положительные, равные нулю, отрицательные.
VB 6
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 16:53
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти сумму длин медиан треугольника (VB):

Определение длин сторон треугольника - Visual Basic
В общем прога есть на построение треугольника по вершинам.Вершины задаются с клавиатуры.Надо определить длины сторон треугольника и вывести...

Найти расстояние от точки внутри треугольника к ближайшей стороне треугольника - Visual Basic
Для заданных трех вершин треугольника и точки, которая лежит внутри, найти расстояние от данной точки к ближайшей стороне треугольника. При...

Найти стороны треугольника - Basic
3.Треугольник задан значениями углов и радиусом заданной окружности. Найти стороны этого треугольника помогите, очень прошу, а то до...

Найти периметр треугольника - Visual Basic
2. треугольник задан координатами его вершин. Найти периметр треугольника.

Найти стороны треугольника - Visual Basic
Вычислить стороны треугольника A и B при условии, что заданы сторона C и углы треугольника α и ß . Назначение процедуры: Вычисление...

Найти площадь и периметр треугольника - Visual Basic
Выдает ошибку:wall: Private Sub smdStart_Click() A = Val(txtA.Text) B = Val(txtB.Text) C = Val(txtC.Text) P = A + B + C Pp = P...

10
Alex77755
10686 / 3261 / 538
Регистрация: 13.02.2009
Сообщений: 9,619
24.12.2010, 18:20 #2
Хорошо что заглянул в топик.
Действительно интересно!!
Интересно, что автор хотел этим сказать?
Или, может, задать вопрос?
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
24.12.2010, 23:34  [ТС] #3
да просто мне помощь нужна в решении этих заданий...если кто знает помогите плиз ...номер для контакта 9263138532
0
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,437
Записей в блоге: 2
25.12.2010, 00:30 #4
Ну так помощь же. Давайте свой код, посмотрим, исправим. Хотите что бы за Вас решали? Во фриланс либо в личку
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
25.12.2010, 00:45  [ТС] #5
вобщем кого заинтересует пишите vkontakte.ru/chakiman в долгу не останусь...
0
Alex77755
10686 / 3261 / 538
Регистрация: 13.02.2009
Сообщений: 9,619
25.12.2010, 00:49 #6
Что-то мне кажется, что это должно больше "интересовать" не нас!!! ИМХО
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
25.12.2010, 00:51  [ТС] #7
суть то не только в благодарственных словах...
0
Alex77755
10686 / 3261 / 538
Регистрация: 13.02.2009
Сообщений: 9,619
25.12.2010, 01:11 #8
Andrey_Chaki,
Ну так помощь же. Давайте свой код, посмотрим, исправим.
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
25.12.2010, 01:26  [ТС] #9
вот первая с бейсика)))

Добавлено через 1 минуту
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23



uses crt;
function Plan(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan:=((p+r<a)and(q<b)and(s<b)) or ((q+s<b)and(q<a)and(r<a));
end;
function Plan2(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan2:=Plan(a,b,p,q,r,s) or Plan(a,b,p,q,s,r)
or Plan(a,b,q,p,r,s) or Plan(a,b,q,p,s,r);
end;
var a,b,p,q,r,s:integer;
begin
clrscr;
writeln('Введите размеры участка a,b:');
readln(a,b);
writeln('Введите размеры первого дома p,q:');
readln(p,q);
writeln('Введите размеры второго дома r,s:');
readln(r,s);
if Plan2(a,b,p,q,r,s)then write('Можно разместить')
else write('Разместить нельзя');
readln
end.

Добавлено через 2 минуты
все настолько плохо что у меня нет кодов(((ну просто очень нужно(((

Добавлено через 4 минуты
вот по второй похожее тоже с бейсика Функция VBA для Access "обрезает" результирующую строку
0
Alex77755
10686 / 3261 / 538
Регистрация: 13.02.2009
Сообщений: 9,619
25.12.2010, 01:50 #10
Даже не знаю какие поставить теги...
Но явно не VB6
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
function Plan(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan:=((p+r<a)and(q<b)and(s<b)) or ((q+s<b)and(q<a)and(r<a));
end;
function Plan2(a,b:integer; p,q:integer; r,s:integer):boolean;
begin
Plan2:=Plan(a,b,p,q,r,s) or Plan(a,b,p,q,s,r)
or Plan(a,b,q,p,r,s) or Plan(a,b,q,p,s,r);
end;
var a,b,p,q,r,s:integer;
begin
clrscr;
writeln('Введите размеры участка a,b:');
readln(a,b);
writeln('Введите размеры первого дома p,q:');
readln(p,q);
writeln('Введите размеры второго дома r,s:');
readln(r,s);
if Plan2(a,b,p,q,r,s)then write('Можно разместить')
else write('Разместить нельзя');
readln
end.
Обращайся в личку
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
25.12.2010, 20:09  [ТС] #11
то есть не с бейсика а с паскаля)))сории)))

Добавлено через 9 часов 44 минуты
ну ребят ну помогите вы же все можете)))
0
25.12.2010, 20:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 20:09
Привет! Вот еще темы с ответами:

Найти значения элементов треугольника - Visual Basic
Задача с разветвленными алгоритмами. Пусть элементами прямоугольного равнобедренного треугольника являются: катет а, гипотенуза b,...

Найти площадь треугольника по 3 сторонам - Visual Basic
Найти площадь треугольника по 3 сторонам. Если можно написать математическую модель и алгоритм и код программы

Найти площадь треугольника по формуле Герона - Visual Basic
Создать проект на visual basic. Найти площадь треугольника по формуле Герона. Стороны вводятся пользователем. Помогите, PLEASE!:(:(

Найти сумму длин медиан треугольника ABC - C++
Помогите пожалуйста,весь поиск перерыл ии ничего не нашел


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

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

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