Gia sư Cần Thơ, Dạy Kèm Cần Thơ

VỮNG TIN - TIẾP BƯỚC - THÀNH CÔNG


Một số bài tập tham khảo

Share

Huỳnh Hải Đăng (1K8)
Nhập môn
Nhập môn

Tổng số bài gửi : 7
Points : 17
Join date : 28/02/2010
Age : 29
Đến từ : Cà Mau

Một số bài tập tham khảo

Bài gửi  Huỳnh Hải Đăng (1K8) on Sat Mar 13, 2010 8:07 pm

Bài 2: Tim so lon nhat cua 3 so a, b & c
Code:
(*Tim so lon nhat cua 3 so a, b & c*)
LN3S[a_, b_, c_] := If[a > b, If[a > c, a, c], If[b > c, b, c]];
a = Input["Nhap vao a"];
b = Input["Nhap vao b"];
c = Input["Nhap vao c"];
kq = LN3S[a, b, c]

Bài 3a.Giai Thua Khong De Quy
Code:
(*Giai Thua Khong De Quy*)
GTKDQ[n_] := (t := 1; If[n == 0!!n == 1, Return[1],
        For[i = 1, i <= n, i++,
          t *= i];
        Return[t]]);
n = Input["Nhap Vao n"];
Print[n, "!=", GTKDQ[n]];

Bài 3b.Giai Thua De Quy
Code:
(*Giai Thua De Quy*)
GiaiThuaDQ[n_] := If[n == 0!!n == 1, Return[1], Return[n*GiaiThuaDQ[n - 1]]]
n = Input["Nhap Vao n"];
Print[n, "!=", GiaiThuaDQ[n]];
Bài 4,5 Thầy đã làm...
Bài 7. Kiem tra so nguyen to
Code:
(*Kiem tra so nguyen to*)
SNT[n_] :=
    If[n == 0 || n == 1
      Return[0],
      For[i = 2, i < n - 1, i++,
        If[Mod[n, i] == 0,
          Return[0]]];
      Return[1];];
n = Input["Nhap Vao So (Khong Am) Can Kiem Tra"];
Print[SNT[n]];
Bài 8. Doi thap phan sang nhi phan
Code:
(*Doi thap phan sang nhi phan
      Ket qua tu duoi diem len
      VD : 3 = >
        1
          1
          0  = > Ghi 0 1 1*)
SangNP[n_] := (If[n < 1,
        Return[0],
        If[Mod[n, 2] != 0, Print["1"]; k = n/2 - 0.5; Return[SangNP[k]],
          Print["0"]; k = n/2; Return[SangNP[k]]]]);
n = Input["Nhap vao so can chuyen"];
Print[SangNP[n]]
avatar
HoYenNhi
Sơ cấp
Sơ cấp

Tổng số bài gửi : 26
Points : 58
Join date : 27/02/2010
Age : 28
Đến từ : Đồng Tháp

Bài 7 không ổn!

Bài gửi  HoYenNhi on Tue Apr 06, 2010 3:51 am

Bạn thiếu một dấu , nên bài không ra kết quả!
Cảm ơn đoạn code của bạn!
bom bom bom bom bom
Code:

(*Kiem tra so nguyen to*)
SNT[n_] := If[n == 0 || n == 1 , Return[0],
    For[i = 2, i < n - 1, i++, If[Mod[n, i] == 0, Return[0]]];
      Return[1];];
n = Input["Nhap Vao So (Khong Am) Can Kiem Tra"];
Print[SNT[n]];
bom bom bom bom bom
avatar
admin
Admin
Admin

Tổng số bài gửi : 1207
Points : 3010
Join date : 11/11/2009
Age : 37
Đến từ : Cần Thơ

Re: Một số bài tập tham khảo

Bài gửi  admin on Tue Apr 06, 2010 8:37 am

HoYenNhi đã viết:Bạn thiếu một dấu , nên bài không ra kết quả!
Cảm ơn đoạn code của bạn!
bom bom bom bom bom
Code:

(*Kiem tra so nguyen to*)
SNT[n_] := If[n == 0 || n == 1 , Return[0],
    For[i = 2, i < n - 1, i++, If[Mod[n, i] == 0, Return[0]]];
      Return[1];];
n = Input["Nhap Vao So (Khong Am) Can Kiem Tra"];
Print[SNT[n]];
bom bom bom bom bom

Code như vậy không chuẩn mực lắm. Thuật toán này nên cải thiện i<=Sqrt[n] là đủ.

Huỳnh Hải Đăng (1K8)
Nhập môn
Nhập môn

Tổng số bài gửi : 7
Points : 17
Join date : 28/02/2010
Age : 29
Đến từ : Cà Mau

Re: Một số bài tập tham khảo

Bài gửi  Huỳnh Hải Đăng (1K8) on Tue Apr 06, 2010 11:19 pm

Cảm ơn Thầy và các bạn đóng góp.

phamvancua
Nhập môn
Nhập môn

Tổng số bài gửi : 1
Points : 1
Join date : 06/03/2010

Kiem tra so nguyen to

Bài gửi  phamvancua on Thu Apr 15, 2010 11:06 pm

(*Kiem tra so nguyen to*)
Code:
SNT[n_] := If[n == 0 || n == 1 , Return[0],
    For[i = 2, i < =Sqrt[n], i++, If[Mod[n, i] == 0, Return[0]]];
      Return[1];];
n = Input["Nhap Vao So (Khong Am) Can Kiem Tra"];
Print[SNT[n]];

Sponsored content

Re: Một số bài tập tham khảo

Bài gửi  Sponsored content


    Hôm nay: Tue Aug 14, 2018 1:24 pm