Помогите убрать ошибки при компиляции

[Alecksandra12]

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
  T3DPoint = record
    X, Y, Z: Real;
  end;
var
w: array [1..8] of T3DPoint =
(
  (X: -50; Y: -50; Z: -50),
  (X:  50; Y: -50; Z: -50),
  (X:  50; Y:  50; Z: -50),
  (X: -50; Y:  50; Z: -50),
  (X: -50; Y: -50; Z:  50),
  (X:  50; Y: -50; Z:  50),
  (X:  50; Y:  50; Z:  50),
  (X: -50; Y:  50; Z:  50)
);
 
procedure ViewTransformation;
 for i := 1 to 8 Do;
begin
v[i].x := Round(w[i].x*(-sin(teta)) + w[i].y*(cos(teta))+Form1.ClientWidth div 2;
v[i].y := Round(
w[i].x*(-cos(phi) * cos(teta)) - w[i].y*( cos(phi) * sin(teta)) +
w[i].z*(sin(phi))) + Form1.ClientHeight div 2;
end;
 
procedure DrawCube;
Line(v[1],v[2]);
Line(v[2],v[3]);
Line(v[3],v[4]);
Line(v[4],v[1]);
Line(v[5],v[6]);
Line(v[6],v[7]);
Line(v[7],v[8]);
Line(v[8],v[5]);
Line(v[1],v[5]);
Line(v[2],v[6]);
Line(v[3],v[7]);
Line(v[4],v[8]);
end;
 
End.

Ошибки:
Unit1.pas(45): For loop control variable must be simple local variable, Unit1.pas(47): Array type required, Unit1.pas(47): Undeclared identifier: 'teta', Unit1.pas(49): ')' expected but ';' found, Unit1.pas(50): Array type required, Unit1.pas(50): Undeclared identifier: 'phi', Unit1.pas(56): Statement expected but 'PROCEDURE' found, Unit1.pas(57): Unknown directive: 'Line'. ПОмогите исправить.


_______________
к сожалению на форуме нет тега форматирования для DELPHI
нужно использовать тег [CODE] - общий для всех кодов программ.
(читать FAQ)
Модератор.

[min@y™]

а чо этот говнокод делать-то должен?
тебе его по телефону диктовали?

[Alecksandra12]

Ну вообще я пытаюсь написать программу которая, построит ортогональную проекцию модели трехмерного объекта ( в данном случаи куба). Я делаю по методичке которую прислал препод.

[Человек_Борща]

Куб рисует в 3d.

procedure DrawCube;
Line(v[1],v[2]);
Line(v[2],v[3]);
Line(v[3],v[4]);
Line(v[4],v[1]);
Line(v[5],v[6]);
Line(v[6],v[7]);
Line(v[7],v[8]);
Line(v[8],v[5]);
Line(v[1],v[5]);
Line(v[2],v[6]);
Line(v[3],v[7]);
Line(v[4],v[8]);
end;

Пропущен begin end, нет функции line (вероятно она от канвы paintbox'а), массив w а у вас тут v.

procedure ViewTransformation;
 for i := 1 to 8 Do;
begin
v[i].x := Round(w[i].x*(-sin(teta)) + w[i].y*(cos(teta))+Form1.ClientWidth div 2;
v[i].y := Round(
w[i].x*(-cos(phi) * cos(teta)) - w[i].y*( cos(phi) * sin(teta)) +
w[i].z*(sin(phi))) + Form1.ClientHeight div 2;
end;

Пропущен begin...end у функции, for цикла. Нет константы teta.

А нет, массив все же v. Глаза в кучу, пора валить с работы домой.