Nội dung chính
Tìm số có 3 chữ số
Tìm một số có 3 chữ số, nếu viết thêm chữ số 0 xen giữa chữ số hàng trăm và chữ số hàng chục ta được một số lớn gấp 7 lần số đó.
Phân tích:
Giả sử ta có số cần tìm là abc biết rằng 7*(a*100+10*b+c) = a*1000+0*100+b*10+c với a có thể nhận giá trị 1 cho tới 9 b và c thì nhận giá trị 0 tới 9, ở đây ta sử dụng sức mạnh của máy tính chạy thử tất cả các trường hợp có thể xảy ra bắt đầu từ số 100 (a=1, b=0, c=0) rồi tiếp tục với 101, 102, 103 cứ như vậy khi nào thỏa mãn điều kiện trên thì thôi. Ở đây ta sử dụng 3 vòng lặp For để cho a, b, c chay từ từ. Nhắc lại một chút về vòng lặp for:
FOR [biến giá.trị.bắt,đầu giá.trị.kết.thúc mỗi.lần.tăng.bao.nhiêu] [Các lệnh sẽ thực hiện]
Code :
To TimSo Make "a 1 Make "b 0 Make "c 0 For [a 1 9 1][ For [b 0 9 1][ For [ If 7*(:a*100+:b*10+:c) =(:a*1000+0*100+:b*10+:c) [ Show (List :a :b :c) Halt] ] ] ] End
Đối với FOR thì bạn có thể không cần phải khai báo biến ở đầu cũng được
Make "a 1 Make "b 0 Make "c 0
nhưng nên tập khai báo như vậy để có cái nhìn tổng quát. Sau khi tìm thấy số a, b, c thỏa điều kiện thì lệnh Show (list :a :b :c) sẽ in ra cửa sổ lệnh các số a, b, c lệnh halt sẽ kết thúc luôn vòng lặp, mặc dù số vòng lặp có thể vẫn còn. Nếu bạn muốn thông báo ra sân chơi thì có thể thay chỗ đó bằng HT Rt 90 Label (List “So “can “tim “la :a :b :c)
not enough inputs to For in forloop
[run :for.instr]
Cái code nó viết thiếu, bạn nhìn cái hình sẽ thấy code đầy đủ. Viết bài thì nó đỏ đăng nên website thì vòng For C nó lại không hiện ra 😀
Có thể thay for bằng repeat không thầy. Giúp em viết code bài này bằng repeat với ạ.
Hoàn toàn có thể thay thế được, tuy nhiên bạn phải thấy được ưu điểm của từng loại mà áp dụng vào từng bài khác nhau. Thông thường thì FOR dùng nhiều hơn trong các bài lập trình REPEAT dùng nhiều hơn trong các bài vẽ hình. For có lợi thế là ta có thể kiểm soát được vòng lặp nhờ biến của nó, với Repeat thì cũng có hàm Repcount cho biết hiện đang ở vòng lặp nào, tuy nhiên nếu nhiều vòng lặp lồng nhau ở dạng bài này thì chẳng dại gì mà dùng Repeat, nếu không… Read more »
thầy làm video hương dẫn trên youtube được ko ạ
Bạn làm theo hướng dẫn ở đây không được sao, vướng mắc chỗ nào? Video phải đợi đến chủ nhật may ra mới làm được, đang chuẩn bị cho học sinh thi học kỳ 2 nên tôi không có nhiều thời gian, bạn cũng có thể hỏi trực tiếp trên fanpage để được trợ giúp nhanh hơn.
Thầy Trọng ơi giải giúp em bài này với: cho dãy số tự nhiên 10, 11,13,16,20,…………in ra số ở vị trí 2018
Chào bạn, tôi không nhìn thấy quy tắc tăng của dãy số nên không thể giúp bạn được.
đề thi tin học trẻ cho ra vậy mà
Cho dãy số sau:3;7;11;15;19;…
em hãy dùng chương trình mswLogo thực hiện viết thêm 4 số hạng tiếp theo và in ra số hạng thứ 2018 của dãy.
Bài này thì quá đơn giản, bạn dùng FOR hay REPEAT đều làm được, bạn gặp khó khăn gì khi giải bài này?
mình làm câu lệnh viết thêm 4 số hạng tiếp theo sao không thấy in ra màn hình
Bài này đổi thành 4 (a,b,c,d) số thì phải thay đổi code, trong bài 3 số đã hiện ra hết các nghiệm thỏa rồi.
cac ban xem ho minh cach giai sau day xem co loi gi ko
Tim mot so co 2 c/s neu them c/s 5 vao ben phai so do thi ta duoc 1 so moi hon so cu 230 d/v
Giai
To timso
home cs ht rt 90
Make “a 1 Make “b 0
For [a 1 9 1][For [b 0 9 1][If (:a*10+:b)+230=(:a*100+:b*10+5)[pu rt 90 fd 50 lt 90 label[list(:a :b)]]]
End