Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
#1

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

24.12.2010, 16:53. Просмотров 1400. Ответов 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
Ответы с готовыми решениями:

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

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

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

Найти стороны треугольника
Вычислить стороны треугольника A и B при условии, что заданы сторона C и углы...

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

10
Alex77755
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,722
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 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 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
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,722
25.12.2010, 00:49 #6
Что-то мне кажется, что это должно больше "интересовать" не нас!!! ИМХО
0
Andrey_Chaki
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 7
25.12.2010, 00:51  [ТС] #7
суть то не только в благодарственных словах...
0
Alex77755
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,722
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
10728 / 3303 / 547
Регистрация: 13.02.2009
Сообщений: 9,722
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

Найти значения элементов треугольника
Задача с разветвленными алгоритмами. Пусть элементами прямоугольного...

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

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


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

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

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