THỦ THUẬT MÁY TÍNH 24 GIỜ

Bài viết sau đây sẽ chia sẻ đến bạn các dạng bài tập đệ quy trong Prolog. 1. Tính tổng từ 1 - N Predicates Tong (integer, integer) Clauses Tong (S, 0):- write (S), !. Tong (S, N):- S1 = S + N, N1 = N – 1, Tong (S1, N1). Goal Write (“ Nhap N: “), readint (N), Tong (0, N). 2. Kiểm tra 1 số nguyên N là chẳn hay lẻ (đệ quy trực tiếp) Predicates Kt (integer) Clauses Kt (0):- write (“So chan”), !. Kt (1):- write (“So le”). Kt (N):- N1=N-2, Kt (N1). Goal Write (“Nhap N: “), readint (N), kt (N). 3. Tính S = 1 + ½ + … +1/N, N>0 Predicates Tong (real, integer) Clauses Tong (S, 1):- write (S). Tong (S, N):- N>0, S1 = S + (1/N), N = N – 1, Tong (S1, N1); write (“N>0”). Goal Write (“Nhap n: “),readint (N), Tong (0, N). 4. Tính S = 12 + 22 + … + N2 Predicates Mu (integer, integer) Tong (integer, integer) Clauses Mu (X, M):- M = X*X. Tong (1, 1):- !. Tong (N, T):- N1 = N – 1, mu (N, M), Tong (N

Bài viết sau đây sẽ chia sẻ đến bạn bài tập đồ họa máy tính vẽ cung koch trên Turbo Pascal. Program baitap; uses crt{,graph}; const rad=0.017453293; var gd,gm:integer; Procedure koch(n:integer;l:real;d:real);  Begin   if n>0 then    begin     koch(n-1,1/3,d);     d:=d+60;     koch(n-1,1/3,d);     d:=d-120;     koch(n-1,1/3,d);     d:=d+60;     koch(n-1,1/3,d);    end  { else line(l*cos(rad*d),l*sin(rad*d)); }  end; Procedure vecungkoch(n:integer;l:real;d:real);  Begin   koch(2,300,0);   koch(2,300,-120);   koch(2,300,120);  end; Begin  clrscr; { gd:=detect;  initgraph(gd,gm,'d:\bgi');  while (not keypressed) do   begin    vecungkoch(n,l,d);    mau:=getcolor;    setcolor(getbkcolor);    vecungkoch(n,l,d);    setcolor(mau);   end;  readln;  closegraph;} end.