Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Чётность- нечётность https://www.cyberforum.ru/ turbo-pascal/ thread200197.html Написать программу на определение каких цифр больше, чётных или нечётных? Пишем с помощью if или while	Turbo Pascal Дано натуральное число 1) найти сумму цифр которые больше 5 2) сколько раз данная цифра встречается в числе помогите плиз:) Добавлено через 19 часов 40 минут Никто не поможет?:(
Turbo Pascal Определите, есть ли в последовательности чисел два подряд идущих нулевых числа https://www.cyberforum.ru/ turbo-pascal/ thread200181.html с клавиатуры водятся числа до тех пор пока не введено 100. определите, есть ли в последовательности чисел два подряд идущих нулевых числа!!	Turbo Pascal Двумерный массив Ввести двумерный массив A N×M . Каждый второй элемент в массиве с нечётной суммой индексов, чьё значение лежит в диапазоне заменить единицей. Массив вывести до и после преобразования. https://www.cyberforum.ru/ turbo-pascal/ thread200158.html
не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле. Turbo Pascal не могу записать текст с файла .txt в переменную string игнорируя конец строки в текстовом файле. Задание Определить сколько в тексте гласных и согласных букв. program SSO6; const glasn=; ...	Turbo Pascal Операторы присваивания, ввод и вывод информации Сколько процентов от А + В – С приходится на A? На В? На С? Напишите будте добры программу, а то некак немогу ее одалеть. Добавлено через 3 часа 50 минут Тема актуальна Добавлено через 20... https://www.cyberforum.ru/ turbo-pascal/ thread200132.html
Turbo Pascal паскаль указать натуральное число из заданного интервала, в двоичном представлении которого больше всего единиц. процесс должен быть проиллюстрирован анимацией на экране.результат записан в файл. https://www.cyberforum.ru/ turbo-pascal/ thread200126.html	Turbo Pascal Почему не продолжается ввод данных? помогите пожалуйста! Почему не продолжается ввод данных? когда на запрос введите количество товаров ставишь 1 то работает, а когда 5....6...7... и тд.не продолжается ввод данных!
Turbo Pascal Вычислить и вывести на экран в виде таблицы значения функции, заданной графически https://www.cyberforum.ru/ turbo-pascal/ thread200121.html Здравствуйте! Помогите сделать следующие задания пожалуйста: 3.1. Вычислить и вывести на экран в виде таблицы значения функции, заданной графически , на интервале от xнач до xкон с шагом dx....	Turbo Pascal Почему не продолжается ввод данных? https://www.cyberforum.ru/ turbo-pascal/ thread200115.html помогите пожалуйста! Почему не продолжается ввод данных? когда на запрос введите количество товаров ставишь 1 то работает, а когда 5....6...7... и тд.не продолжается ввод данных! Program bd;...
Даны k значений целых натуральных n. Определить сколько пар одинаковых соседствующих цифр входит в запись этих чисел Turbo Pascal Доброго вечера! Помогите написать программку. Даны k значений целых натуральных n. Определить сколько пар одинаковых соседствующих цифр входит в запись этих чисел.	Turbo Pascal Анаграмма https://www.cyberforum.ru/ turbo-pascal/ thread200101.html Народ, мне надо решить одну задачку, плиз помогите Напишите программу, которая вводит из файла слово длинною не более 14 букв и выводит в выходной файл количество анаграмм, которые могут...

NLestat

0 / 0 / 1

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

Сообщений: 12

18.12.2010, 19:38 [ТС]

матрица многоразрядных целых чисел - Turbo Pascal - Ответ 1215285

18.12.2010, 19:38. Показов 1692. Ответов 2

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

Ответ

Сообщение от 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) в чом ошибка

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

Вернуться к обсуждению:
матрица многоразрядных целых чисел Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

18.12.2010, 19:38

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

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

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

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

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

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). Найти...

Наверх