Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 27.03.2013, 14:01   #1 (permalink)
Акуся
Member
 
Регистрация: 27.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Процедуры

Описать процедуру Factors(A,N,F), находящую разложение натурального числа A на простые множители. количество множителей возвращается в целой переменной N, а сами множители( в порядке неубывания)-в целочисленном массиве F (N и F -выходные параметры, максимальное число элементов массива F считать равным 15) С помощью этой процедуры разложить на простые множители пять данных чисел.помогите пожалуйста
Акуся вне форума   Ответить с цитированием

Старый 27.03.2013, 14:01
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

У нас на каждый вопрос найдется ответ, почитайте похожие темы

Pascal, процедуры
Процедуры
Pascal. Функции и процедуры

Старый 28.03.2013, 02:29   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Акуся, нам бы знать язык программирования...
Léon вне форума   Ответить с цитированием
Старый 28.03.2013, 13:05   #3 (permalink)
Акуся
Member
 
Регистрация: 27.03.2013
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Турбо Паскаль
Акуся вне форума   Ответить с цитированием
Старый 28.03.2013, 23:29   #4 (permalink)
interacia
Member
 
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
По умолчанию

Код:
program Matrix2;
var
i,A,N:integer;
F: array [1..15] of integer;

procedure Factors(A:integer; var N:integer; var F: array [1..15] of integer);
var jj,j:integer;
begin
jj:=1;
while a>1 do
 begin
 j:=2;
    while not((a mod j)=0) do inc(j);
  F[jj]:=j;
  a:=a div j;
 inc(jj);
 end;
 N:=jj-1;
end;

begin
 write('Введите A:');
 read(A);
 writeln;
Factors(A,N,F);
for i:=1 to N do write(F[i]:3);
end.
interacia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:33.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.