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

[Edison]

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

[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.