Проверьте программку...

[МяФ`ка]

Здрасте! Решаю контрольную работу на Делфи, раньше с ним не сталкивалась. Задачка вроде легкая, пытаюсь разобраться, но возникают вопросы... Помогите, пожалуйста, проверьте...

Нужно пределить максимальный элемент главной диагонали матрицы.
Моя программка не выдает результат, если он стоит на позиции (1,1). Подозреваю, что неправильно использую StringGrid... Подскажите правильный вариант...

unit Massiv;

interface

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

type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
SpinEdit1: TSpinEdit;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
n,i,j,max:integer;
a:array[1..20,1..20] of integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(SpinEdit1.Text);
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
for i:=1 to n do
for j:=1 to n do
begin
StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
for i:=0 to 20 do
for j:=0 to 20 do
StringGrid1.Cells[j,i]:= '';
Edit1.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
max:=a[1,1];
for i:=1 to n do

if a[i,i]>max then
begin
max:=a[i,i];
Edit1.Text:=inttostr(max);
end;
end;

end.

[Stilet]

Нужно пределить

Это как? Что значит слово "перделить"

[МяФ`ка]

Это значит Определить..

[Hollander]

Сообщение от Stilet

Это как? Что значит слово "перделить"

)))) Улыбнуло.
1. он написал не "перделить", "пределить"
2. имел в виду, скорее всего, "определить".

[МяФ`ка]

Я девушка!

[pu4koff]

В процедуре Button3Click строку Edit1.Text:=inttostr(max); вынесите из цикла в конец и всего делов. Изначально же максимум приравнивается первому элементу, потому условие в теле цикла не выполнится и ничего в Edit не выведется. Ну и цикл логичнее с двух начинать в данном случае.

[МяФ`ка]

Спасибо за совет, щас попробую

[МяФ`ка]

А можете подсказать как вычислить сумму x/i! (по i=1..n)? Нужно использовать все циклы... Я извиняюсь конечно за свое незнание, но "все" это сколько? For, while, repeat - я знаю, может и другие есть?

[Stilet]

А можете подсказать как вычислить сумму x/i!

если не ошибаюсь:

var fact:longint;
for i:=1 to 10 do begin
 fact:=1;
 for j:=2 to i do fact:=fact*j;
 summ:=summ+x/fact;
end;

)))) Улыбнуло.

я случайно...

он написал

)))) Улыбнуло.

[МяФ`ка]

Спасибо за вариант