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 ⇔ 32win
Thabet ⇔ 79king ⇔ bk8 ⇔ bet88

78win ⇔ Kubet ⇔ 88CLB ⇔ shbet
789f ⇔ 99WIN ⇔ rikvip ⇔ 8x bet
kết quả bóng đá ⇔ keonhacai ⇔ okvip
b52club ⇔ Kkwin ⇔ ko66 ⇔ Link MB66
https://88betcom.pro/ ⇔ 8x bet ⇔ hi88
789BET ⇔ tylekeo ⇔ 32 win ⇔ Daga
j88 ⇔ 789win link ⇔ hi88 ⇔ b52 club
https://789betcom0.com/ ⇔ https://hi88.baby/
TK88 ⇔ rwin ⇔ luongsontv ⇔ SHBET
QQ88 ⇔ qq88 ⇔ 8kbet ⇔ go88
88bet ⇔ 78win ⇔ j88 ⇔ GK88 ⇔ 32win
Bet88 ⇔ 789Win ⇔ J88 ⇔ bj88
https://789bett1.blog/ ⇔ bj88 ⇔ uu88
F168 ⇔ bet88 ⇔ QQ88 ⇔ bk8 ⇔ bk8
MB66 ⇔ iwinclub ⇔ MB66 ⇔ net88
keonhacai ⇔ soc88 ⇔ https://j88t3.com/
https://hi88.gives/ ⇔ 23win ⇔ 98win
789F ⇔ hi88 ⇔ https://fun88.social/
https://iwinpro.live/ ⇔ https://hubet3d.com/
https://qq88.fun/ ⇔ f168 ⇔ HUBET
rik vip ⇔ v9 bet ⇔ keo nha cai ⇔ u88
https://bshbet.com/ ⇔ https://uk88.rocks
32win ⇔ Vuabet88 ⇔ 88AA ⇔ 98win
https://luongson117.tv ⇔ https://hello8880.net/
u888 ⇔ betvisa ⇔ hi88 ⇔ https://king88aff.com
red88.com ⇔ choáng club ⇔ bong 88
https://u888lm.com/ ⇔ sv388 ⇔ bj88
https://ww88.supply/ ⇔ https://f168.com.co/
sin88.com ⇔ https://789club24.com/
https://33win103.com/ ⇔ https://f168.group/
https://33win102.com/ ⇔ https://abc8255.com/
https://33win100.com/ ⇔ https://hi88.tours/
https://myeat.net/ ⇔ https://hi88.report/
https://58win1.info/ ⇔ https://hi88.garden/
https://debetso.com/ ⇔ https://hello880.net/
https://789club60.com/ ⇔ 789WIN
https://f168.dad/ ⇔ dt68 ⇔ f168 ⇔ f168
fun 88 ⇔ https://789club24.com/ ⇔ Kuwin
King 88 ⇔ 8xbet ⇔ 7m ⇔ New88
78 win ⇔ KUBET ⇔ 99OK ⇔ 68WIN
ww88 ⇔ 8 day ⇔ 33win ⇔ HUBET
https://33win101.com/ ⇔ SHBET ⇔ BJ88
five88.com ⇔ https://shbet.gg/ ⇔ SHBET
https://33winpro.me/ ⇔ https://23win.build
https://kuwinvef.me/ ⇔ https://bongvip.space/
https://23win.men/ ⇔ nhà cái 8Kbet
https://nhacaiuytin88.me/ ⇔ https://hb88ai.com/
https://hb88top.com/ ⇔ https://8day111.com/
https://8day112.com/https://789win.voyage/
https://u888.prof/ ⇔ https://hubest.co/
https://goal123.directory/  ⇔ https://bk8co.net/
https://23wincom.info ⇔ https://j88com.limited
https://j88uk.com ⇔ https://f168.movie/
https://8kbetttt.com/ ⇔ https://f168.law/
https://88bett.vip/ ⇔ https://j88.ventures/
https://qq88pro.vip/ ⇔ https://ww88i.club/
New88 ⇔ https://8kbet25.com ⇔ hi88
kubet ⇔ https://luongsontv72.com/
https://qq88.gives/ ⇔ 789BET ⇔ ww88
https://88vvcom.net/ ⇔ 789BET
https://32win.vc/ ⇔ 78win ⇔ vegas79
bong88 ⇔ j88 ⇔ j88 ⇔ sunwin ⇔ sunwin
hitclub ⇔ hitclub ⇔ 888b ⇔ 8 day ⇔ go 88
https://f168.giving/ ⇔ s 666 ⇔ QQ88
hi88 ⇔ 79King ⇔ kubet ⇔ 8kbet
7MCN ⇔ Keonhacai55.ws ⇔ RR88
http://79king.ac/ ⇔ https://nhacaiuytin.garden/
https://xx88.ink/ ⇔ https://bk88vn.net/
https://23win.kim/ ⇔ https://69vn.co.in/
tỷ lệ kèo nhà cái hôm nay ⇔ King88 link mới
nhà cái UU88 ⇔ https://qq88.markets/
https://j88ss.com ⇔ https://qq88.studio/
888B ⇔ GK88 ⇔ nổ hũ đổi thưởng
https://mm88.blue/ ⇔ trực tiếp bóng đá
Hay 88 ⇔ https://rr882.net/ ⇔ King88
https://789winlem.com/ ⇔ https://cakhiatv88.net/
https://shbet.is/ ⇔ https://13win.london/
https://789win.fund/ ⇔
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