Bài 6: Vòng Lặp Không Biết Trước Số Lần Lặp(While Và Repeat)

Diễn đàn Tin họcBạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.Diễn đàn Tin học

Nơi trao đổi về học tập của học sinh THCS

• Trang Chính
• Thông tin
• Tìm kiếm

  Tìm kiếm

  Display results as :Số bàiChủ đề

  Advanced Search

• Latest images
• Đăng ký
• Đăng Nhập

Tin tức CNTT:Tin tức: Cậu bé 12 tuổi sáng chế bảng điều khiển thông minh Một học sinh ở TP HCM vừa đạt 7 giải thưởng tin học uy tín trong và ngoài nước nhờ sản phẩm bảng điều khiển thông minh giúp quản lý các thiết bị điện trong gia đình. Nguyễn Dương Kim Hảo, học sinh lớp 6/8 trường Trung học cơ sở Nguyễn Gia Thiều, quận Tân Bình, TP HCM, người sáng chế ra bảng điều khiển thông minh V1.0, đã đạt 4 giải thưởng trong nước dành cho sản phẩm bảng điều khiển thông minh V1.0 năm 2012. Tháng 5/2013, Kim Hảo tiếp tục mang sản phẩm tham dự các cuộc thi quốc tế và lần lượt đạt thành tích xuất sắc với Huy chương vàng cuộc thi Triển lãm quốc tế sáng tạo khoa học công nghệ trẻ lần thứ 9 (IEYI 2013) và cuộc thi Triển lãm dành cho các nhà sáng tạo trẻ châu Á (AYIE) tại Kuala Lumpur, Malaysia; Giải thưởng đặc biệt của Viện Sáng tạo Hàn lâm Hàn Quốc; Huy chương vàng của Viện Sáng tạo trẻ Indonesia. Kim Hảo cho biết, bảng điều khiển thông minh là phần mềm có khả năng ứng dụng rộng rãi và tiện lợi dành cho những căn nhà có nhiều phòng hoặc trường học, công ty hay công xưởng. Được thiết kế đơn giản, gọn nhẹ, dễ sử dụng, giao diện thân thiện phù hợp với nhiều đối tượng. Người dùng phần mềm trên máy tính và remote (thiết bị phát tín hiệu) thông qua chương trình nạp trên chip để kiểm tra và điều khiển các thiết bị điện. Đặc biệt, sản phẩm rất tiện lợi cho trẻ em, người già hay người khuyết tật, giúp họ dễ dàng điều khiển các thiết bị gia dụng trong nhà. Kim Hảo cho hay, khi cài đặt bảng điều khiển thông minh, người sử dụng điện thoại di động và máy tính có kết nối Internet, dù đi bất kỳ nơi nào cũng sẽ tắt được thiết bị điện ở nhà hoặc công ty chỉ bằng một cú click chuột đơn giản. Không chỉ thế, cậu học sinh này còn viết một phần mềm dành cho sản phẩm này trên điện thoại Window Mobile 5.0, kết nối với máy tính, có giao diện bắt mắt với nhiều tính năng hơn như báo động chống trộm, kiểm tra cửa đã đóng hay mở. Theo Kim Hảo, sản phẩm này sẽ đáp ứng được nhu cầu tiết kiệm năng lượng ngay cả với gia đình có thu nhập thấp, đồng thời giúp tăng tuổi thọ cho thiết bị điện. Say sưa thuyết trình sản phẩm của mình, cậu bé 12 tuổi còn tỏ rõ trách nhiệm của một nhà sản xuất chuyên nghiệp và đầy tâm huyết: "Nếu có lỗi trong quá trình sử dụng hay mọi thắc mắc về sản phẩm, người tiêu dùng kích hoạt công cụ giải đáp để được hỗ trợ chi tiết". Thạc sỹ Đoàn Kim Thành, Giám đốc Trung tâm Phát triển khoa học và công nghệ trẻ, thành đoàn TP HCM đánh giá Hảo có khả năng rất đặc biệt về tin học, các sản phẩm của Hảo đạt trình độ sánh ngang với những sinh viên xuất sắc chuyên ngành công nghệ thông tin. Ý tưởng vàng từ tật "hay quên" của mẹ Sản phẩm gặt hái nhiều giải thưởng danh giá của châu Á và các nước trong khu vực của Hảo xuất phát từ sự quan tâm đối với mẹ. Kim Hảo cho biết, vì mẹ tảo tần sớm hôm, thường xuyên ra khỏi nhà và quên tắt bóng đèn điện, quạt, nên Hảo suy nghĩ đến một sản phẩm điện tử thông minh giúp mẹ tắt các thiết bị điện đồng thời tiết kiệm tiền điện cho gia đình. Đối với một cậu bé đang học cấp 2, quá trình thực hiện một sản phẩm công nghệ thông tin không hề đơn giản, và phải mất một năm em mới hoàn thiện sản phẩm. Trải qua nhiều giai đoạn thử nghiệm, từ thiết bị điều khiển qua máy tính, Hảo nâng cấp và cải tiến sản phẩm ứng dụng hiệu quả trên remote, điện thoại di động. Không những tiện lợi, sản phẩm của cậu học trò này còn có giá thành hợp lý. Hảo cho biết, ban đầu chi phí hoàn thành sản phẩm lên đến gần 5 triệu đồng, nhưng sau nhiều thời gian tự mày mò, giá thành của bảng điều khiển thông minh chỉ còn khoảng 800.000 đồng trên một sản phẩm. Bà Dương Trần Thanh Thảo, 46 tuổi, mẹ của Kim Hảo tự hào nói về khả năng của con trai: "Khi vừa mới biết đọc, Hảo đã tìm đọc những cuốn sách viết về tin học. Ba Hảo là giáo viên dạy Vật lý nên bé Hảo thường hay hỏi những nguyên tắc hoạt động các mạch điện và mò mẫm theo ba sửa chữa các thiết bị điện trong nhà". "Đến năm Hảo học lớp 3, cả nhà phát hiện ra khả năng của Hảo khi bé khoe sản phẩm phần mềm cộng điểm dành tặng ba giúp ba chấm bài một cách nhẹ nhàng hơn", mẹ Hảo nói. Từ đó, sau khi kết thúc giờ học ở trường, mỗi tối Kim Hảo đều tự nghiên cứu và lần lượt cho ra đời các sản phẩm tin học như phần mềm trắc nghiệm máy tính và phần mềm giải toán tổng hợp. Hỏi về giấc mơ tương lai, Kim Hảo nói, em mong trở thành lập trình viên giỏi để làm nhiều sản phẩm tốt hơn. Giám đốc Trung tâm Phát triển khoa học và Công nghệ trẻ thành phố cho biết sẽ tiếp tục theo dõi khả năng đặc biệt về tin học của Kim Hảo, đồng thời vận động các nguồn lực xã hội chắp cánh cho ước mơ và hoài bão của em trở thành hiện thực.Đăng Nhập

