> # Cach khai bao bien cuc bo: local ten_bien
> # Mot ham chi co the khai bao 1 tu khoa local
# Viet ham kiem tra xem 1 list cho chua toan so nguyen hay ko?
> KiemTra := proc(a)
  local i;
  for i from 1 to nops(a) do
    if(type(a[i],'integer') <> true) then
      return false;
    end if;
  end do;
  return true;
end proc:

> 
 
> #Tinh trung binh cong 1 list
> TBC :=proc(l)
  local i, tong, tbc;
  tong:=0;
  tbc:=0;
  for i from 1 to nops(l) do
    tong:=tong+i;
  end do;
  tbc:=tong/nops(l);
  return tbc;
end proc:
> l:=[1,2,3,4,5]:
if(KiemTra(l) = true) then
  printf("Trung binh cong = %d.", TBC(l));
else
  printf("Khong tinh duoc");
end if;
Trung binh cong = 3.
> 
> 
> #Kiem tra 1 so co phai la So Nguyen To ko?
> IsSNT := proc(n)
        local i;
  if(n = 1 or n = 0) then
    return false
  else
    for i from 2 to n - 1 do
      if type(n/i,'integer') then
        return fasle;
      end if;
    end do;
    return true;
  end if;
end proc:

> n:=17;
if (IsSNT(n) = true) then
  printf("%d la so nguyen to", n);
else
  printf("%d khong la so nguyen to", n);
end if;
 
17 la so nguyen to
> #In ra cac so nguyen to tu 1 --> 100
> In100SNT := proc()
  local i, l;
  l := [];
  for i from 2 to 100 do
    if (IsSNT(i) = true) then
      l := [op(l),i];
    end if;
  end do;
  return l;
end proc:
> 
 
> 
> 
> 
> SNTNhoNhatLonHonN := proc(n)
  local i;
  for i from n + 1 while true do
    if (IsSNT(i) = true) then
      return i;
    end if;
  end do;
end proc:
> 
> n:=1000:
printf("So nguyen to nho nhat lon hon %d la %d", n, SNTNhoNhatLonHonN(n));

So nguyen to nho nhat lon hon 1000 la 1009
> 
> 
> 
> 
> 
> 
> 
> 
> 
> KiemTraXTrongA := proc(A, x)
     local i;
  for i from 1 to nops(A) do
    if(x = A[i]) then
      return true;
    end if;
  end do;
  return false;
end proc:
> #Test
A := [1, 2, 3, 4, 5]:
x:= 5:
if (KiemTraXTrongA(A, 5) = true) then
  printf("%d co trong tap hop A", x);
else
  printf("%d khong co trong tap hop A", x);
end if;
5 co trong tap hop A
> 
> 
> IsALaConB := proc(A, B)
  local i;
  for i from 1 to nops(A) do
    if (KiemTraXTrongA(B, A[i]) <> true) then
      return false;
    end if;
  end do;
  return true;
end proc:
> 
> A:=[1,2,3,4,5]:
B:=[1,2,3,4,5]:
if(IsALaConB(A, B) = true) then
  printf("A la con cua B");
else
  printf("A khong la con cua B");
end if;
A la con cua B
> 
> 
> 
> 
>