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<=N Do {trong khi I nhỏ hơn hoặc bằng N thì thực hiện)

                   Begin

                             S:=S+i;

                             i:=i+1;

                   End;

          Writeln('Ket qua la :',S);

          Readln;

End.

HS hảy xem tiếp ở tập tin đính kèm

Bài tập 3a: Viết chương trình nhập vào các số nguyên cho đến khi nào muốn kết thúc thì nhập số 0. Hãy đếm xem có bao nhiêu số chẵn, bao nhiêu số lẽ vừa được nhập vào.

Ý tưởng:

            Bài toán này không biết chính xác số lần lặp nên ta không thể dùng vòng lặp FOR. Ta phải nhập vào số nguyên N trước, sau đó mới kiểm tra xem N=0? Do đó ta nên dùng vòng lặp REPEAT hoặc While.

vòng lặp REPEAT

Program  Nhapso;

Uses crt;

Var N,demchan, demle : Integer;

Begin

          Clrscr; demchan:= 0; demle :=0;

          Repeat

                   Write('Nhap vao mot so nguyen N= '); Readln(N);

                   If N MOD 2 = 0 Then demchan:=demchan+1

                             Else demle := demle +1;

          Until N=0;

          Writeln(‘Cac so chan la:’, demchan ,’ Cac so le duoc nhap vao la: ‘,demle);

          Readln;

End.