дан двумерный массив пользователь вводит натуральные числа,массив размером N на M .Все числа из которых можно извлечь корень извлекаются все числа меньше нуля заменяются их модулем

[qqq``]

не получается использовать функцию sqrt выдает ошибку типов

procedure TForm1.Button1Click(Sender: TObject);
const N=5;
      M=5;
  var
    i,j,a:integer ;
    begin
   for i:=1 to N do begin
  for j:=1 to M do begin
  if (sqrt(Strtoint(stringgrid1.cells[i-1,j-1]))) then
  a:=(strtoint(stringgrid1.cells[i-1,j-1]));
  if a<0 then
  a:=a*-1 ;
  end;
  end;
end

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

Секретную ошибку?

[qqq``]

секретную? (extended)

[Serge_Bliznykov]

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

Секретную ошибку?

почему - "секретную"?

ведь
оператор IF требует логический тип (boolean),
а sqrt в этой строке

if (sqrt(Strtoint(stringgrid1.cells[i-1,j-1]))) then

возвращает вещественный.

Сообщение от qqq``

не получается использовать функцию sqrt выдает ошибку типов

что Вы хотели написать? Для чего Вам операция извлечения квадратного корня?
что Вы проверяете в операторе IF ?

p.s. я уже не говорю про то, что нет проверки на то, что в ячейках грида именно целые числа (а не мусор) и что они положительные.

[Alex11223]

Ну автор не опубликовал ее. Видимо секрет.

[Serge_Bliznykov]

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

Видимо секрет.

так он думает, что вот тут он об ошибке написал - #3


а задание не годится.

пользователь вводит натуральные числа,массив размером N на M .Все числа из которых можно извлечь корень извлекаются все числа меньше нуля....

см. определение натуральных чисел.
натуральные числа не бывают меньше нуля.
думаю, что речь идёт о ЦЕЛЫХ числах.
вот они могут быть и положительными и отрицательными.

[qqq``]

я хотел проверить число которое пользователь ввел в ячейку и если квадрат вычисляется да то stringgrid1.cells[i-1,j-1] :=stringgrid1.cells[i-1,j-1]

[Serge_Bliznykov]

Сообщение от qqq``

я хотел проверить число которое пользователь ввел в ячейку и если квадрат вычисляется

квадратный корень вычисляется для ВСЕХ неотрицательных чисел.

поэтому

var f : Extended;
    i, j : Integer;
begin
   ....
   for i:=0 to N-1 do   //N строк 
       for j:=0 to M-1 do begin  // M столбцов
         try
           f := StrToFloat( stringgrid1.cells[j-1, i-1] );
           if f>=0 
             then f := sqrt(f)
             else f:= abs(f);
           stringgrid1.cells[j-1, i-1] := FloatToStr(f)
	 except
	  on Exception : EConvertError do
	      ShowMessage(Exception.Message);
	  end;
       end;

[qqq``]

спасибо

[Serge_Bliznykov]

пожалуйста.

обратите внимание, я в таблице допустил внесение ВЕЩЕСТВЕННЫХ (дробных) чисел.

Если нужны строго целые числа - тогда замените StrToFloat() на StrToInt(), а FloatToStr() замените на IntToStr()