Tác giả: Đình Trọng

Dãy số Fibonaci là dãy số mà F(1)=0, F(2)=1, F(n)=F(n-1)+F(n-2). Hãy viết chương trình in ra màn hình dãy số Fibonaci với n được nhập từ bàn phím. PROGRAM Fibonacci; Uses CRT; VAR First, Second, Temp : Longint; ix,n : integer; BEGIN Clrscr; Write(‘Nhap n = ‘); Readln(n); Writeln(‘Day so Fibonacci:’); First := 0; Second := 1; write(First:10); write(Second:10); for ix := 0 to n do begin Temp := FIrst + Second; First := Second; Second := Temp; write(Temp:10); end; Readln; END.

Đầu tiên chúng ta sẽ thiết kế 2 chương trình con là vuông và tròn. (Các bạn xem code ở cuối bài) Xem code trực tiếp – (có thể tải code về máy) https://scratch.mit.edu/projects/196371024/  Video hướng dẫn

Cho dãy số 3, 5, 8, 11, 15, 19 … hỏi số ở vị trí 2017 là số bao nhiêu? Bèo tấm là loại thực vật nổi trên mặt nước, có kích thước nhỏ, tốc độ sinh trưởng nhanh, với điều kiện thuận lợi trong 2 ngày số lượng bèo tấm sẽ tăng gấp đôi. Đặc biệt người ta thường dùng bèo tấm để xử lý môi trường nước trong các ao tù và hạn chế sự phát triển của muỗi. Người ta thả vào ao nước một gam bèo tấm trong điều kiện thuận lợi, hỏi sau 60 ngày trong…

Đề bài: Nhập vào 2 số m,n (n>n) cho biết số lần n xuất hiện trong m ví dụ 500 và 0 số lần xuất hiện của 0 là 2. Thủ tục STR(num,s) dùng đổi số thành chuỗi ký tự. (s là tham biến) Hàm Pos(s2,s1) tìm vị trí xuất hiện của s2 trong chuỗi s1 Thủ tục Delete(s,i,n) xóa chuỗi s từ vị trí thứ i trở đi n ký tự. (s là tham biến) Bài giải Program SLXH; Uses CRT; Var m,n:Longint; dem:byte; s1,s2:String; Begin Repeat Clrscr; Write(‘Nhap so thu nhat m ‘); Readln(m); Write(‘Nhap so thu hai…

Câu 1: Bài này đã có rất lâu trên website ở đây chúng tôi cung cấp cho các bạn code giải của Thầy Nguyễn Nguyễn (fb) các bạn tham khảo. To Hoasen2     CS     SetPC[255 0 255]     LT 125 Repeat 9[Repeat 2[Arc2 90 200 RT 90]RT 20] End Câu 2: Phần vẽ hình Phần nhập giá trị Phần chương trình chính Ở đây dùng một biết là thoat để kiểm tra xem có thể đi tiếp không. Chương trình sẽ kiểm tra xem ô đầu tiên có phải là ô màu ko, nếu không phải thì mới làm…

To Cau2 CS Repeat 6[Arc2 180 50 RT 360/3] LT 60 Circle2 100 PU RT 90 FD 100 SetFC 14 Fill PD HT End To Cau3 Cs Ht Repeat 5[ Repeat 5[FD 50 RT 360/5] Repeat 5[FD 25 LT 360/5] RT 180-72 FD 50 RT 36 FD 25 LT 180-108] End To Cau4 :n ;Truyền độ dài cạnh hình vuông ban đầu vào CS Make “s 0 PU FD :n/2 Make “m Distance (list :n/2 0) Home PD For[i 1 7 1][IfElse (modulo :i 2)=1 [ Make “s :s+:n*:n Repeat 4[Fd :n rt 90] Fd :n/2 rt 45 make “n…

A. Soạn thảo văn bản: khó hay dễ? Ngày nay chúng ta không thể tìm thấy một văn bản chính thức nào của nhà nước mà không được thực hiện trên máy tính. Công việc soạn thảo văn bản giờ đây đã trở nên quen thuộc với tất cả mọi người. Tuy nhiên không phải ai cũng nắm vững các nguyên tắc gõ văn bản cơ bản nhất mà chúng tôi sắp trình bày hôm nay. Bản thân tôi đã quan sát và nhận thấy rằng 90% sinh viên tốt nghiệp các trường đại học không nắm vững (thậm chí…

Trong bài viết này chúng tôi dùng Mswlogo để vẽ bông hoa 6 cánh như hình dưới đây: Kết quả là như thế này :D, nhìn nó không giống với phiên bản gốc cho lắm nhưng ở trong đó có rất nhiều điều thú vị, các bạn có thể xem lại tại đây Trong bài này tôi viết một chương trình tên là a, (do lười nên trong page toàn đặt là aa zz xx thôi) chương trình này vẽ và tô màu 1 cụm 5 cánh hoa, để cho việc chọn màu vẽ và tô màu được ngắn ngọn…

Xử lý dữ liệu từ bàn phím Đây là một bài viết nâng cao thích hợp cho các thầy cô nghiên cứu tuy nhiên một phần nhỏ trong này cũng rất thích hợp để các thầy cô hướng dẫn cho họ trò của mình, đầu tiên tôi hướng dẫn cách các chúng ta kiểm tra xem phím nào được nhấn và xử lý phím đó. Phím được nhấn có 2 trạng thái 1 là khi nhấn xuống 2 là khi buông ra. Ở ví dụ sau đây tôi dùng bốn phím mũi tên để điều khiển rùa đi trên sân…

To Cau1     CS HT     Repeat 24[             Repeat 4[fd 100 RT 90]                     RT 360/24 PU FD 10 PD]     Pu RT 90 FD 38 LT 90 BK 5 PD     Circle 120 End Cách giải câu 2 Vì hình chữ nhật to ABCD chia làm 4 hình chữ nhật nhỏ mà đa giác lại là 1/2 diện tích của tổng tất cả 4 hình chữ nhật nhỏ đó nên diện tích nó chính bằng 1/2 diện tích của ABCD, các bạn có thể tham khảo cách tính khác ở dưới. Mở…

Tình cờ trên mạng phát hiện ra cái hình này và tôi nghĩ là MSWLogo sẽ vẽ được, nhìn thì có vẻ đơn giản với một hình vuông và một bát giác ở ngoài. Tuy nhiên khi bắt tay vào thự hiện thì hàng loạt vấn đề phát sinh. Các bạn có thể xem chi tiết ở đây. Trước giờ chúng ta thường sử dụng SETXY cho tọa độ cố định, ở ví dụ dưới đây cũng là cách để các bạn có thể hình dung ra việc sử dụng SetXY ở mức độ tương đối, có thể thay đổi…

Đề bài: Cho 3 số a, b, c thực. Kiểm tra xem mỗi 3 số đó giữ nguyên thứ tự của chúng có tạo thành cấp số nhân hay không. Nếu 3 số đó tạo thành cấp số nhân tính trung bình cộng của chúng, nếu không thì gấp đôi mỗi số. Biết a, b, c được lấy từ file csn.inp. Kết quả ghi vào file csn.out. Cấp số nhân Program CapSoNhan; Uses Crt; Var f,g:Text; a,b,c:Real; s:String; {ham kiem tra xem so a,b,c co phai la cap so nhan hay khong} Function kiemtra(o,p,q:real):Boolean; Begin If p/o=q/p then kiemtra:=True else…