Bài tập về câu lệnh lặp While trong Pascal lớp 8

Hảy xem tập tin đính kèm

Ôn tập vòng lặp For

Bài tập 1: Viết chương trình tính tổng S của các số có trong số nguyên dương N. S = 1+2+...+N

                  ví dụ : tính tổng của 5 [ 1+2+3+4+5 = 15]                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            

Cách 1: Dùng vòng lặp FOR.[xác định được số lần lặp]

Program TinhTong;

Uses crt;

Var N,i,S:integer;

Begin

          Clrscr;

          Write['Nhap vao gia tri cua N :']; Readln[N];

          S:=0;

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

          Writeln['Ket qua la :',S];

          Readln;

End.

Cách 2: Dùng vòng lặp REPEAT. [trường hợp xác định được số lần lặp]

Program TinhTong;

Uses crt;

Var N,i,S:integer;

Begin

          Clrscr;

          Write['Nhap vao gia tri cua N :']; Readln[N];

          S:=0; i:=1;

          Repeat

                   S:=S+i;

                   i:=i+1;

          Until i>N;

          Writeln['Ket qua la :',S];

          Readln;

End.

Cách 3: Dùng vòng lặp WHILE. [là trường hợp xác định được số lần lặp]

Program TinhTong;

Uses crt;

Var N,i,S:integer;

Begin

          Clrscr;

          Write['Nhap vao gia tri cua N :']; Readln[N];

          S:=0; i:=1;

          While i