0 / 0 / 1
Регистрация: 27.11.2010
Сообщений: 12
1

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

29.11.2010, 21:25. Показов 1768. Ответов 2
Метки нет (Все метки)

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

Добавлено через 1 час 37 минут
пожалуйсто помогите с турбо паскалем
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2010, 21:25
Ответы с готовыми решениями:

вычитание многоразрядных чисел
Всем привет. Нужно вычесть одно многоразрядное число из другого многоразрядного числа. Я так...

Матрица целых чисел
Дана матрица целых чисел А. Элементы матрицы случайные числа из интервала [-2, 2). Числа n и m ...

Дана квадратная матрица целых чисел
Дана квадратная матрица целых чисел. Удалить все строки, в которых больше половины элементов...

алгоритм Миллера-Рабина проверки простоты многоразрядных чисел.
надо составить алгоритм Миллера-Рабина проверки простоты многоразрядных чисел. Я составил, ...

2
53 / 52 / 22
Регистрация: 29.11.2010
Сообщений: 143
29.11.2010, 22:08 2
Лучший ответ Сообщение было отмечено NLestat как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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.
1
0 / 0 / 1
Регистрация: 27.11.2010
Сообщений: 12
18.12.2010, 19:38  [ТС] 3
Цитата Сообщение от FuKingBrain Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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) в чом ошибка
народ помогтте срочно надо плиз
0
18.12.2010, 19:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2010, 19:38
Помогаю со студенческими работами здесь

Написать программу нахождения произведения двух десятичных многоразрядных чисел
Всем привет. Помогите пожалуйста написать код или поделитесь ссылкой на тему. Задача: Написать...

Дана матрица целых чисел размером 4х4.
Дана матрица целых чисел размером 4х4. Увеличить все четные элементы на 16, а нечетные элементы...

Заданная матрица целых чисел размером (N, N). Отсортировать элементы в закрашенных областей по возрастанию
Заданная матрица целых чисел размером (N, N). Отсортировать элементы в закрашенных областей по...

Дана матрица целых чисел A[3х3]. Её элементы заполняюся случайно( RANDOM, диапазон от 0 до 10).
Дана матрица целых чисел A. Её элементы заполняюся случайно( RANDOM, диапазон от 0 до 10). Найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru