Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm


Diễn đàn chia sẻ kiến thức, kinh nghiệm về IT và cuộc sống!
 
Trang ChínhGalleryTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập
Top posters
Sakura (1124)
 
hotboy (705)
 
Già Làng (373)
 
con_ca_nho90 (289)
 
that_true (154)
 
theanhkkt (143)
 
phamay (137)
 
lovelonelyman (134)
 
o0ovioletstaro0o (128)
 
stevenhung (122)
 
Âm - Dương lịch
Clock
Logo
11TH02 Pro!
Liên kết
Tin tức 60s
Tin công nghệ
Thời sự 24h
Game Moblie

Share | 
 

 Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Sakura


avatar

Thú CƯng :
Nam Scorpio

Số bài viết : 1124
Điểm : 1688
Được cảm ơn : 35
Ngày sinh : 03/11/1990
Tham gia ngày : 16/03/2010
Tuổi : 26
Đến từ : Bình Dương
Ngề nghiệp : IT Student

Bài gửiTiêu đề: Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm   5/4/2011, 22:02

Chưa tinh chỉnh gì, ai đọc hem hiểu cứ pm mình.

Code:
> # 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





 


_________________________________________________
Khách viếng thăm muốn liên hệ với mình thì xem thông tin phía dưới nha:
Email: [You must be registered and logged in to see this link.]
Nick Yahoo: Edward_Thien
Về Đầu Trang Go down
Xem lý lịch thành viên
stevenhung

Member Năng Động


Member Năng Động
avatar

Nam Pisces

Số bài viết : 122
Điểm : 196
Được cảm ơn : 10
Ngày sinh : 20/03/1990
Tham gia ngày : 26/03/2010
Tuổi : 27
Đến từ : Bình Dương
Ngề nghiệp : Student
Chăm ngôn : Go far away

Bài gửiTiêu đề: Re: Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm   6/4/2011, 13:38

thank chú ed
Về Đầu Trang Go down
Xem lý lịch thành viên
con_ca_nho90

Member Nhiệt Tình


Member Nhiệt Tình
avatar

Thú CƯng :
Nam Aquarius

Số bài viết : 289
Điểm : 329
Được cảm ơn : 4
Ngày sinh : 17/02/1990
Tham gia ngày : 05/05/2010
Tuổi : 27
Đến từ : Nhà hàng xóm
Ngề nghiệp : click chuột định giang sơn :D
Chăm ngôn : Giang hồ hiểm ác không bằng mạng lag thất thường

Bài gửiTiêu đề: Re: Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm   19/4/2011, 11:53

thanks gì chém nó đi Smile)
Về Đầu Trang Go down
Xem lý lịch thành viên https://plus.google.com/u/0/?hl=vi jeennguyen@ymail.com
Sponsored content




Bài gửiTiêu đề: Re: Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm   

Về Đầu Trang Go down
 

Bài tập Maple tuần 2: vòng for và cách viết, gọi hàm

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
IT World! :: HỌC TẬP :: HỌC KỲ VI :: Các hệ cơ sở tri thức-