Процедуры

Акуся · 27.03.2013, 14:01

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

помогите пожалуйста

Léon · 28.03.2013, 02:29

Акуся, нам бы знать язык программирования...

Акуся · 28.03.2013, 13:05

Турбо Паскаль

interacia · 28.03.2013, 23:29

Код:

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.

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 Регистрация: 08.03.2016 Сообщений: 0	У нас на каждый вопрос найдется ответ, почитайте похожие темы Pascal, процедуры Процедуры Pascal. Функции и процедуры

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

28.03.2013, 13:05	#3 (permalink)
Акуся Member Регистрация: 27.03.2013 Сообщений: 15 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Турбо Паскаль

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