Delphi Составить программу для нахождения полной поверхности пирамиды, в основании которой лежит квадрат со стороной b. Высота пирамиды b.

[hgighuiyuiyunljk]

Составить программу для нахождения полной поверхности пирамиды, в основании которой лежит квадрат со
стороной b. Высота пирамиды b.

[alexcoder]

hgighuiyuiyunljk, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[digitalis]

А задача в общем виде вообще не решается. Только если пирамида правильная. Или с другим, но конкретным указанием. Например: вершина пирамиды проектируется на одну из вершин квадрата.

[Speeker]

Язык?
общение на почту Speekers Sobaka rambler ru
не дорого

[WorldMaster]

А откуда задачка?? может быть существует исходная формулировка??
Ощущение что чего то не хватает.

[digitalis]

Дык я ж и говорю... (#3) . Для примера взял пирамиду с проекцией вершины в центр основания и на одну из вершин основания.

procedure TForm1.Button1Click(Sender: TObject);
var  a,h,h1,h2,s1,s2,s: Extended ;
begin
  a := StrToFloat (Copy(Edit1.Text,1,3)) ;
  h := StrToFloat (Copy(Edit1.Text,5,3)) ;
  h1 := Sqrt(a*a + h*h) ;
  h2 := Sqrt(a*a/4 + h*h) ;
  s  := 2 * a *h/2 ;
  s1 := 2 * a *h1/2 + s; // h проектируется на угол
  Memo1.Lines.Add(Format('%6.1f %6.1f %6.3f %6.1f %6.1f',[a,h,h1,s,s1])) ;
  s2 := 4 * a * h2/2; // h проектируется на центр
  Memo1.Lines.Add(Format('%6.1f %6.1f %6.1f %6.1f',[a,h,h2,s2])) ;
end ;

60,0 40,0 72,111 2400,0 6726,7
60,0 40,0 50,0 6000,0
Это только для боковых граней, для полной площади + а * а .
А если отнести проекцию вершины на плоскость основания х.з. куда - так и до бесконечности.

И обоснованно, и бесплатно
PS Забавно, как новички рьяно рвутся решать нерешаемую задачку

[Larboss]

Пишите: larbossfreelance@yandex.ru