IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Не могу решить задачу, Описать процеруду
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Описать процеруду Heights (Ax, Ay, Bx, By, Cx, Cy, hA, hB, hC), находящую высоты hA, hB, hC треугольника ABC, проведенные соответственно из вершин A,B,C. С помощью процедуры найти высоты треугольников ABC, ABD, ACD, если данны координаты точек A, B, C, D.
Я так понимаю координаты нужно ввести с клавиатуры...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Математически решить задачу сможешь? То есть, в данном тебе треугольнике, вычислишь значение высоты, опущенной на сторону С (если стороне A противолежит угол Alpha, стороне B - угол Beta и стороне С - угол Gamma)?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Ща в алгебре поковыряюсь.. wink.gif

Если даны координаты точек A, B, C, D. -не могу врубить как их создавать sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Чего создавать? Координаты? Их вводить надо вообще-то... Запрашивать у пользователя...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


ypriamii.gif БЛин нефига н7е получается..все тетради уже обрыЛ..хлам какойто
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


такие формулы знаешь?
1) расстояние между двумя точками
2) формула Герона
3) формула вычисления площади через высоту и основания

чего еще для счастья не хватает?


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


1) (р*(р-а)*(р-в)*(р-с)) где р-полупериметр
2) корень из (х2-х1)в квадрате + (у2-у1) в квадрате)=длина
3) не помню)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Спасиб кто мне помог..Решил! Правда времени много заняла huh.gif

Вроде правильно, скажите если что не так rolleyes.gif


program zadacha1;

uses crt;

procedure Heights;
var
x1,x2,x3,x4,y1,y2,y3,y4,AB,BC,CA,AD,BD,CD,S,S1,S2,P,P1,P2,Ha,Hb,hc,Hd:
real;
begin
writeln ('vedi coordinati tochki A (x,y)');
readln (x1,y1);
writeln ('vedi coordinati tochki B (x,y)');
readln (x2,y2);
writeln ('vedi coordinati tochki C (x,y)');
readln (x3,y3);
writeln ('vedi coordinati tochki D (x,y)');
readln (x4,y4);
writeln (' A(',x1:2:2,',',y1:2:2,')');
writeln (' B(',x2:2:2,',',y2:2:2,')');
writeln (' C(',x3:2:2,',',y3:2:2,')');
writeln (' D(',x4:2:2,',',y4:2:2,')');

AB:=sqrt(sqr(x2-x1)+sqr(y2-y1));
BC:=sqrt(sqr(x3-x2)+sqr(y3-y2));
CA:=sqrt(sqr(x1-x3)+sqr(y1-y3));
AD:=sqrt(sqr(x4-x1)+sqr(y4-y1));
BD:=sqrt(sqr(x4-x2)+sqr(y4-y2));
CD:=sqrt(sqr(x4-x3)+sqr(y4-y3));

Writeln ('AB=',ab:2:2,' BC=',bc:2:2,' CA=',ca:2:2,' AD=',AD:2:2,'BD=',bd:2:2,' CD=',cd:2:2);

p:=(AB+BC+CA)/2;
p1:=(AB+BD+AD)/2;
p2:=(CA+CD+AD)/2;
S:=sqrt(p*(p-AB)*(p-BC)*(p-CA));
S1:=sqrt(p1*(p1-AB)*(p1-BD)*(p1-AD));
S2:=sqrt(p2*(p2-CA)*(p2-CD)*(p2-AD));
if (s=0) or (s1=0) or (s2=0) then
begin
writeln ('ssory takogo treug ne suchestvuet');
writeln ('proverte pravilnost'' coordinat');
end;

writeln ('ABC');
Ha:=2*s/BC;
Hc:=2*s/AB;
Hb:=2*s/CA;
writeln (' Ha=',ha:2:2);
writeln (' Hc=',hc:2:2);
writeln (' Hb=',hb:2:2);
{abd}
writeln ('ABD');
Ha:=2*s1/BD;
Hb:=2*s1/AD;
Hd:=2*s1/AB;
writeln (' Ha=',ha:2:2);
writeln (' Hb=',hb:2:2);
writeln (' Hd=',hd:2:2);
{acd}
writeln ('ACD');
Ha:=2*s2/CD;
Hc:=2*s2/AD;
Hd:=2*s2/CA;
writeln (' Ha=',ha:2:2);
writeln (' Hc=',hc:2:2);
writeln (' Hd=',hd:2:2);

end;

begin
clrscr;
Heights;
readln;
end.


М
Пользуемся тегами !



Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


if (s=0) or (s1=0) or (s2=0) then
begin
writeln ('ssory takogo treug ne suchestvuet');
writeln ('proverte pravilnost'' coordinat');
end;

мне вот это место не нравится.
нельзя число real сравнивать с помощью "равно"
лучше задать какой-то доверительный интервал...
типа так:
if abs(s)<0.001 then...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






rolleyes.gif понял)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


rolleyes.gif Еще вопрос..
вот у меня дана задача:



Сообщение отредактировано: 6ac9k -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


6ac9k, прочитай правила форума, особо обрати внимание на пункт 6.

Используй теги и табулируй код, если хочешь чтобы тебе быстрее помогли.

Сообщение отредактировано: Bokul -


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской
Реальное имя: Виталик

Репутация: -  0  +


Готово) smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 14:20
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name