Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.09.2008, 14:40   #1
Neznau
Пользователь
 
Регистрация: 17.05.2008
Сообщений: 16
По умолчанию Помогите пожалуйста(матрица)

Уважаемые! Помогите кто чем может, пожалуйста.
Построить матрицу A=abs aij размером 10х10 так, что aij= Cji при i=>j или Cji при j>i, где Cji число сочетаний из i элементов по j.

И если не сложно, вот тут просто алгоритм действий подсказать.
Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов своих цифр.
Neznau вне форума Ответить с цитированием
Старый 04.09.2008, 15:27   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

1)
Цитата:
что aij= Cji при i=>j или Cji при j>i,
Условие неверное, наверное так должно:
Цитата:
что aij= Cij при i=>j или Cji при j>i,
Вот код
Код:
function fact(a: byte): longint;//факториал
begin
  if a > 1 then fact := a * fact(a-1)
  else fact := 1
end;

function NpoM(N, M: byte): word;//соченания из N по M
begin
  NpoM := fact(N) div ( fact(M) * fact(N-M) )
end;

const
  n = 10;
var
  mas: array[1..n, 1..n] of byte;
  i, j: byte;
begin
  for i := 1 to n do 
  for j := 1 to n do
  if i >= j then mas[i, j] := NpoM(i, j)
  else mas[i, j] := NpoM(j, i);//заполнение матрицы
  for i := 1 to n do 
  begin
    for j := 1 to n do write(mas[i,j]:5);//вывод на экран
    writeln
  end;
  readln
end.
2)
а) Перебираем числа от 1 до N и каждое из них превращаем в строку, затем выдираем из этой строки все символы, переводим эти символы в цифры, возводим их в куб и складываем. Проверяем: если сумма = числу которое превращали в строку, то выводим это число на экран.
б) Можно не превращать в строку, а последовательно проверять остаток от деления на 10 после чего уменьшать в 10 раз целочисленным делением.
eoln вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица Droid Общие вопросы Delphi 7 06.05.2008 20:14
Помогите Написать программу Матрица и Массив 77rusnaut Помощь студентам 4 20.12.2007 20:22
Матрица =( Gwynbleidd Помощь студентам 3 16.12.2007 23:20