Tên truy cập:

Mật khẩu:

Quên mật khẩu

Đăng nhập tự động mỗi khi truy cập

OrLatest topics» Bài 5: Vòng lặp biết trước số lần lặp(For .. to .. do)2/2/2016, 18:55 by crazy» Bài 3: Câu lệnh điều kiện(if .. then ..)17/1/2016, 20:30 by TranAi» Bài 2: Nhập dữ liệu vào biến(Readln)3/1/2016, 16:25 by crazy» Bài 4: Cấu trúc rẽ nhánh(Case .. of)29/11/2015, 18:11 by TranAi» Bài 1: Lệnh thông báo ra màn hình(Write)19/11/2015, 14:45 by caodao» Hướng dẫn Ghost HDD không cần đĩa CD12/6/2015, 16:44 by duchiep0123» Bài tập tổng hợp15/4/2015, 19:23 by TranAi» Bàn ghế tre – cafe, nhà hàng giá xuất xưởng chỉ với 380k/1b18/7/2014, 09:42 by hoaithuong» Bài thuốc truyền đời chữa bệnh viêm gan B và xơ gan cổ trướng của lương y nức tiếng Hà thành27/5/2014, 10:30 by hatcatvothuongDecember 2025

Mon	Tue	Wed	Thu	Fri	Sat	Sun
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31

Calendar

Thống KêHiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm Không

[ View the whole list ]

Số người truy cập cùng lúc nhiều nhất là 66 người, vào ngày 7/12/2025, 09:07StatisticsDiễn Đàn hiện có 74 thành viênChúng ta cùng chào mừng thành viên mới đăng ký: AlinaL92956302Tổng số bài viết đã gửi vào diễn đàn là 107 in 53 subjectsTop posters

