Не компилируется

[WinCoder]

куча ошибок

Естественно, ибо отсутствует само понимание того, что есть объектно ориентированное программирование. Код был скопирован на пустую форму без объектов, и естественно работать не будет. Объяснить? Тут объяснение потянет на приличную книгу о объектном программировании. Сделать самому и отдать готовое? А смысл? Знаний это не прибавит.

[aiperi]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, Grids;

type
TForm1 = class(TForm)
Bevel1: TBevel;
Bevel2: TBevel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Button1: TButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit7: TEdit;
GroupBox2: TGroupBox;
Edit10: TEdit;
Edit11: TEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Button2: TButton;
Label17: TLabel;
StringGrid1: TStringGrid;
Button3: TButton;
Label18: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Const l = 200; n = 5; m= 40;
var

Form1: TForm1;
okz:array [0..4, 0..39] of integer; i,j,h: integer;
int: array of integer; tmizp, tmazp, tvzMIN, tvzMAX, ints: integer;
x, k: integer; tvps, tsz, kza: extended;
ogp: integer;

implementation uses AboutUnit,Help_Unit;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;

for j:= 0 to 39 do

for i:= 0 to 4 do

//çàïîëíåíèå ñëó÷àéíûìè äàííûìè

okz[i,j]:= 5 + trunc(random(90));

StringGrid1.RowCount:= m+1; //êîë-âî ñòðîê

StringGrid1.ColCount:= n+1; //êîë-âîñòîëáöîâ

//ôîðìèðîâàíèå ñòðîê è ñòîëáöîâ

i:= 0;

for j:= 1 to StringGrid1.RowCount do StringGrid1.Cells [i,j]:= IntToStr(j);

j:= 0;

for i:= 1 to StringGrid1.ColCount do StringGrid1.Cells[i,j]:= IntToStr(i);

for j:= 1 to m do

for i:= 1 to n do StringGrid1.Cells[i,j]:= IntToStr(okz[i-1,j-1]); end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
tmizp:= 0; tmazp:= 0; h:= 0;

begin

Randomize;

for j:= 0 to 39 do

for i:= 0 to 4 do

//çàïîëíåíèå ñëó÷àéíûìè äàííûìè

okz[i,j]:= 5 + trunc(random(90)); h:= h + 1;

StringGrid1.RowCount:= m+1; //êîë-âî ñòðîê

StringGrid1.ColCount:= n+1; //êîë-âî ñòîëáöîâ

i:= 0;

for j:= 1 to StringGrid1.RowCount do StringGrid1.Cells [i,j]:= IntToStr(j); h:= h + 1;

j:= 0;

for i:= 1 to StringGrid1.ColCount do StringGrid1.Cells[i,j]:= IntToStr(i); h:= h + 1;

//Âûâîä ýëåìåíòîâ ìàññèâà â òàáëèöó

forj:= 1 tomdo

for i:= 1 to n do

StringGrid1.Cells[i,j]:= IntToStr(okz[i-1,j-1]); h:= h + 1;

end;


begin

begin

for j:= 0 to 39 do

for i:= 0 to 4 do

begin

if okz[i, j] <= 10 then tmizp:=tmizp+okz[i, j]; h:= h + 1;

end; Edit12.Text:= IntToStr(tmizp);

end;

begin

for j:= 0 to 39 do

for i:= 0 to 4 do

begin

if okz[i, j] >= 90 then tmazp:=tmazp+okz[i, j]; h:= h + 1;

end; Edit13.Text:= IntToStr(tmazp);

end;

Edit14.Text:= IntToStr(tmazp-tmizp);

end;

begin

ints:= 0; tvzMIN:= 0; tvzMAX:= 0; SetLength (int, x);

for j:= 0 to 39 do

for i:= 0 to 4 do

begin

ints:= 30 + trunc(random(60)); if okz[i, j] <= 10 then tvzMIN:= tvzMIN + ints

else

x:= okz[i, j] div 10;

begin

for k:= 0 to x-1 do

begin

ints:= 30 + trunc(random(60)); tvzMAX:= tvzMAX + ints + (okz[i, j] mod 10); h:= h + 1;

end;

end;

end; end;

begin

tvps:= 0; tsz:= tvzMIN + tvzMAX;

for j:= 0 to 39 do

for i:= 0 to 4 do

begin

tvps:= tvps + okz[i, j]; h:= h + 1;

end;

kza:= (tvps / tsz) ; Edit10.Text:= FloatToStr(kza);

end;

begin

ogp:= m - 1; Edit11.Text:= IntToStr(ogp);

end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
About_Form1.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
TForm1.Close
end;

procedure TForm1.N2Click(Sender: TObject);
begin
Help_Form1.Show;
end;

end.

[aiperi]

не могу загрузить вложение

[aiperi]

Может я начну понимать. Может прибавиться. Если сможете, помогите. Курсач горит((Завтра надо сдать.

[WinCoder]

Может прибавиться

Если сможете, помогите

Вам учителя год помогали. Прибавилось? Вы фактически даёте машину, и просите объяснить, как сделать такую же. Причём в двух словах, и чтоб потом реально можно было бы сделать. Ни чего не смущает в такой задаче? Тут вариант только один. Давать готовое. А свои мысли на этот счёт я уже высказал.

[aiperi]

Литературу хотя бы посоветуйте( попробую сделать

[aiperi]

Объектно ориентированный языки мы не проходили. Я самостоятельно хотела изучить и сделать.

[WinCoder]

А Вам в Вашем учебном заведении разве не выдавали литературу по этом предмету?

Я самостоятельно хотела изучить и сделать

А при чём тут курсовая? Начинаете противоречить сами себе.

[aiperi]

если бы выдавали, не сидела бы тут и не просила

[WinCoder]

А ну не вопрос. Открываете любой поисковик, и пишете. "Литература по делфи". Справитесь? Ещё как вариант, подняться по форуму в раздел с темами, там есть прикреплённая тема "Литература по делфи". У Вас даже выбор есть. Удачи