CNTT2
Mời các bạn đăng kí thành viên để hưởng được những quền lợi từ diễn đàn, và cùng nhau chia sẻ kiến thức ,giao lưu học hỏi.
Nếu bạn đã là thành viên của diễn đàn thì hãy nhấn login để đăng nhập vào diễn đàn.
Cảm ơn các bạn đã tham gia diễn đàn CNTT2-K9





HỆ THỐNG DIỄN ĐÀN CỦA CNTT2K9
IndexIndex  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
Đăng Nhập
Tên truy cập:
Mật khẩu:
Đăng nhập tự động mỗi khi truy cập: 
:: Quên mật khẩu
Xem điểm thi
Các bạn nhập MSSV vào ô bên dưới
Ví dụ như: 09.020.001

Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
Top posters
cutuan527 (1051)
 
caingocthanh (559)
 
holyangell (486)
 
bankimo (381)
 
zailangtu911 (369)
 
nguyenthanhvu (300)
 
dinhhuunho (153)
 
Admin (145)
 
nguyen chi ha (145)
 
zztanzzthanhzz (126)
 
Liên kết
Trường Đại Học Cửu Long
Diễn đàn thầy Pha
Lớp CNTT3-K9
Lớp CNTT1-K9
Lớp CNTT1-K10
Lớp CNTT2-K10
February 2017
SunMonTueWedThuFriSat
   1234
567891011
12131415161718
19202122232425
262728    
CalendarCalendar
Thắc mắc
Người Quản Trị
Chat
Moderator
Chat
Statistics
Diễn Đàn hiện có 7385 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: lanhuong dinh

Tổng số bài viết đã gửi vào diễn đàn là 5059 in 1953 subjects

Share | 
 

 Một số bài tập và bài giải môn LTHT & TT

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


Nam Tổng số bài gửi : 1051
Join date : 26/04/2009
Age : 26
Đến từ : Vĩnh Long

Bài gửiTiêu đề: Một số bài tập và bài giải môn LTHT & TT   Sat Mar 05, 2011 9:11 pm



Bài giải:
Code:

Euclide[a_, b_] := Module[{x, y, temp},
      x = a;
      y = b;
      temp = 0;
      If[x > y,
          Return [ Euclide[x - y, y]],
        If[x < y,
            Return [Euclide[x, y - x]],
            temp = x;
            Return[temp];
            ];
        ];
     
      ];
a1 = Input["Nhap a:"];
b1 = Input["Nhap b:"];
Print["Uoc chung lon nhat cua 2 so la: ", Euclide[a1, b1]]

____Your signature's here_____________
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.cutuan.tk
cutuan527
Moderators
Moderators


Nam Tổng số bài gửi : 1051
Join date : 26/04/2009
Age : 26
Đến từ : Vĩnh Long

Bài gửiTiêu đề: Re: Một số bài tập và bài giải môn LTHT & TT   Sat Mar 05, 2011 9:13 pm

Các bạn tham gia giải bài tập cũng như yêu cầu những bài tập mà mình không làm được tại topic này nhé icon

____Your signature's here_____________
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.cutuan.tk
cutuan527
Moderators
Moderators


Nam Tổng số bài gửi : 1051
Join date : 26/04/2009
Age : 26
Đến từ : Vĩnh Long

Bài gửiTiêu đề: Re: Một số bài tập và bài giải môn LTHT & TT   Sun Mar 06, 2011 4:09 pm



Câu a:
Code:
Clear[a, b];
a = Input["Nhap a"];
b = Input["Nhap b"];
Mod1[a_, b_] := Module[{x, y, du},
      x = a;
      y = b;
      If[x < y,
           Return[x];
        ,
           Return[Mod1[x - y, y]];
        ];
      ];
Print["So du cua a chia b la: ", Mod1[a, b]]

Câu b:

Tạo danh sách gồm 10 phần tử gồm những số ngẫu nhiên trong khoảng từ 1-5
Code:
L1 = Table[Random[Integer, {1, 5}], {i, 10}];

Dựa vào danh sách vừa tạo
Code:
x = Input["Nhap so can tim"];
Dem[L1_, n_, x_] := Module[{A, b, c},
      A = L1;
      b = n;
      c = x;
      If[b > 0 && A[[b]] == c, Return[1 + Dem[A, b - 1, c]],
           If[b > 0 && A[[b]] ≠ c, Return [Dem[A, b - 1, c]],
                  If[b == 0, Return [0];]   
            ];
        ];
      ];

Print["Phan tu ", x, " xuat hien ", Dem[L1, 10, x], " lan"]

____Your signature's here_____________
Về Đầu Trang Go down
Xem lý lịch thành viên http://www.cutuan.tk
caingocthanh
Moderators
Moderators


