Bài 2: Tim so lon nhat cua 3 so a, b & c
Bài 3a.Giai Thua Khong De Quy
Bài 3b.Giai Thua De Quy
Bài 4,5 Thầy đã làm...
Bài 7. Kiem tra so nguyen to
Bài 8. Doi thap phan sang nhi phan
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]]