заполнение матрицы

@valerа · Регистрация: 18.05.2011

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

Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [Aij]ij=1..n, если Aij=Sin(i+j/2).

я решил что сначала заполню матрицу, а потом с другой кнопки искать значение." Aij=Sin(i+j/2)" <--- заполнить этими значениями но у меня тут ошибка" некоррекный тип":

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n:integer;
 b,c:real;
 begin
randomize;
  n:=strtoint(Edit1.Text)-1;
 
  for i:=0 to n do
  for j:=0 to n do
  b:=i;
  c:=j;
     StringGrid1.Cells[i,j]:= floattostr(random(Sin(b+c/2)));
end;
 
end.

как можно исправить?

@Romantik_FM · 27.05.2011, 00:54

valerа, в uses скорее всего нужно добавить модуль Math

@valerа · 27.05.2011, 14:03 **[ТС]**

эт как??

@Руслан1993 · 27.05.2011, 14:17

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

Добавлено через 31 секунду
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

найди в начале похожее и туда введи

@Mawrat · 27.05.2011, 15:08

Вот в этой строке ошибка:

Сообщение от valerа

StringGrid1.Cells[i,j]:= floattostr(random(Sin(b+c/2)));

random(Sin(b+c/2)) - аргументом функции Random() должно быть целое число. А функция Sin() возвращает вещественное число. Т. е., здесь несоответствие типов - поэтому и возникает исключение.

@Romantik_FM 324 / 316 / 84 Регистрация: 03.03.2010 Сообщений: 1,364
	27.05.2011, 00:54	2
	valerа, в uses скорее всего нужно добавить модуль Math 0

@valerа 1 / 1 / 0 Регистрация: 18.05.2011 Сообщений: 7
	27.05.2011, 14:03 [ТС]	3
	эт как?? 0

@Руслан1993 0 / 0 / 0 Регистрация: 27.05.2011 Сообщений: 3
	27.05.2011, 14:17	4
	uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Добавлено через 31 секунду uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; найди в начале похожее и туда введи 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	27.05.2011, 15:08	5
	Вот в этой строке ошибка: Сообщение от valerа StringGrid1.Cells[i,j]:= floattostr(random(Sin(b+c/2))); random(Sin(b+c/2)) - аргументом функции Random() должно быть целое число. А функция Sin() возвращает вещественное число. Т. е., здесь несоответствие типов - поэтому и возникает исключение. 0