Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Процедуры (http://www.tehnari.ru/f41/t86837/)

Акуся 27.03.2013 14:01

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

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.



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

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.