Спасите,срочно необходимо решение! - Форум
Пятница, 09.12.2016, 12:35
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Спасите,срочно необходимо решение!
Спасите,срочно необходимо решение!
RoxyДата: Четверг, 11.02.2010, 15:23 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 8
[ 0 ]
Статус: Offline
Пусть m натуральных чисел заданы своими цифрами в q-ичной системе
счисления, хранящимися в строках матрицы K( m ,n). Найти сумму этих чисел в
той же системе, не вычисляя самих чисел ( q ≤ 10 ).
 
LoremasterДата: Пятница, 12.02.2010, 12:05 | Сообщение # 2
Генерал-майор
Группа: Участник
Сообщений: 45
[ 3 ]
Статус: Offline
Складывать в столбик умеешь? Здесь тоже самое.

  • Начинаешь с самого правого столбца, складываешь все его элементы, полученную сумму делишь "нацело" на q: целую часть результата деления запоминаешь ("один в уме..."), остаток от деления записываешь в правую позицию результата;
  • Далее второй справа столбик: складываешь все элементы плюс то, что запомнили на предыдущем шаге, полученную сумму делишь "нацело" на q: целую часть результата деления запоминаешь ("один в уме..."), остаток от деления записываешь во вторую справа позицию результата;
  • И так далее для всех столбцов...

    В каком виде решение задачи нужно?

  •  
    RoxyДата: Пятница, 12.02.2010, 20:30 | Сообщение # 3
    Сержант
    Группа: Новичок
    Сообщений: 8
    [ 0 ]
    Статус: Offline
    спасибо за разъяснение,сам принцип теперь более-менее понятен,но как записать-без понятия,в программировании полная блондинка(((нужно на паскале.
     
    LoremasterДата: Суббота, 13.02.2010, 12:28 | Сообщение # 4
    Генерал-майор
    Группа: Участник
    Сообщений: 45
    [ 3 ]
    Статус: Offline
    До какого числа нужно решение?
     
    RoxyДата: Воскресенье, 14.02.2010, 09:28 | Сообщение # 5
    Сержант
    Группа: Новичок
    Сообщений: 8
    [ 0 ]
    Статус: Offline
    до 18 февраля
     
    LoremasterДата: Понедельник, 15.02.2010, 10:56 | Сообщение # 6
    Генерал-майор
    Группа: Участник
    Сообщений: 45
    [ 3 ]
    Статус: Offline
    Code
    program sumOfNums;

    {$APPTYPE CONSOLE}

    uses
          SysUtils;

    var
          M, N, Q: Integer;
          I, J, ColSum: Integer;
          Nums: array of array of Integer;
          Res: array of Integer;
    begin
          write('How many numbers (M)? ');
          readln(M);

          write('How many digits (N)? ');
          readln(N);

          write('Numerical notation (Q <= 10)? ');
          readln(Q);

          SetLength(Nums, M);
          for I :=0 to (M - 1) do
               SetLength(Nums[I], N);

          SetLength(Res, N + 1);

          randomize;

          for I := 0 to (M - 1) do
          begin
               writeln;
               write(' ');
               for J := 0 to (N - 1) do
               begin
                    Nums[I, J] := random(Q);
                    write(Nums[I, J]);
               end;
          end;

          ColSum := 0;

          for J := N - 1 downto 0 do
          begin
               for I := 0 to (M - 1) do
               begin
                    ColSum := ColSum + Nums[I, J];
               end;
               Res[J + 1] := ColSum mod Q;
               ColSum := ColSum div Q;
          end;

          Res[0] := ColSum mod Q;

          writeln;
          if ColSum div Q > 0 then
          begin
               writeln('Overflow.');
          end;

          for J := 0 to N do
          begin
               write('-');
          end;

          writeln;
          for J := 0 to N do
          begin
               write(Res[J]);
          end;
          readln;
    end.


    Сообщение отредактировал Loremaster - Понедельник, 15.02.2010, 11:50
     
    RoxyДата: Понедельник, 15.02.2010, 12:43 | Сообщение # 7
    Сержант
    Группа: Новичок
    Сообщений: 8
    [ 0 ]
    Статус: Offline
    огромное спасибо)))
     
    Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Спасите,срочно необходимо решение!
    Страница 1 из 11
    Поиск:

    Copyright MyCorp © 2016