Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?

Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:

Program     tinh_tong;

Var         n  S: Integer

Begin

n:  0;

S = 0;

While S< 1000 do

n:= n + 1; 

                   S:= S + n

            Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);  

    Readln;

End.

Câu 7: Nêu cú pháp câu lệnh lặp và cú pháp câu lệnh lặp với số lần chưa biết trước.

Câu 8: Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập từ bàn phím.

Câu 9: Viết chương trình sử dụng lệnh lặp While..do để tính trung bình của n số thực x_1­, x_2­, x_3­,… x_n­. Các số n và x_1­, x_2­, x_3­,… x_n  được nhập vào từ bàn phím.

 giupa nha các hảo hán !

Câu 1:Viết chương trình in ra các số nguyên tử 1→9 dùng vòng lặp While...do

Câu 2:Viết chương trình in ra màn hình 100 lần tên em

Câu 3:Viết chương trình tính tổng N số tự nhiên đầu tiên

Câu 4:Viết chương trình tính tính T=1+1/2+...+1/n

Câu 5:Vòng lặp sau cho biết kết quả S=?  S:=0;For i:=1 to 5 do S :=S+2

Câu 6:Dòng lệnh sau thực hiện bao nhiêu vòng lặp  For i:=5 to 10 do

I. PHẦN LÍ THUYẾT

câu 1:cho đoạn chương trình sau:

S:=0;

For i:= 1 to 6 do S:=S+i;

Tính giá trị của S?

II. PHẦN BÀI TẬP:

câu 1: Viết chương trình tính tích của 10 số tự nhiên đầu tiên.

Câu 2: Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số

lần lặp chưa biết trước.

Câu 3: Hãy tìm hiểu đoạn chương trình Pascal sau đây và cho biết với đoạn lệnh đó chương trình

thực hiện bao nhiêu vòng lặp?

S:=1; n:=0;

While S <=10 do

Begin

n:=n+1;

S:=S+n;

End;