[Delphi] создание и обработка двумерного массива

[screep]

не знаю помогут, или нет. имхо если знать- работы тут немного, тем более, что код написан, нужно просто переделать под другой вариант. в данном случае мой вариант 21)) сегодня мне тут уже помогли, надеюсь, что помогут еще раз=)) это моя последняя работа. как ее делать я не знаю)) а сдавать нужно завтра.

в архиве: непосредственно само задание и пример работы для другого варианта.

зы: я, допустим, не в курсе, как прописывать степень 2/5=))

ззы: если уж не возметесь переделать, то хоть помогите с самыми сложными, на ваш взгляд, местами.

зззы: в случае чего с меня причитается

заранее премного благодарен.

[screep]

блин, столько челоек посмотрело и всем впадлу?=(( вы хоть говорите, если не возметесь за это.

[screep]

неужели никто вообще ничего по этой теме не знает? реально горю, под вопросом останусь ли я в универе. ппц

[screep]

я понимаю, что на халяву мало что прокатит и всегда по возможности рад отблагодарить человека за реальную помощь.

общее задание:
1. Получить элементы квадратной матрицы А{а(i,j)},(i,j=1,2,3,………….n), n=8; где а(i,j)=f(i,j), a f(i,j)-заданная функция. При получении матрицы использовать подпрограмму PROCEDURE*. Результат обработки вывести на форму и в файл.
2. Преобразовать матрицу А и по заданному правилу из матрицы получить компоненты вектора X={x(i)}, (i=1,2,3,…………,n). N=8. При получении вектора использовать подпрограмму PROCEDURE* . Результаты обработки вывести на форму и в файл.
3. Преобразовать вектор Х по заданному правилу. При преобразовании вектора использовать подпрограмму PROCEDURE* . Результат обработки вывести на форму и в файл.
*В подпрограмме могут быть использованы формальные и локальные параметры.


задание для приведенного ниже кода:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, StdCtrls, AxCtrls, OleCtrls, VCF1;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Label6: TLabel;
    F1Book1: TF1Book;
    StringGrid1: TStringGrid;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  buff:array[1..8] of real;
  x:array[1..8] of real;
  a:array[1..8,1..8] of real;
  i,j,n:integer;
  f:textfile;
  s,sred,buf:real;
const d=10;
implementation

{$R *.dfm}

procedure rec(b:string);
begin
 AssignFile(f,b);
 Rewrite(f);
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
    write(f,a[i,j]:7:1);
   writeln(f);
  end;
 CloseFile(f);
end;


procedure rec_vect(b:string);
begin
 AssignFile(f,b);
 Rewrite(f);
 for i:=1 to 8 do
  begin
   write(f,x[i]:7:1);
   writeln(f);
  end;
 CloseFile(f);
end;

procedure TForm1.N2Click(Sender: TObject);
begin

 for i:=1 to 8 do
  for j:=1 to 8 do
   begin
    if i+j<4 then a[i,j]:=arctan(i+j)+4.642*j
    else a[i,j]:=(d+3*(abs(i-j))+sqr(j))/(abs(sqr(i-j))+0.935*j);
    s:=s+a[i,j];
    end;
    begin
    for i:=1 to  8 do
    for j:=1 to 8 do
    f1book1.NumberRC[i,j]:=strtofloat(format('%0.1f',[a[i,j]]));
   end;
 sred:=s/(i*j);
 label3.Caption:=(format('%0.1f',[sred]));

 end;


procedure TForm1.N3Click(Sender: TObject);
begin
  for j:=1 to 8 do
   begin
         buff[j]:=a[2,j];
         a[2,j]:=a[3,j];
         a[3,j]:=buff[j];
         f1book1.NumberRC[2,j] :=strtofloat(format('%0.1f',[a[2,j]]));
         f1book1.NumberRC[3,j] :=strtofloat(format('%0.1f',[a[3,j]]));
   end;
end;


procedure TForm1.N5Click(Sender: TObject);
begin
for i:=1 to 8 do
  begin
   x[i]:=a[i,(9-i)];
  StringGrid1.Cells[i,0] := (format('%0.1f',[x[i]]));
  end;

  Rec_vect('начальный вектор.txt');
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  for i:=1 to 8 do
    for j:=1 to 8-i do
       if x[j] >x[j+1] then

 begin
         buf:=x[j+1];
         x[j+1]:=x[j];
         x[j]:=buf;

   end;
   for i:=1 to 8 do StringGrid1.Cells[i,0] := (format('%0.1f',[x[i]]));

  Rec_vect('конечный вектор.txt');
end;


end.

нужное:


зы: время мне дали до этой среды. я все таки надеюсь на помощь))
ззы: и сегодня я узнал как возводить в степеньт 2/5=))

[puporev]

Переделал я ту программу, что ты выложил под твои условия. Я сначала ее в Паскале сделал, я там лучше плаваю, а потом в Делфи отремонтировал твою. Все цифры сошлись, все выполняется по условию. В коде сделал небольшие пометки.

[screep]

оооооооооооооогромное спасибо, ты меня просто спас)))))) побег тестить)))) ася моя тут есть=))) пиши- сочтемся))))