|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Равносторонний треугольник
Здравствуйте, помогите пожалуйста решить задачу:
Пусть элементами равностороннего треугольника являются : 1)сторона а; 2)площадь S; 3)высота h. Реализуйте проект на delphi, в котором по выбранному параметру и введенному значению соответсвующего параметра выводились бы значения всех остальных элементов треугольника. |
#2
|
||||
|
||||
Напиши формулы, которые это все реализуют.
И когда будет видно,что хотя бы формулы ты знаешь - можно о чем-то с тобой говорить, иначе => Раздел:работа. Так как уже неоднократно говорилось на форуме: решать неинтересные однотипные примитивные задачи - пустая трата времени. |
#3
|
|||
|
|||
вроде формулы такие:
a:=sqrt((2*S)/sqrt(3)); s:=(a*a*sqrt(3))/2; h:=(sqrt(3)*a)/2; |
#4
|
|||
|
|||
подскажите в чем ошибка:
Код:
procedure TForm1.Button1Click(Sender: TObject); var s,a,h,x,y,b:extended; begin y:=strtofloat(edit1.Text); x:=strtofloat(edit2.Text); if y=a then x:=a; s:=sqrt(3)/4*a*a; h:=sqrt(a-(a/2)); if y=s then x:=s; a:=sqrt(3)/4/s/s; h:=sqrt(a-(a/2)); if y=h then x:=s; a:=sqrt(3)/4/s/s; s:=sqrt(3)/4*a*a; memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+' a='+floattostrf(a,fffixed,8,3)+' s='+floattostrf(s,fffixed,8,3)); end; Последний раз редактировалось Admin, 18.06.2010 в 20:32. |
#5
|
|||
|
|||
А что за ошибка то?
|
#6
|
|||
|
|||
может так?
Цитата:
|
#7
|
|||
|
|||
вот ошибка
|
#8
|
|||
|
|||
только проверь формулы.
Код:
procedure TForm1.Button1Click(Sender: TObject); var x,a,h,s:extended; begin x:=strtofloat(edit2.Text); if edit1.Text[1]='a' then begin a:=x; s:=sqrt(3)/4*x*x; h:=sqrt(x-(x/2)); end; if edit1.Text[1]='s' then begin s:=x; a:=sqrt(3)/4/x/x; h:=sqrt(x-(x/2)); end; if edit1.Text[1]='h' then begin h:=x; a:=sqrt(3)/4/x/x; s:=sqrt(3)/4*x*x; end; memo1.Lines.add('h='+floattostrf(h,fffixed,8,3)+' a='+floattostrf(a,fffixed,8,3)+' s='+floattostrf(s,fffixed,8,3)); end; |
#9
|
|||
|
|||
спасибо!!!!!
|