Вывести массив в StringGrid

@ttssooyy · Регистрация: 25.11.2018

Студворк — интернет-сервис помощи студентам

Нужно чтобы массив выводился не в label, а в stringgrid

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=25;
var
   mas:array[1..n] of real;
   k: real;
   i,g: byte;
   d,j: integer;
begin
randomize;
  for i:=1 to n do
   begin
   mas[i]:= random(100);
   label1.caption:=label1.Caption+' '+FloatToStr(mas[i]);
    end;
  k:= mas[1];
  for i:= 1 to n do
   if mas[i]<k then
   begin
     k:=mas[i];
     g:=i;
     end;
 
  mas[g]:=mas[1];
  mas[1]:=k;
  for i:=1 to n do
    label2.caption:=label2.Caption+' '+FloatToStr(mas[i]);
   end;
end.

@Matan! · 11.12.2018, 00:11

Delphi

  StringGrid1.RowCount := 2;
  StringGrid1.ColCount := n;
  Randomize;
 
  for i := 1 to n do
  begin
    mas[i] := Random(100) / 3 - Random(100) / 11;
    StringGrid1.Cells[i, 0] := FloatToStr(mas[i]);
  end;

Добавлено через 1 минуту
А что Вы во второй лабел выводите? В чём задача состоит? Вот я вижу: ввели массив, нашли минимальное значение массива. А дальше что?

@ttssooyy · 11.12.2018, 20:33 **[ТС]**

Во второй лабел я вывожу тот же самый массив, только меняю местами наименьший элемент с первым. Спасибо за ответ.

@Arman03 · 06.10.2022, 07:37

можете подсказать, какой итоговый код вышел у вас?

Добавлено через 27 минут
Matan!, помогиите пожалуйста )

Добавлено через 1 минуту
ttssooyy, какой у вас итоговый код вышел когда вы переписали всё ?

@D1973 · 06.10.2022, 08:11

Arman03, на дату последнего сообщения смотрите, когда конкретно к кому-то обращаетесь. 4 года прошло ведь!

@ttssooyy 0 / 0 / 0 Регистрация: 25.11.2018 Сообщений: 65
	11.12.2018, 20:33 [ТС]	3
	Во второй лабел я вывожу тот же самый массив, только меняю местами наименьший элемент с первым. Спасибо за ответ. 0

@Arman03 0 / 0 / 0 Регистрация: 05.10.2022 Сообщений: 10
	06.10.2022, 07:37	4
	можете подсказать, какой итоговый код вышел у вас? Добавлено через 27 минут Matan!, помогиите пожалуйста ) Добавлено через 1 минуту ttssooyy, какой у вас итоговый код вышел когда вы переписали всё ? 0

@D1973 Модератор 9043 / 5841 / 2333 Регистрация: 21.01.2014 Сообщений: 24,991 Записей в блоге: 3
	06.10.2022, 08:11	5
	Arman03, на дату последнего сообщения смотрите, когда конкретно к кому-то обращаетесь. 4 года прошло ведь! 0

Опции темы

Вывести массив в StringGrid

Решение