0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 18
1

подскажите пожалуйста сам уже не могу )

28.01.2014, 23:22. Показов 454. Ответов 3
Метки нет (Все метки)

Delphi
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var xa,ya,xb,yb,xc,yc,i,j,k,l,f,g,a,b,c,A1,B1,C1,ha,hb,hc,r,R1,S1,
P1,s,p: real;   ArcCos,z,x,n: single;
begin
xa:=strtofloat(edit1.Text);
ya:=strtofloat(edit2.Text);
xb:=strtofloat(edit3.Text);
yb:=strtofloat(edit4.Text);
xc:=strtofloat(edit5.Text);
yc:=strtofloat(edit6.Text);
i:=sqr(xa-xb);
j:=sqr(ya-yb);
k:=sqr(xb-xc);
l:=sqr(yb-yc);
f:=sqr(xc-xa);
g:=sqr(yc-ya);
a:=Sqrt(i+j);
b:=Sqrt(k+l);
c:=Sqrt(f+g);
[B][I]z:=ArcCos(sqr(b)+sqr(c)-sqr(a)/2*b*c);
x:=ArcCos(sqr(a)+sqr(c)-sqr(b)/2*a*c);
n:=ArcCos(sqr(a)+sqr(b)-sqr(c)/2*a*b);
A1:=z;
//A:=RadToDeg(A);
//ShowMessage('ArcSin(a*Sinc) = '+FloatToStr(A));
B1:=x;
C1:=n;
hb:=c*Sin(A1);
ha:=c*Sin(B1);
hc:=b*Sin(A1);
P:=a+b+c;
S1:=1/2*ha*a;
s:=1/2*S1;
p:=1/2*(a+b+c);
R1:=a*b*c/4*Sqrt(p*(p-a)*(p-b)*(p-c));
r:=Sqrt((p-a)*(p-b)*(p-c)/p);
memo1.Lines.Add('Ñòîðîíà à:  '+floattostr(a));
memo1.Lines.Add('Ñòîðîíà b:  '+floattostr(b));
memo1.Lines.Add('Ñòîðîíà ñ:  '+floattostr(c));
memo1.Lines.Add('Óãîë À:  '+floattostr(A1));
memo1.Lines.Add('Óãîë Â:  '+floattostr(B1));
memo1.Lines.Add('Óãîë Ñ:  '+floattostr(C1));
memo1.Lines.Add('Âûñîòà hb:  '+floattostr(hb));
memo1.Lines.Add('Âûñîòà ha:  '+floattostr(ha));
memo1.Lines.Add('Âûñîòà hc:  '+floattostr(hc));
memo1.Lines.Add('Ïåðèìåòð P:  '+floattostr(P1));
memo1.Lines.Add('Ïëîùàäü S:  '+floattostr(S1));
memo1.Lines.Add('Ïîëóïëîùàäü s:  '+floattostr(s));
memo1.Lines.Add('Ïîëóïåðèìåòð p:  '+floattostr(p));
memo1.Lines.Add('Îïèñàííûÿ îêðóæíîñòü R:  '+floattostr(R1));
memo1.Lines.Add('Âïèñàííàÿ îêðóæíîñòü r:  '+floattostr(r));
выдает ошибку Отсутствует оператор или точка с запятой в 61,62,63 строке
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.01.2014, 23:22
Ответы с готовыми решениями:

ПРОГРАММЫ ЦИКЛИЧЕСКОЙ СТРУКТУРЫ (Подскажите, пожалуйста!! не могу уже понять ее...)
Написать программу, которая вводит с клавиатуры последователь- ность из пяти дробных чисел и...

Подскажите пожалуйста. Уже мозги кипят
Ребят, помогите. Вот cfqn приложил ниже. Суть в чем, как сделать вот такую форму как на сайте?...

Подскажите пожалуйста, фантазии уже не хватает.
Как осуществить поиск максимального и минемального числа в одномерном массиве с помощью рекурсии,...

надо исправить 1 ошибку в проекте, помогите плиз у кого есть время, ато уже сам не могу
там потоки и бд

3
cotseec
28.01.2014, 23:25
  #2

Не по теме:

желтый - удачный дизайнерский ход.....да еще и без тегов

0
0 / 0 / 0
Регистрация: 24.11.2013
Сообщений: 18
28.01.2014, 23:28  [ТС] 3
Цитата Сообщение от cotseec Посмотреть сообщение

Не по теме:

желтый - удачный дизайнерский ход.....да еще и без тегов

устроит )
0
Пишу на Delphi...иногда
1419 / 1276 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
28.01.2014, 23:33 4
Цитата Сообщение от Rustam_00 Посмотреть сообщение
Отсутствует оператор или точка с запятой
что за переменная ArcCos, используемая, как функция?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2014, 23:33

Прошу об услуге с 15 задачей,пожалуйста по C++. Уже долго не могу с ней разобраться)

Подскажите, пожалуйста, как записать в txt файл строки(TStringList),не стирая уже имеющую информацию
Подскажите, пожалуйста, как записать в txt файл строки(TStringList),не стирая уже имеющую...

Подскажите пожалуйста хорошие учебниеи по php такого уже проф. уровня....или где дальше развиваться....
Подскажите пожалуйста хорошие учебниеи по php такого уже проф. уровня....или где дальше...

Никак не могу понять, куда именно впихивать сам исполняемый кусок, короче, что у меня тут не так? Пожалуйста, подсобите!
from tkinter import * import tkinter.messagebox as box window = Tk() window.title('Расчет...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru