Как сделать вывод трех подпрограмм

[santafer]

Как сделать вывод этих трех подпрограмм в StringGrid ???
Покажите пожалуйста

type
 RArray = array[1..10] of Real;

var
 A,B,C:RArray;
 Na,Nb,Nc:integer;

Procedure Bell(var A:RArray; N:integer);
 var k,k2:integer;
 TempR: RArray;
begin

 for k:=1 to N-1 do
  for k2:=1 to N-k do
   begin
    if A[k2]<A[k2+1] then
     begin
      A[k2]:=A[k2]+A[k2+1];
      A[k2+1]:=A[k2]-A[k2+1];
      A[k2]:=A[k2]-A[k2+1];
     end;
   end;

 for k:=1 to N do
  if (k mod 2)<>0 then TempR[(k div 2)+1]:=A[k]
  else TempR[N-(k div 2)+1]:=A[k];
 A:=tempR;
end;

Procedure EnterArray(var A:RArray; var N:integer);
var i:integer;
begin
 Write('Size:');
 Readln(N);
 for i:=1 to N do
  begin
   Write(i,': ');
   Readln(A[i]);
  end;
end;

Procedure InputArray(var A:RArray; var N:integer);
var i:integer;
begin
 Writeln('---');
 for i:=1 to N do Writeln(i,': ',A[i]);
 Writeln('---');
end;

begin
 EnterArray(A,Na);
 Bell(A,Na);
 InputArray(A,Na);

 EnterArray(B,Nb);
 Bell(B,Nb);
 InputArray(B,Nb);

 EnterArray(C,Nc);
 Bell(C,Nc);
 InputArray(C,Nc);
end.

[type_Oleg]

Вывод - это то, что у вас в InputArray ?
Тогда например, так:

 for i:=1 to N do
  begin
   StringGrid1.Cells[0,i-1]:=IntToStr(i);
   StringGrid1.Cells[1,i-1]:=FloatToStr(A[i]);
  end;

[santafer]

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

Вывод - это то, что у вас в InputArray ?
Тогда например, так:

 for i:=1 to N do
  begin
   StringGrid1.Cells[0,i-1]:=IntToStr(i);
   StringGrid1.Cells[1,i-1]:=FloatToStr(A[i]);
  end;

не) ... вот есть три под программы , как каждую вывести в отдельный Stringgrid

[type_Oleg]

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

не) ... вот есть три под программы , как каждую вывести в отдельный Stringgrid

Эти ваши 3 подпрограммы что-то делают с массивом. То есть их результат - какой-то измененный массив.

Ну так создайте еще подпрограмму - для вывода, типа

procedure ArrayToStringGrid(A:RArray;SG:TStringGrid);
begin
 // здесь опишите сам вывод
end;

и 2 варианта:
- или вызывайте её в основной программе после ваших подпрограмм. Как у вас и сделано
- или вызывайте её в самих подпрограммах. Подпрограмма может вызывать другую подпрограмму.

[santafer]

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

Эти ваши 3 подпрограммы что-то делают с массивом. То есть их результат - какой-то измененный массив.

Ну так создайте еще подпрограмму - для вывода, типа

procedure ArrayToStringGrid(A:RArray;SG:TStringGrid);
begin
 // здесь опишите сам вывод
end;

и 2 варианта:
- или вызывайте её в основной программе после ваших подпрограмм. Как у вас и сделано
- или вызывайте её в самих подпрограммах. Подпрограмма может вызывать другую подпрограмму.

Спасибо)