как сделать в графическое приложения

[yana1996]

Помогите пожалуйста переделать этот код в Графическое приложения , чтобы массивы выводился в StringGrid .

var
  a:array[1..10] of integer;
  N,i,i2,k,k2:Integer;

begin
  Write('N: ');
  Readln(N);

  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

   k:=1;
   k2:=2;

  for i:=1 to N do
    for i2:=i+1 to N do
      if abs(a[i]-a[i2])<abs(a[k]-a[k2]) then
        begin
          k:=i;
          k2:=i2;
        end;

  Writeln(k,' ',k2);
end.

[type_Oleg]

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

.. чтобы массивы выводился в StringGrid ...

У вас тут массив ВВодится, а ВЫводится просто одно число k
Что же вам точно надо ?

Вот, то же, что и вас, только со StringGrid и Edit

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
 StringGrid1.Cells[0,0]:='i';
 StringGrid1.Cells[1,0]:='a[i]';
 for i:=1 to 10 do
  StringGrid1.Cells[0,i]:=IntToStr(i);
end;
// .....
procedure TForm1.Button1Click(Sender: TObject);
var N,i,i2,k,k2:Integer;
   a:array[1..10] of integer;
begin
 N:=StrToIntDef(Edit1.Text,0);
 for i:=1 to N do
  a[i]:=StrToIntDef(StringGrid1.Cells[1,i],0);
 k:=1;
 k2:=2;
 for i:=1 to N do
   for i2:=i+1 to N do
     if abs(a[i]-a[i2])<abs(a[k]-a[k2]) then
       begin
        k:=i;
        k2:=i2;
       end;
 Edit2.Text:=IntToStr(k);
end;

[yana1996]

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

У вас тут массив ВВодится, а ВЫводится просто одно число k
Что же вам точно надо ?

Вот, то же, что и вас, только со StringGrid и Edit

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
 StringGrid1.Cells[0,0]:='i';
 StringGrid1.Cells[1,0]:='a[i]';
 for i:=1 to 10 do
  StringGrid1.Cells[0,i]:=IntToStr(i);
end;
// .....
procedure TForm1.Button1Click(Sender: TObject);
var N,i,i2,k,k2:Integer;
   a:array[1..10] of integer;
begin
 N:=StrToIntDef(Edit1.Text,0);
 for i:=1 to N do
  a[i]:=StrToIntDef(StringGrid1.Cells[1,i],0);
 k:=1;
 k2:=2;
 for i:=1 to N do
   for i2:=i+1 to N do
     if abs(a[i]-a[i2])<abs(a[k]-a[k2]) then
       begin
        k:=i;
        k2:=i2;
       end;
 Edit2.Text:=IntToStr(k);
end;

У меня ошибка вылазит все сделала правильно

[type_Oleg]

На чем сделали - Delphi, Lazarus или еще что ?
В начале, когда сажаете компонент StringGrid на форму, установите в свойствах этого StringGrid :
RowCount = 11 . То есть максимум 10, как у вас в задании и еще 1 - для заголовка.
ColCount = 2 - для i и a[i]
Еще надо установить возможность редактирования ячеек, если оно по умолчанию False

[yana1996]

Lazzarus

[yana1996]

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

А сможе еще посмотреть вот эту программу она не правильно работает

Условия
Дан массив размера N. Обнулить все его локальные максимумы (то есть числа, большие своих соседей);
выводит одни нули почему ?

var
a:array[1..7] of integer;
i,n:integer;
 
begin
    stringGrid1.rows[2].clear;
    stringGrid1.rows[1].clear;
    randomize;
    n:=StrToInt(Edit1.Text);
    for i:=1 to n do
       begin
         StringGrid1.Cells[i,1]:=IntToStr(random(100));
       end;
         for i:=1 to N do
       if (a[i-1]<a[i]) and (a[i]>a[i+1])
           then a[i]:=0;
       if a[1] > a[2]
           then a[1]:=0;
       if a[N] > a[N-1]
           then a[N]:=0;
           for i:=1 to N do
         StringGrid1.Cells[i,2]:=intToStr(a[i]);
         end;

[type_Oleg]

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

.. выводит одни нули почему ?

А потому что там и были с самого начала одни нули. Точнее - там неизвестно что было, просто сам Lazarus туда нулей напихал.

Вы ведь никак не инициализировали массив a . В ячейки ввели случайные величины, и всё..

Вот так надо:

for i:=1 to n do
       begin
         a[i]:=random(100);  //   *** 
         StringGrid1.Cells[i,1]:=IntToStr(a[i]);
       end;

И еще - в другом цикле у вас при i =1 и i=N будет вылазить за пределы массива. Чтобы не вылазило, сделайте от 2 до N-1.

И лучше использовать динамические массивы.

[yana1996]

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

А потому что там и были с самого начала одни нули. Точнее - там неизвестно что было, просто сам Lazarus туда нулей напихал.

Вы ведь никак не инициализировали массив a . В ячейки ввели случайные величины, и всё..

Вот так надо:

for i:=1 to n do
       begin
         a[i]:=random(100);  //   *** 
         StringGrid1.Cells[i,1]:=IntToStr(a[i]);
       end;

И еще - в другом цикле у вас при i =1 и i=N будет вылазить за пределы массива. Чтобы не вылазило, сделайте от 2 до N-1.

И лучше использовать динамические массивы.

Спасибо большое все заработало !!!)