Developing.ru

1) Сколько кругов заданного радиуса может вырезать из правильного треугольника со стороной a?
2) При некоторых заданных вещественном x,целом n вычислить сумму n слагаемых заданного вида.
1/(1+3)3=1-2*3/2*x+3*4/2*x2-4*5/2*x3+...
3) Элемент матрицы назовем седловой точкой,если он являеться наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, являеться наибольшим в своей строке и одновременно наименьшим в своем столбце.Для заданной целой матрицы размером 10 x 15 напечатать индексы всех ее седловых точек.
4) Дана строка,ограниченная точкой, в которой слова разделены одним или несколькими пробелами. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу:удалить из слова последнюю букву.

Задача 3. Поиск седловых точек
procedure TForm1.Button3Click(Sender: TObject);
var
i,j,N,M:integer;
A:array of array of integer;
max,min:array[0..1,0..10] of integer;
s:string;
begin
N:=strtoint(Edit6.Text);
M:=strtoint(Edit11.Text);
SetLength(A,n,m);
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=m;
for i:=0 to 1 do for j:=0 to 10 do begin max[i,j]:=0; min[i,j]:=100; end;
for i:=0 to N-1 do for j:=0 to m-1 do begin
A[i,j]:=random(100);
StringGrid1.Cells[j,i]:=inttostr(A[i,j]);
if A[i,j]>max[0,j] then max[0,j]:=A[i,j];
if A[i,j]>max[1,i] then max[1,i]:=A[i,j];
if A[i,j]<min[0,j] then min[0,j]:=A[i,j];
if A[i,j]<min[1,i] then min[1,i]:=A[i,j];
end;
s:='';
for i:=0 to N-1 do for j:=0 to M-1 do begin
if min[0,j]=max[1,i] then s:=s+'['+inttostr(i+1)+'; '+inttostr(j+1)+'] ';
if min[1,i]=max[0,j] then s:=s+'['+inttostr(i+1)+'; '+inttostr(j+1)+'] ';
end;
Edit7.Text:=s;
end;