3d графика в паскаль (формулы) - Pascal

Формулировка задачи:

Пожалуйста подскажите формулы преобразования 3D массива в 2D картинку на экране. Глубинное объяснение не нужно, просто формула и что она делает.

Решение задачи: «3d графика в паскаль (формулы)»

textual
                            Листинг программы 
                        

                            Uses crt;
Const n=5;dx=10;dy=2;dz=3;
Var i,j,k:Integer;
    a:array[1..n,1..n]of array[1..n]of integer;
Begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
    begin
     a[i,j,k]:=random(100);
     textcolor(k);
     gotoxy(i*dx+k*dz-dz,j*dy+k*dz-dz);
     write(a[i,j,k]);
    end;
 ReadLn;
End.
                        

Оцени полезность:

15 голосов , оценка 4.2 из 5

Похожие ответы