матрица многоразрядных целых чисел

@NLestat · Регистрация: 27.11.2010

Дана матрица A(5*5) многоразрядных целых чисел. Найти номер строки и номер столбца, на пересечении которых находится элемент матрицы, в значении которого больше всего расположено разрядов

Добавлено через 1 час 37 минут
пожалуйсто помогите с турбо паскалем

@FuKingBrain · 29.11.2010, 22:08

Pascal

uses crt;
var
 a: array[1..5,1..5] of integer;
 i, j, fi, fj, rFind, rCur, val: integer;
 
 function findr(val: integer): integer;
 var
  r: integer;
 begin
  r := 0;
  while val <> 0 do
   begin
    val := val div 10;
    r := r + 1;
   end;
  findr := r;
 end;
 
begin
 clrscr;
 Randomize;
 for i := 1 to 5 do
  begin
   for j := 1 to 5 do
    begin
     a[i, j] := trunc(random(random(10000)));
     write(a[i, j]:10, ' ');
    end;
   writeln;
  end;
 writeln;
 fi := 1;
 fj := 1;
 rFind :=  findr(a[1, 1]);
 for i := 1 to 5 do
  for j := 1 to 5 do
   begin
    rCur := findr(a[i, j]);
    if rCur > rFind then
     begin
      fi := i;
      fj := j;
      rFind := rCur;
     end;
   end;
 
 writeln('(i = ', fi, '; j = ', fj, ')');
 readln;
end.

@NLestat · 18.12.2010, 19:38 **[ТС]**

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

Pascal

uses crt;
var
 a: array[1..5,1..5] of integer;
 i, j, fi, fj, rFind, rCur, val: integer;
 
 function findr(val: integer): integer;
 var
  r: integer;
 begin
  r := 0;
  while val <> 0 do
   begin
    val := val div 10;
    r := r + 1;
   end;
  findr := r;
 end;
 
begin
 clrscr;
 Randomize;
 for i := 1 to 5 do
  begin
   for j := 1 to 5 do
    begin
     a[i, j] := trunc(random(random(10000)));
     write(a[i, j]:10, ' ');
    end;
   writeln;
  end;
 writeln;
 fi := 1;
 fj := 1;
 rFind :=  findr(a[1, 1]);
 for i := 1 to 5 do
  for j := 1 to 5 do
   begin
    rCur := findr(a[i, j]);
    if rCur > rFind then
     begin
      fi := i;
      fj := j;
      rFind := rCur;
     end;
   end;
 
 writeln('(i = ', fi, '; j = ', fj, ')');
 readln;
end.

попробовал а он всеравно неправельно выводит(((
он просто выводит (I=1;j=1) в чом ошибка

Добавлено через 58 минут

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

попробовал а он всеравно неправельно выводит(((
он просто выводит (I=1;j=1) в чом ошибка

народ помогтте срочно надо плиз

@NLestat 0 / 0 / 1 Регистрация: 27.11.2010 Сообщений: 12
		1
	матрица многоразрядных целых чисел 29.11.2010, 21:25. Показов 1674. Ответов 2 Метки нет (Все метки) Дана матрица A(55) многоразрядных целых чисел. Найти номер строки и номер столбца, на пересечении которых находится элемент матрицы, в значении которого больше всего расположено разрядов Добавлено через 1 час 37 минут* пожалуйсто помогите с турбо паскалем 0

Опции темы

матрица многоразрядных целых чисел

Решение