|
Читайте также: |
Алгоритм полиномиальной сложности
Определение наименьшего общего кратного
uses crt,utils;
var a,b,c:integer;
function NOD(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n
else
n:=n-m;
NOD:=m;
end;
begin
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
writeln;
writeln('NOD(a,b,c)=',NOD(NOD(a,b),c));
writeln('Время выполнения в милисекундах = ',Milliseconds);
end.
Алгоритм экспоненциальной сложности
Для заданного N напечатать все подмножества множества
uses crt,utils;
var
n,i:integer;
a:array [0..15] of integer;
procedure next_pdm;
begin
i:=n;
while a[i]=1 do
begin
a[i]:=0;
dec(i);
end;
inc(a[i]);
end;
procedure print_pdm;
begin
for i:=1 to n do
if a[i]=1 then write(i,' ');
writeln;
end;
begin
write('n=');
readln(n);
for i:=1 to n do
a[i]:=0;
a[n]:=1;
while a[0]=0 do
begin
print_pdm;
next_pdm;
end;
writeln('Время выполнения в милисекундах = ',Milliseconds);
repeat until keypressed
end.
Дата добавления: 2015-07-12; просмотров: 99 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Человек, как живое существо | | | Качество труда и система его оплаты |