Nam Tổng số bài gửi : 559
Join date : 27/04/2009
Age : 28
Đến từ : Cà Mau

Bài gửiTiêu đề: Re: Một số bài tập và bài giải môn LTHT & TT   Sat Mar 12, 2011 2:28 am

Dưới đây là những bài tập và những câu hỏi mà thầy đã giải và hướng dẫn giải tại lớp, do khi học các bạn ghi lại bằng tay, nên có thể thiếu hoặc sai xót nào đó, các câu hỏi đó mình đã cài đặt thành công và post tại topic này, nếu bạn nào chưa làm được thì có thể xem code để tham khảo!

Code:

(*----Danh sach khong la ngto theo module----*)
ListPrime[L_] := Module[{i, temp},
      temp = {};
      For[i = 1, i ≤ Length[L], i++,
        If[! PrimeQ[L[[i]]],
            temp = Append[temp, L[[i]]];
            ];
        ];
      Return[temp];
      ];
(*---Tong cac phtu lon 5 va be hon 11---- -*)
Tongdk[L_] := Module[{temp, n, i},
      n = Length[L];
      temp = 0;
      For[i = 1, i ≤ n, i++,
        If[L[[i]] > 5 && L[[i]] < 11,
          temp += L[[i]];
          ];
        ];
      Return[temp];
      ];
(*-----Liet ke cac ptu xuat hien it nhat trong danh sach------*)

Clear[L, n, i, temp];
n = Input["So ptu n= "];
m = Input["So ptu lam tron m ="];
L = Table[2*Random[Integer, {0, m}] + 1, {i, n}];
(*Voi n la so phan tu kq, m la so le lam tron*)
Print["Danh sach so le vua tao la: ", L];
Print["------------------------------------------"];
(*Tong binh phuong n ptu*)
Print["Tong binh phuong n ptu la: ", Sum[L[[i]], {i, Length[L]}]^2];
Print["-----------------------------------------"];
(*Tinh tong cac phan tu o vi tri chan*)
Print["Tong cac ptu o vi tri chan: ", Sum[L[[i]], {i, 2, Length[L], 2}]];
Print["--------------------------------------------------"];
(*Ptu co gia tri max*)
Print["Gia tri Max trong danh sach la: ", Max[L]];
Print["-------------------------------------"];
(*Tao ra danh sach khong phai la ngto*)
L1 = Select[L, ! PrimeQ[#] &]
Print["Danh sach khong phai la ngto la: L1=  ", L1];
Print["--------------------------------------"];
ListPrime[L]
Print["--------------------------------"];
Tongdk[L]
Print["----------------------------------"];
(*Tong ptu su dung ham*)
temp = Select[L, # > 5 && # < 11 &]
Print["Tong nhung ptu lon 5 va be hon\
 11 se la: ", Sum[temp[[i]], {i, Length[temp]}]];
Print["----------------------------"];
(*---Liet ke cac ptu xuat hien it nhat trong danh sach------------------------*)
Clear[temp, temp1, temp2, L1];
Print["DAnh sach L la: ", L];
Print["Danh sach sau khi sap xep: ", Sort[L]];
temp = Union[L];
Print["Danh sach sau khi hop: ", temp];
temp1 = Table[Count[L, temp[[i]]], {i, Length[temp]}];
Print["temp1= ", temp1];
L1 = {};
m = Min[temp1];
Print[m];
For[i = 1, i ≤ Length[temp1], i++,
    If[temp1[[i]] == m,
        L1 = Append[L1, temp[[i]]];
        ];
    ];
Print[L1];
Print["-------------------"];
(*-------UCLN-------------------*)
Print["UCLN cua danh sach la: ", GCD[Delete[L, 0]]\
];
Print["-------------------------------"];
(*Tao ra cac danh sach moi tu danh sach L*)
Clear[L1, L2];
Print["Danh sach thu nhat tao ra tu L la: L1= ",
Take[L, Ceiling[Length[L]/2]]];
Print["Danh sach thu nhat tao ra tu L la: L2= ",
Take[L, -(Ceiling[Length[L]/2])]];
Hoặc các bạn có thể liên hệ với mình qua địa chỉ:
caingocthanh@gmail.com để nhận code về xem!

____Your signature's here_____________
^^*"_"***(@@@chữ ký@@@)***"_"*^^
Năm châu bốn bể là nhà
Về Đầu Trang Go down
Xem lý lịch thành viên http://thanhkim.tk
Sponsored content




Bài gửiTiêu đề: Re: Một số bài tập và bài giải môn LTHT & TT   

Về Đầu Trang Go down
 

Một số bài tập và bài giải môn LTHT & TT

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
CNTT2 :: IT WORLD :: Lập trình hình thức và tính toán-
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | www.sosblogs.com