Em hãy cho biết thuật toán máy tính sẽ thực hiện bao nhiêu vòng lặp ? Kết thúc giá trị của S bằng bao nhiêu ? Viết phương trình bằng Pascal để mô tả thuật toán đó . B1 : S<-20,n<-1; B2 :Nếu S_> 5, chuyển B4 B3 :n<- N+1,S<-S-n và quay lại B2 B4 :Thông báo S và kết thúc thực toán.

1. // Cach thong thuong
2. int func(int a, double b)
3. {
4. if (a > b)
5. return a;
6. else
7. return b;
8. }
9.  
10. // Cach nhu Lambda
11. auto func(int a, double b) -> int
12. {
13. if (a > b)
14. return a;
15. else
16. return b;
17. }
18.  
19. // Cach nhu Lambda ket hop decltype
20. auto func(int a, double b) -> decltype(a)
21. {
22. if (a > b)
23. return a;
24. else
25. return b;
26. }

- Giá trị ban đầu S = 20, n = 1

- Điều kiện S ≥ 5 thì kết thúc vòng lặp

- S = 20 ≥ 5 ⇒ Điều kiện đúng

- Chuyển tới bước 4, in giá trị S và kết thúc

- Chương trình không thực hiện vòng lặp nào

- Kết quả S = 20

- Viết chương trình Pascal :

uses crt;

var S, n : integer;

begin

clrscr;

S := 20; n := 1;

while S < 5 do begin

n := n + 1; S := S - n; end;

write('S = ', S);

readln

end.