Thí dụ về các kiểu cấu trúc lặp trong Pascal

Thứ tư - 29/07/2020 10:11
Thí dụ về các kiểu cấu trúc lặp trong Pascal với các câu lệnh lặp: For, Repeat ... Until, While ... do trong một bài tập cho sẵn.
Thí dụ: Viết chương trình tính tổng bình phương của n số nguyên đầu tiên.
Sn = 12 + 22 + 32 + ... + n2.

• Dùng cấu trúc FOR
PROGRAM Tong_binh_phuong_1 ;
VAR
      S, n, i : Integer ;
BEGIN
      WRITELN ('CHƯƠNG TRÌNH TÍNH TỔNG BÌNH PHƯƠNG*');
      WRITE (‘Bạn muốn tính bao nhiêu số :') ;
      READLN (n) ;
      S := 0 ;
      FOR 1 := 1 TO n DO
           S := S + (i*i) ;
     WRITELN (* Tổng bình phương của :, . 'số là :’ S) ;
     READLN ;
END.

• Dùng cấu trúc WHILE
PROGRAM Tong_binh_phuong_2 ;
VAR
     S, n, i : Integer ;
BEGIN
      WRITELN (*CHƯƠNG TRÌNH TÍNH TỔNG BÌNH PHƯƠNG*');
      WRITE ('Bạn muốn tính bao nhiêu số :') ;
      READLN (n) ;
      S := 0 ;
      i := 1 ;
     WHILE i <= n DO
          BEGIN
               S := s + (i*i) ;
               i := i + 1 ;
          END ;
     WRITELN (’Tổng bình phương của :’, n, 'số là', S) ;
     READLN ;
END.

• Dùng cấu trúc REPEAT ... UNTIL
PROGRAM Tong_Binh_Phuong_3 ;
VAR
      S, n, i : Integer ;
BEGIN
     WRITELN ( CHƯƠNG TRÌNH TÍNH TỔNG BÌNH PHƯƠNG*’);
     WRITE ('Bạn muốn tính bao nhiêu số :');
     READLN (n) ;
     S := 0 ;
     i := 1 ;
     REPEAT
          S:=S + (i*i);
          i := i + 1 ;
    UNTIL i > n ;
    WRITELN (•* Tổng bình phương của', n, 'số là', S) ;
     READLN ;
END.
Trong trường hợp này, ta nên sử dụng cấu trúc nào ? Rõ ràng là cấu trúc FOR gọn hơn.
Còn trường hợp sau đây thì sao ?
Giả sử trong một đoạn chương trình nào đó, ta cần nhập vào một số nguyên dương. Nếu chẳng may gõ vào một sô' âm thì máy yêu cầu nhập lại.
• Nếu viết bằng REPEAT.. UNTIL thì:
...
REPEAT
WRITE ('- Nhập vào 1 số =') ;
READLN (so);
UNTIL so >= 0 ;

Nếu viết bằng WHILE.. DO thì :

WRITE (’- Nhập vào 1 số =') ;
READLN (so) ;
WHILE so <= 0 DO
BEGIN
     WRITE ('- Nhập vào 1 số =') ;
     READLN (so) ;
END ;

Có phải viết bằng cấu trúc REPEAT.. UNTIL rõ ràng và tự nhiên hơn ? Vì vậy trong một chương trình, ta nên lựa chọn chỗ nào thì dùng cấu trúc lặp này, chỗ nào thì dùng cấu trúc khác. Để có được “nghệ thuật” này, chúng ta cần viết nhiều chương trình và tự rút ra kinh nghiệm.

  Ý kiến bạn đọc

THÀNH VIÊN

Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site
Kênh Bóng đá trực tiếp hôm nay miễn phí
Kênh
90Phut TV full HD ⇔ 
Thabet ⇔ BET88 ⇔ 

78win ⇔ https://69vn.living/
23win ⇔ ABC88 ⇔ rikvip ⇔ bj88
link xem truc tiep bong da xoilac tv ⇔ okvip
xem bóng đá cà khịa tv trực tuyến hôm nay
MB66 ⇔ 23WIN ⇔ FB88 ⇔ Link MB66
bongvip ⇔ daga88 ⇔ BK8
789BET ⇔ bj88.insure ⇔ 32 win ⇔ Daga
nhà cái OK9 ⇔ QQ88 ⇔ hi88 ⇔ 
https://789betcom0.com/ ⇔ https://hi88.baby/
TK88 ⇔ f8bet ⇔ b52club
QQ88 ⇔ 32win ⇔ hi88 ⇔ go88
Bet88 ⇔ 78win ⇔ https://king88.movie/
Đăng nhập bk8 ⇔ 789Win ⇔ 
HOBA ⇔ WW88 ⇔ bj88 ⇔ uu88
F168 ⇔ bsports ⇔ QQ88 ⇔ BET88
MB66 ⇔ hi88 ⇔ 789bet ⇔ net88
alo789 ⇔ F168 ⇔ soc88 ⇔ Kubet
https://hi88.gives/ ⇔ https://789club63.com/
23WIN ⇔ hi88 ⇔ https://fun88.social/
https://iwinpro.live/ ⇔ https://23win.kim/
https://qq88.fun/ ⇔ https://j88ss.com
SV388 ⇔ HB88 ⇔ 
https://789winlem.com/ ⇔ https://uk88.rocks
32win ⇔ 69vn ⇔ UK88 ⇔ 98win
https://nau888.com ⇔ https://hello8880.net/
Debet ⇔ hi88 ⇔ hi88 ⇔ https://king88aff.com
NOHU ⇔ FB88 ⇔ 78win ⇔ kubet
F168 ⇔ https://dt68.cc/ ⇔ okking99
https://ww88.supply/ ⇔ https://f168.com.co/
Link vào NEW88 ⇔ https://789club24.com/
https://33win103.com/ ⇔ https://f168.group/
https://33win102.com/ ⇔ https://33win.clothing/
https://33win100.com/ ⇔ https://hi88.tours/
https://myeat.net/ ⇔ https://hi88.report/
https://58win1.info/ ⇔ https://hi88.garden/
https://fun88.place/  ⇔ https://hello880.net/
https://789club60.com/ ⇔ https://nau888.com/
https://f168.dad/ ⇔  ⇔ 99WIN
Vin777 ⇔ https://789club24.com/
33win ⇔ 8xbet ⇔ u888
PG88 ⇔ bet 88 ⇔ https://bj88com.feedback/
 ⇔ HB88 ⇔ 33win ⇔ HUBET
https://33win101.com/ ⇔ SHBET
https://nhacaiuytin.garden/ ⇔ 
https://33winpro.me/ ⇔ https://23win.build
https://789win.navy/ ⇔ New88 ⇔ BJ88
SV388 ⇔ Link MBlive
https://ww88info.com/ ⇔ https://new88838.com/
https://nhacaiuytin88.me/ ⇔ https://hb88ai.com/
https://hb88top.com/ ⇔ https://8day111.com/
https://8day112.com/https://789win.voyage/
https://u888.prof/ ⇔ https://69win.me/
https://abc8.house/ ⇔ https://789p.partners/
Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây