Ta có công thức tính giai thừa S=1*2*3* .*n. Tìm giá trị lớn nhất của n thoả mãn S<100 Bước 1. Gán S=1 Gán n =0 Bước 2. So sánh S với 100. Nếu S<100 thì : S:=S*n n:=n+1 Lặp lại bước 2 Nếu s >=100 thì ghi ra n và thực hiện Bước 3. Bước 3: kết thúc Từ giải thuật ta đi viết chương trình Program tim-n; var s,n:integer; begin s:=1; n:=0; while s<100 do begin s:=s*n; n:=n+1; end; write( n); readln; end. Bước 1. Gán S=1 Gán n =0 Bước 2. So sánh S với 100. Nếu S<100 thì : S:=S*n; n:=n+1; Lặp lại bước 2 Nếu s >=100 thì ghi ra n và thực hiện Bước 3. Bước 3: kết thúc Program tim-n; var s,n:integer; begin s:=1; n:=0; while s <100 do begin n:=n+1; s:=s*n; end; write( n); readln; end. Ngoài câu lệnh lặp dạng While thì ngôn ngữ lập trình Turbo Pascal đ cung cấp cho chúng ta câu lệnh để thực ã hiện công việc được lặp lại nhiều lần với số lần lặp không biết trước mà điều kiện để lặp được kiểm tra sau khi đã thực hiện câu lệnh ít nhất một lần. Vẽ sơ đồ giải thuật thực hiện công việc: Tính tổng của các số được nhập vào từ bàn phím. Nếu tổng lớn hơn 100 thì kết thúc việc nhập và in lên màn hình tổng đó Bước 1. Tổng:=0; Bước 2: Nhập số bất kì (n); Tổng:=Tổng + n; Bước 3: So sánh Tổng với 100 +nếu Tổng<=100 lặp lại bước 2. +nếu Tổng>100 thực hiện bước 4. Bước 4: Viết Tổng. Bước 5: kết thúc. Vẽ sơ đồ giải thuật thực hiện công việc: Tính tổng của các số được nhập vào từ bàn phím. Nếu tổng lớn hơn 100 thì kết thúc việc nhập và in lên màn hình tổng đó. Bíc 1. Tæng:=0; Bíc 2: NhËp sè bÊt k× (n); Tæng:=Tæng + n; Bíc 3: So s¸nh Tæng víi 100 +nÕu Tæng<=100 lÆp l¹i bíc 2. +nÕu Tæng>100 thùc hiÖn bíc 4. Bíc 4: ViÕt Tæng. Bíc 5: kÕt thóc. Begin Tong:= 0 NhËp n Tong:=Tong+n Tong>100 Tong End Begin Tong:= 0 NhËp n Tong:=Tong+n Tong>100 Tong End c«ng viÖc Begin Tong:= 0 n=30 Tong=30 Tong>100 110 End n=10 Tong=40 Tong>100 n=70 Tong=110 Tong>100 [...]... var s,n: real; begin s:=0; Repeat write(nhap mot so); readln(n); s:=s+n; Until S >100; write( tong, s); readln; end Chương trình sau có kết quả như thế nào? var s,n: real; Vì sao? begin s:=50; Repeat write(nhap n=70); readln(n); s:=s; Until S >100; write( tong, s); readln; end Vì Ta không có câu lệnh tác động đến biến s để làm thay đổi giá trị của nó Trong thân câu lệnh Repeat thường phải có giá trị...Begin Tong:= 0 công việc Nhập n Công việc Tong:=Tong+n ĐK Tong>100 Tong End Câu lệnh Từ khoá Biểu thức điều kiện Dịch các từ khoá từ tiếng Anh sang tiếngViệt Câu lệnh Repeat < A > Until < B> Lặp lại Biểu thức điều kiện Cho đến khi Repeat < A > Until < B > Thực hiện Lặp lại công việc A cho đến khi biểu thức B nhận giá trị đúng thì thoát Sơ đồ khối A B Vận dụng Dùng để giải các bài toán trong đó câu . C©u lÖnh Repeat < A > Until < B>. DÞch c¸c tõ kho¸ tõ tiÕng Anh sang tiÕngViÖt BiÓu thøc ®iÒu kiÖn C©u lÖnh LÆp l¹i Cho ®Õn khi Repeat <. hiện câu lệnh S¬ ®å. Ch¬ng tr×nh. program tong; var s,n: real; begin s:=0; Repeat write(‘nhap mot so’); readln(n); s:=s+n; Until S >100; write(‘ tong’,