Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
NLestat
0 / 0 / 1
Регистрация: 27.11.2010
Сообщений: 12
1

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

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

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

Добавлено через 1 час 37 минут
пожалуйсто помогите с турбо паскалем
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2010, 21:25
Ответы с готовыми решениями:

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

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

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

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

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

2
FuKingBrain
53 / 52 / 22
Регистрация: 29.11.2010
Сообщений: 139
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
NLestat
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
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® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.