Admin
TranAi
lethanhnhan9a3
crazy
huynhngocanh
hoaithuong
duchiep0123
thanhhuytranphan
hatcatvothuong
hethuyl

Bài 6: Vòng lặp không biết trước số lần lặp(While và Repeat)

Diễn đàn Tin học :: Bài viết của thành viên :: Bài tập Pascal

Trang 1 trong tổng số 1 trang

Bài 6: Vòng lặp không biết trước số lần lặp(While và Repeat)

by Admin 10/4/2014, 21:21

A. Lý thuyết1. Lệnh While     - Cú pháp:       While (Biểu thức so sánh) do                               Câu lệnh     - Ý nghĩa: Trước tiên máy tính kiểm tra biểu thức so sánh, nếu đúng thì thực hiện câu lệnh, tiếp tục quay lại kiểm tra biểu thức so sánh và nếu đúng lại thực hiện câu lệnh, ... cứ thực hiện hoài cho đến khi biểu thức so sánh sai thì ngưng vòng lặp.     - VD: Tính tổng các số từ 1 đến 10                          Program vd;             uses crt;             var                   tong,i:integer;             BEGIN                         tong:=0;                         while i<=10 do                               begin                                         tong:=tong+i;                                         i:=i+1;                               end;             END.     - Chú ý:             Nếu ngay từ đầu máy tính kiểm tra biểu thức so sánh mà sai thì không thực hiện lệnh nào trong vòng lặp(thoát khỏi vòng lặp).             Sử dụng lệnh này rất dễ rơi vào trạng thái lặp vô hạn, để không bị lặp vô hạn cần thực hiện tốt 2 điều sau:                 + Biểu thức so sánh cần chặn ở đích(ở VD trên chính là i<=10)                 + Vòng lặp này không tự thay đổi giá trị của biến trong biểu thức như vòng lặp for. Do vậy trong vòng lặp cần có 1 câu lệnh làm thay đổi giá trị của biến trong biểu thức, câu lệnh đó phải đảm bảo qua một số bước nào đó biểu thức so sánh sẽ bị sai(ở VD trên chính là i:=i+1).             Nếu rơi vào trạng thái lặp vô hạn, nhấn tổ hợp phím CTRL + BREAK             Nếu có cần thực hiện nhiều lệnh(từ 2 lệnh trở lên) cần đặt các lệnh đó trong cặp từ khóa Begin ... end;2. Lệnh Repeat     - Cú pháp:            Repeat                                         lệnh 1;                                         lệnh 2;                                         .......                                         lệnh n;                               Until  (Biểu thức so sánh);     - Ý nghĩa: Máy tính sẽ thực hiện các lệnh trong cặp từ khóa Repeat .. Until trước sau đó kiểm tra biểu thức, nếu sai quay lại thực hiện các lệnh, ... vòng lặp sẽ kết thúc khi biểu thức là đúng.     - VD: Tính tổng các số từ 1 đến 10                          Program vd;             uses crt;             var                   tong,i:integer;             BEGIN                         tong:=0;                         i:=1;                         Repeat                                     tong:=tong+i;                                     i:=i+1;                         Until i>10;             END.        - So sánh lệnh While và Repeat        

While	Repeat
- Biểu thức đúng thì thực hiện lệnh	- Biểu thức đúng thì ngưng vòng lặp
- Kiểm tra biểu thức trước rồi thực hiện lệnh	- Thực hiện lệnh trước rồi kiểm tra điều kiện
- Biểu thức sai thì không thực hiện lệnh nào	- Biểu thức dù đúng hay sai cũng thực hiện ít nhất 1 lệnh.

