PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
PascalABC.NET Модификатор internal https://www.cyberforum.ru/ pascalabc-net/ thread2228817.html Как сделать чтобы Value был доступен только через модули A и B? unit A; type T1 = class internal class Value: integer; end; end. unit B; uses A;	PascalABC.NET Заменить все элементы массива кроме тем, что расположены одновременно над главной и под побочной диагоналями Помогите пожалуйста) Выполните задание реализовав использование процедур (void-методов) пользователя. Задание:Дан двумерный числовой массив, состоящий из N строк и столбцов, заполненный случайными вещественными числами из диапазона от А до B. Проведите замену части массива по приведенному ниже правилу. Правило:Заменить значения всех элементов массива за исключением тех, что расположены...
PascalABC.NET Заменить те элементы массива, которые начинаются на введенную с клавиатуры букву, этой буквой Помогите пожалуйста) Задача:Для решения приведённой ниже задачи разработайте соответствующую процедуру (void-метод). Во всех задачах дан одномерный массив из N элементов. При решении задачи также опишите и примените процедуры (void-методы) для ввода и вывода элементов массива на экран. Элементами массива являются слова различной длины, введённые с клавиатуры. Замените те элементы массива,... https://www.cyberforum.ru/ pascalabc-net/ thread2228576.html	PascalABC.NET Калькулятор «Параллелограмм» Помогите пожалуйста) Выполните задание реализовав использование процедур (void-методов) пользователя Задание :С помощью оператора «Выбор» смоделируйте соответствующий калькулятор. В качестве исходных данных для значений селектора используйте символы. Задача:Смоделируйте калькулятор «Параллелограмм», который для данных периметра P, одной из сторон b и острого угла  параллелограмма в... https://www.cyberforum.ru/ pascalabc-net/ thread2228574.html
PascalABC.NET Процедура, которая выводит на экран фигуру из звёздочек Помогите пожалуйста) Напишите процедуру, которая выводит на экран фигуру из звёздочек (смотри пример ниже). Вывести на экран заданное количество таких фигур. Опишите указанную процедуру без параметров. Используйте данную процедуру в основной части программы на языке PascalABC.NET	PascalABC.NET Отсортировать массив записей по полю «улица» в обратном алфавитном порядке https://www.cyberforum.ru/ pascalabc-net/ thread2228569.html Помогите пожалуйста) Составьте программу для решения указанной задачи. Во всех вариантах дан массив из N записей, которые описаны в первом предложении каждого варианта, затем указано условие задачи. Осуществите проверку правильности введения информации при заполнении массива. Адрес: город (строка), улица (строка), номер дома (натуральное число), номер квартиры (натуральное число). Выведите на...
PascalABC.NET Вывести на экран все квартиры из указанного города Помогите пожалуйста) Составьте программу для решения указанной задачи. Во всех вариантах дан массив из N записей, которые описаны в первом предложении каждого варианта, затем указано условие задачи. Осуществите проверку правильности введения информации при заполнении массива. Адрес: город (строка), улица (строка), номер дома (натуральное число), номер квартиры (натуральное число). Выведите на... https://www.cyberforum.ru/ pascalabc-net/ thread2228568.html	PascalABC.NET Проверка правильности введённой даты Помогите пожалуйста) Составьте программу для решения указанной задачи Дана дата в формате «дд.мм.гггг» (где «дд» – число, «мм» – номер месяца, «гггг» – год), описанная в виде записи. Проверьте, правильность введенной даты.
PascalABC.NET Неправильное восприятие переменной procedure modi(var m: integer); var k: real; var t,n,g,i: integer; begin m:= m*m; t:= m; i:= 0; while (t>0) do begin t:= t div 10; i:= i+1; end; https://www.cyberforum.ru/ pascalabc-net/ thread2228386.html	PascalABC.NET Документирующие комментарии Engine - ссылка на скачивание движка. Хотелось бы улучшить комментарии. Можете подсказать где надо их улучшить? https://www.cyberforum.ru/ pascalabc-net/ thread2228306.html
PascalABC.NET Написать программу, которая сортирует массив из N элементов по возрастанию методом «пузырька» 20. Написать программу, которая сортирует массив из N элементов по возрастанию методом «пузырька». Протестировать программу на следующих исходных данных: (1 2 5 6 -4 0 11 12).	PascalABC.NET Дан одномерный массив из n элементов https://www.cyberforum.ru/ pascalabc-net/ thread2228207.html 19. Дан одномерный массив из n элементов. Составить программу упорядочивания элементов массива по убыванию (сортировка отбором), т.е. от большего к меньшему. Протестировать программу на следующих исходных данных: (1 2 5 6 -4 0 11 12).

nnpnp

1 / 1 / 1

Регистрация: 01.02.2018

Сообщений: 268

15.04.2018, 16:03 [ТС]

Найти элемент, в значении которого больше всего разрядов - PascalABC.NET - Ответ 12309371

15.04.2018, 16:03. Показов 1296. Ответов 6

Метки (Все метки)

Ответ

Сообщение от ZX Spectrum-128

Дайте код. Перенапишем.

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.

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

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

Это так хитро сформулирована элементарная задача по нахождению максимального элемента матрицы?

Наверное, нет. И что за еще разряд, лол

Вернуться к обсуждению:
Найти элемент, в значении которого больше всего разрядов PascalABC.NET

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.04.2018, 16:03

Готовые ответы и решения:

Найти в матрице число, в двоичном представлении которого больше всего единиц
Условие. Размерности массивов вводить с клавиатуры. Исходные данные и результаты выводить на экран...

Функция void: в последовательности целых чисел найти число, в двоичном представлении которого больше всего единиц
Разработать процедуру, которая в последовательности целых чисел находит число, в двоичном...

Найти в массиве элемент который встречается больше всего раз
Задание: Найти в массиве элемент который встречается больше всего раз...Двумерный массив...

SWI Prolog, реализовать запрос: "Найти предприятие, у которого больше всего вакансий"
Здравствуйте, Уважаемые Профессионалы! Возникли сложности при реализации запроса в среде SWI...

	15.04.2018, 16:03

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.04.2018, 16:03

Помогаю со студенческими работами здесь

Найти элемент в массиве которого больше 50%. Улучшить код
Новый русский Колян любит две вещи: деньги и порядок. У Коляна много денег, но в них нет порядка....

Массив: Найти последний элемент массива, значение которого больше А.
Дан одномерный массив Xn. Найти последний элемент массива, значение которого больше А. Первые пять...

Найти второй элемент массива, значение которого по модулю больше 5
Дали задание, сам усложняюсь справится. Помогите кто может! Дан одномерный массив Y. Найти второй...

Найти второй элемент массива, значение которого по модулю больше 5
При запуске программы Паскаль выдает вот такую ошибку "Нельзя запустить модуль" В чем же проблема...

Наверх