Tính trung bình cộng của dãy số 5 8 11 … 64000
Đề bài : Cho dãy số tăng dần như sau : 5 8 11 … 64000 hỏi:
Tổng của dãy số trên và trung bình cộng của nó ?
Hướng dẫn: Nhìn vào dãy số ta thấy số sau = số trước + 3 do đó ta sẽ sử dụng vào lặp for với bước nhảy với giá trị ban đầu là 5 giá trị cuối là 64000 và bước nhảy là 3. Ta phải sử dụng thêm 2 biến để lưu trữ tổng của dãy số và đếm xem từ 5 tới 64000 có bao nhiêu số để tính trung bình của dãy. Chương trình được viết như sau:
To DaySo ;5 8 11 .... 64000 tinh trung binh cong cua day so CS ; xoa man hinh CT ; xoa tat ca lenh trong cua so lenh Rt 90 ;Xoay rua 90 do ve ben phai PU ;Nhac pen HT ; An rua Make "Tong 0 ;Tong day so Make "N 0 ;dem xem co bao nhieu so For [i 5 64000 3][ Make "Tong :Tong+:i Make "N :n+1] Bk 300 ; di lui lai 300 buoc Label (List "Tong "cong "cua "day "so "= :Tong ) SetY -50 Label (List "Co :N "so "va "TBC "= :Tong/:N) End
Lập dãy số: Hãy dùng các câu lệnh trong chương trình MSW Logo để viết một dãy số có số hạng đầu là 37 và mỗi số hạng liền nhau cách đều 5 đơn vị, biết rằng số hạng cuối cùng của dãy số lớn hơn 4. Lưu lại với tên tệp là Lapdayso.doc.
giúp em viết code bài trên với ạ!
Cám ơn ad
Câu 2: Em hãy lập trình trên phần mềm MSWLogo viết thủ tục tìm số số hạng của
dãy và tính tổng của dãy số sau: 2,5,8,…..299.
Bài dễ như thế này không biết bạn hỏi gì chúng tôi, tốt nhất bạn nên tự giải.
make “dem 0 make “tong 0 for [i 2 299 3][make “tong :tong+:i make “dem :dem+1] Label (list “so “so “hang “la: dem “Tong “cac “so “hang “la: :tong)
Rất dễ, mình đưa code cho bạn để bạn tham khảo nhé.
To tinhtong
cs rt 90
make “tong 0
make “ssh (229 – 2)/3+1 ;cái này mình dùng công thức tìm Sh để giải.
for[i 2 299 3][make “tong :tong+:i]
Label(List “So “so “hang “la :ssh)
SetY Ycor – 55
Label(List “Tong “cua “day “so “la :tong)
HT
End
to indayso :n
cs pd rt 90
for [i 1 :n 1] [label(list “day “so “la: :i)]
end
THẦY CÔ EM GIÚP EM! EM LÀM SAI CHỖ NÀO SAO KHÔNG IN DC DANH SÁCH TRÊN SÂN CHƠI CỦA RÙA AH
Bạn phải cho rùa xuống dòng mới in được nhé, và bạn bỏ câu day so la mới in đc
Code:
To indayso :n
CS SetHeading 90
for[i 1 :n 1][
label(List :i) SetY Ycor – 15]
Chúc bạn thành công ^^
dãy số 1 ,3 7, 13, 21 …….. 4070307.tính số số hạng của dãy số.nhờ thầy giải giúp
Số chữ số dùng để đánh số trang sách gấp đôi số trang sách, tìm số trang sách
Code: to timso :trang
cs pu
rt 90 ifelse :trang*2>100[Label(List “So “trang “la :trang*2)][Label(List “Nhap “lai)]
HT
END
tính tổng của dãy số: 1+2+3+5+8+13+21+…+n
Dạng bài này đã giải trên fanpage rấy nhiều, cũng đơn giản, bạn nên tự làm.
bài toán này dùng vòng lặp for bước tăng là bnhieu ag, nhờ thầy hd giúp e, em mới học logo nên ko rõ lắm ag
số thứ 2 bằng 2 số trước đó cộng lại, nên dùng while.