Сечение в пирамиде (графика) Опции

[Edison]

В правильной четырех угольной пирамиде построить сечение,проходящее через диагональ основания и середину бокового угла.

[volvo]

Поиском, разумеется, не пользовался, иначе нашел бы тему, в которой разжевывалось до неприличия, как построить сечение пирамиды. Так что Поиск с ключевыми словами +пирами* +сечен* и небольшая доработка приведенного кода под свое задание.

P.S. Кстати, что в твоем понимании "середина бокового угла"?

[pan]

program z1;
uses graph;
var driver,mode:integer;
begin
 driver:=detect; initgraph(driver,mode,'C:\TP\BGI');
 setcolor(white);
 setbkcolor(black);
 {Пирамида}
 line(200,100,250,30);
 line(200,100,250,140);
 line(300,100,250,30);
 line(300,100,250,140);
 line(250,30,250,140);
 setlinestyle(2,2,2);
 line(200,100,300,100);
 {Сечение}
 setcolor(red);
 line(200,100,275,60);
 line(250,140,275,60);
 line(203,104,275,66);
 line(207,107,275,72);
 line(212,111,269,83);
 line(217,115,266,92);
 line(222,119,262,101);
 line(229,122,260,109);
 line(235,126,258,117);
 line(239,130,256,124);
 line(243,134,254,132);
 {Буквы}
 outtextxy(188,100,'A');
 outtextxy(305,100,'D');
 outtextxy(248,20,'B');
 outtextxy(278,53,'C');
 outtextxy(248,145,'E');
 readln;
 closegraph;
end.

в технаре почти такую же делал задачу, только у меня пирамида 3 угольная, тебе только остается код изменить и всё

М

Просьба при публикации программного текста использовать теги кода. Lapp

[volvo]

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

Ага... А если мне в твоей треугольной пирамиде захочется увеличить высоту в 2 раза, то мне придется только все точки пересчитать, потом код изменить, и все, да? Хорошая программа... Полезная, главное. Ничего делать не надо, только код изменить и все...

Вот тогда программа-универсал. Решает вообще любую задачу:

uses graph;
var driver, mode, errcode: integer;
begin
  driver:=detect;
  initgraph(driver,mode,'');
  errcode := graphresult;
  if errcode = grOk then begin
    { ... Сюда только код добавить, и все }
    readln;
    closegraph;
  end
  else writeln('graphics error:', grapherrormsg(errcode));
end.

[Lapp]

тебе только остается код изменить и всё

2 volvo: нет, твоя программа не самая универсальная. Моя лучше:

// в этом месте изменить код

Она годится и для Pascal, и для С, а также С++, PHP и многих других языков.

Но, впрочем, я согласен, что программа pan'а тоже вполне успешно решает все задачи на свете и готов признать за ним первенство. В связи с этим возникает вопрос о смысле дальнейшего существования Форума, который становится, похоже, абсолютно бесполезным..

М

В виду публикации гениалной программы pan'а, решающей ВСЕ ПРОГРАММЕРСКИЕ ЗАДАЧИ НА СВЕТЕ, вносится предложение по ЗАКРЫТИЮ ФОРУМА

Объявляется Референдум. Просьба ко всем заинтересованным лицам высказаться по этому вопросу. Решение (о переносе этой темы в раздел Юмор) будет принято по результатам референдума.

- -