>>
>>
>>
>>
>>
>> for i from 1 by 1 to 5 do
print(i);
end do;
for i from 2 by 2 to 6 do
Sum(j^i, j=1..n)=expand(sum(j^i, j=1..n));
end do;
s:=0:
seznam:=[1,2,3,4,5]:
for n in seznam do
if irem(n,2)=0 then s:=s+n^2 fi
od:
s;
x:=256;
while x>1 do x:=x/4 end do;
a:=20: b:=12:
while b<>0 do
d:=irem(a,b);
a:=b;
b:=d;
end do;
>>
>>
>>
>>
>>
lprint(`celociselny NSD je`,a);
`celociselny NSD je`, 4
euclid:=proc(m::posint,n::posint)
local a,b,r:
a:=m:
b:=n:
r:=irem(a,b):
while r<>0 do
a:=b:
b:=r:
r:=irem(a,b):
od:
b:
end:
euclid(20,12);
for i from 3 by 2 do
if isprime(2^i-1)
then print(2^i-1,`je prvocislo`)
else break
end if
end do;
max3:=proc(a,b,c)
print(`nalezeni maxima z cisel`, a,b,c);
if a<b then
if b<c then c else b end if
elif a<c then c
else a
end if;
>>
>>
>>
>>
>>
>>
>>
end:
max3(3,2,1);
save(max3, "max3.txt");
restart;
read "max3.txt";
max3(1,2,3);
maxN:=proc() local result, i;
if not (type([args], list(numeric)))
then return('procname(args)');
elif nargs>0
then
result:=args[1];
for i from 2 to nargs do
if args[i]>result then result:=
args[i] fi od;
result;
fi;
end:
maxN(9,2,3,4,5.0);
%typeset_mode True
fo r i in range (1 ,6) :
print i
1
2
3
4
5
var ( 'j , n')
(j, n)
fo r i in range (2 ,7 ,2) :
sum( j ^i , j ,1 , n)
1
3
n3
+
1
2
n2
+
1
6
n
1
5
n5
+
1
2
n4
+
1
3
n3
−
1
30
n
1
7
n7
+
1
2
n6
+
1
2
n5
−
1
6
n3
+
1
42
n
s =0;seznam =[1 ,2 ,3 ,4 ,5];
fo r n in seznam :
i f n%2 ==0:
s=s+n^2
s
20
x=256
while x>1:
x=x/4
print (x)
64
16
4
1
a=20; b=12;
while b<>0:
d=a%b
a=b
b=d
print ” c e l o c i s e l n y NSD je ” , a
celociselny NSD je 4
def euclid (a , b) :
1
while b<>0:
r=a%b
a=b
b=r
print a
euclid (20 ,12)
4
fo r i in range (3 ,100 ,2) :
i f (2^ i -1) . is_prime () :
print 2^ i -1 , ” je p r v o c i s l o ”
e l s e :
print 2^ i -1 , ”nen í čprvo í s l o ”
break
7 je prvocislo
31 je prvocislo
127 je prvocislo
511 není prvočíslo
def max3(a , b , c ) :
print ” Nalezeni maxima z c i s e l ” , a , b , c
i f a<b :
i f b<c :
print ( c )
e l s e :
print (b)
e l i f a<c :
print ( c )
e l s e :
print ( a )
max3(3 ,2 ,1)
Nalezeni maxima z cisel 3 2 1
3
def maxN(* args ) :
i f len ( args ) >0:
v=args [ 0 ]
for i in xrange ( len ( args ) ) :
i f args [ i ]>v :
v=args [ i ]
print (v)
e l s e :
print ”Nulovy pocet prvku”
maxN(9 ,2 ,3 ,4 ,5.0)
9
2