|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.11.2008, 11:59 | #1 |
Пользователь
Регистрация: 17.10.2008
Сообщений: 23
|
разложить число на простые множители и вывести результат
пожалуйста помогите разобраться!!!
задача: дана натуральное число N. разложить его на простые множители и вывести результат в видв. например: 12=1*2*2*3. программу я написала, но она выводит только простые делители uses crt; var n,i:longint; begin clrscr; write('n');{ввести число} readln(n); write(n,'=','','1' ); i:=2; while n<>1 do begin if n mod i=0 then write('*',i,''); repeat n:=n div i; until n mod i<>0; end; inc(i); end; end. вывод программы такой: 12=1*2*3 а этот ответ неправельный. |
14.11.2008, 12:05 | #2 |
Пользователь
Регистрация: 17.10.2008
Сообщений: 23
|
множители
и еще объясните если можно как повернуть квадратную матрицу на 90 градусов против часовой стрелки
Последний раз редактировалось pakusya; 14.11.2008 в 12:17. |
14.11.2008, 13:59 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Простые множители и простые делители в данном случае вроде одно и тоже. Просто у Вас программа выводит каждый делитель один раз, хотя он может встречаться несколько раз, например 8=2*2*2.
Чтобы выводил нормально, нужно после того как нашли делитель, еще раз попробовать на него разделить, и еще, пока делиться не будет, и каждый раз выводить. Можно написать так: Код:
|
14.11.2008, 14:10 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
А Вы нарисуйте матрицу типа
11 12 13 14 21 22 23 24 31 32 33 34 41 42 43 44 Затем поверните ее по условию 14 24 34 44 13 23 33 43 12 22 32 42 11 21 31 41 А сейчас ищите закономерность и Вы увидите, что вторая матрица получается из первой, путем присваивания значений по следующему принципу: b[i,j]:=a[j,n-i+1]; |
14.11.2008, 14:45 | #5 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Вот, немного более простой вариант решения:
Код:
E-Mail: arigato.freelance@gmail.com
|
15.11.2008, 02:54 | #6 |
Пользователь
Регистрация: 17.10.2008
Сообщений: 23
|
большое спосибо!!! я все поняла. неделю сидела над этими задачами, надо было сразу обратится к вам.
|
15.11.2008, 03:07 | #7 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
Не надо сразу, учиться надо. А потом приходить на форум в качестве эксперта, так много интереснее
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
разложение на простые множители | pakusya | Помощь студентам | 2 | 19.12.2011 15:55 |
Разложение числа на простые множители | artem_MG | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.10.2008 19:28 |
Найти и вывести все слова,у котоpых число гласных букв пpевышает число согласных. | Briz | Помощь студентам | 2 | 11.05.2008 00:56 |
как вывести результат расчета????? в VB | Николай969 | Помощь студентам | 1 | 17.01.2008 17:45 |