B. Bài tậpBài 1: Tính tổng các số từ 2 đến 100Bài 2: Cho số thực a và số tự nhiên n nhập từ bàn phím. Viết chương trình tính công thức a mũ n     Gợi ý:      - Nhập a,n     - Khai báo thêm biến ketqua     - Dùng vòng lặp Repeat     - ketqua=a*a*...*a(có n số a)     - Điều kiện: không vượt quá n     VD: a = 3, n = 2 thì 3^2 = 9Bài 3: Cho số nguyên dương n nhập từ bàn phím. Tính tổng sau:1+1/2+1/3+1/4+ ... +1/n     Gợi ý:     - Nhập n     - Dùng vòng lặp While hoặc Repeat đều được     - Biểu thức so sánh: biến chạy không vượt quá nBài 4: Viết chương trình nhập vào số thực a. Tìm số tự nhiện n sao cho:1+1/2+1/3+1/4+ ... +1/n > a     Gợi ý:      - Nhập a     - Làm giống bài 2     - Tuy nhiên không in ra kết quả Tong như bài 2 mà lấy kết quả Tong làm điều kiện, Tong > a thi in ra biến chạy.Bài 5: Tìm ước chung lớn nhất của hai số nguyên a và b     Thuật toán:        - Nếu a = b thì UCLN chính là a(hoặc b)        - Ngược lại:            + Lấy số lớn chia cho số nhỏ được số dư thứ 1            + Lấy số chia, chia cho số dư thứ 1 được số dư thứ 2                   ...................            + Thực hiện cho đến kho số dư thứ n bằng 0 thì U7CLN = số dư thứ n-1     VD: Tim U7CLN của 9 va 6 thực hiện như sau:        - lấy 9 chia 6 được 1 (dư 3)        - lấy 6 chia 3 được 2 (dư 0)        - vậy U7CLN của 9 va 6 là số dư trước đó(tức là số 3)        Gợi ý:     + Nhập a,b     + Dùng vòng lặp Repeat     + Gán r:=a mod b;              a:=b;              b:=r;Bài 6: Tìm bội chung nhỏ nhất của hai số nguyên a và b     Gợi ý:       - Tìm UCLN của a và b       - Bội cung nhỏ nhất bằng tích 2 số chia cho ước chung lớn nhất của hai số đó(BCNN = a*b/UCLN)Bài 7: Viết chương trình thực hiện công việc sau:         Nhập một ký tự bất kỳ là chữ cái từ bàn phím. Dừng nhập khi kí tự là ‘C’. In ra các kí tự hoa tương ứng của các kí tự được nhập trên một hàng.     Gợi ý:      - Nhập biến chu(char)      - Dùng vòng lặp Repeat      - Mỗi lần nhập 1 kí tự(nhưng chưa in ra màn hình), cứ nhập cho đến khi nhập chữ C thì ngưng(chính là điều kiện để kết thúc vòng lặp).      - Sau khi thoát khỏi vòng lặp thì in tất cả các kí tự vừa nhập trên 1 hàng(in ra bằng chữ HOA)      - Lệnh upcase(n) : đổi kí tự chữ thường sang chữ hoa.Được sửa bởi Admin ngày 16/1/2015, 17:16; sửa lần 3.AdminAdminTổng số bài gửi : 59Points : 171Reputation : 3Join date : 06/10/2013Age : 42Đến từ : Cà Mau LikeDislike

Similar topics Similar topics» Bài 5: Vòng lặp biết trước số lần lặp(For .. to .. do)» Ghost HDD không cần đĩa» Hướng dẫn Ghost HDD không cần đĩa CD» Tạo USB Boot và Ghost không cần đĩa» Quan sát hình không gian với phần mềm Yenka

Diễn đàn Tin học :: Bài viết của thành viên :: Bài tập Pascal

Trang 1 trong tổng số 1 trangChuyển đến: Chọn Diễn Đàn||--Thông báo| |--Nội quy| |--Hướng dẫn| |--Phần mềm học tập - Tiện ích máy tính| |--Khối 6| | |--Mouse Skills| | |--Mario| | |--Solar System 3D Simulator| | | |--Khối 7| | |--Typingg Test| | |--Earth Explorer| | |--Toolkit Math| | |--GeoGebra| | | |--Khối 8| | |--Free Pascal| | |--DosBox| | |--ePascal| | |--Pascal Study| | |--Finger Break Out| | |--Sun Times| | |--GeoGebra| | |--Yenka| | | |--Khối 9| |--Tiện ích máy tính| |--Video hướng dẫn học tập| |--Khối 6| |--Khối 7| |--Khối 8| |--Khối 9| |--Bài viết của thành viên |--Bài tập Excel |--Bài tập Pascal |--Tài liệu tham khảo |--Thủ thuật máy tính Permissions in this forum:Bạn không có quyền trả lời bài viết

• Trang Chính
• Create a forum on Forumotion | ©phpBB | Free forum support | Báo cáo lạm dụng | Thảo luận mới nhất