Bài tập câu lệnh lặp (đã chỉnh sửa ngày 01-02-2013)

Giá trị đầu, giá trị cuối của vòng lặp đối với những bài có dạng tương tự 2.. Điều kiện trong vòng lặp while…do3[r]

Bai 1: {Tinh tich S=1*2*3* *N Voi N nhap tu ban phim}

PROGRAM TICH;

USES CRT;

VAR i,n:byte;

s:real;

BEGIN

clrscr;

Write('Nhap N: '); read(n);

s:=1;

for i:=1 to N do

s:=s*i;

write('Tich S: ');

write(s:3:1);

readln;

readln;

END

Bai 2: {Tinh tich S=1*2*3* *30}

PROGRAM TICH;

USES CRT;

VAR i:byte;

s:real;

BEGIN

clrscr;

s:=1;

for i:=1 to 30 do

s:=s*i;

write('Tich S: ');

write(s:3:1);

readln;

readln;

END

Bai 3: {Viet chuong trinh tinh tong nghich dao cua n so nguyen N nhap tu ban phim}

PROGRAM TONG_NGHICH_DAO;

USES CRT;

VAR i,n:byte;

s:real;

BEGIN

Write('Nhap N: ');readln(N);

s:=0;

For i:=1 to n do

S:=s+1/i;

write('Tong: ');

write(s:4:1);

readln;

END

Bai 4: {Tinh tong s= 1

a +

1

a+1 +

1

a+2 +

1

a+ 3 + .+

1

a+ N Voi a, N nhap tu ban phim}

PROGRAM TONG;

USES CRT;

VAR I,N,a:byte;

S:real;

BEGIN

clrscr;

write('Nhap N: ');readln(N);

write('Nhap a: ');readln(a);

s:=1/a;

for i:=1 to N do

s:=s+1/(a+i);

write('Tong S: ',s:3:1);

readln;

END

Bai 5: Tinh tong s= 1

a +

1

a+3 +

1

a+4 +

1

a+5 + +

1

a+40 Voi a nhap tu ban phim}

PROGRAM TONG;

USES CRT;

VAR I,a:byte;

S:real;

BEGIN

clrscr;

write('Nhap a: ');readln(a);

s:=1/a;

for i:=3 to 40 do

s:=s+1/(a+i);

write('Tong S: ',s:3:1);

readln;

END

Bai 6: {Tinh tong S=1+2+3+ +N Voi N nhap tu ban phim}

PROGRAM TONGS;

USES CRT;

VAR i,n:byte;

s:real;

BEGIN

clrscr;

Write('Nhap N: '); read(n);

s:=0;

for i:=1 to N do

s:=s+i;

write('Tong S: ');

write(s:3:1);

readln;

readln;

END

Bai 7: {Tinh tong S=2+3+ +56 }

PROGRAM TONGS;

USES CRT;

VAR i,n:byte;

s:real;

BEGIN

clrscr;

s:=0;

for i:=2 to 56 do

s:=s+i;

write('Tong S: ');

write(s:3:1);

readln;

readln;

END

Bai 8: {Viet chuong trinh tim UCLN cua 2 so M, N cua hai so nguyen duong}

PROGRAM UCLN;

USES CRT;

VAR m,n:integer;

BEGIN

clrscr;

write('Nhap M: ');readln(m);

write('Nhap N: ');readln(n);

while m<>n do

if m>n then

m:=m-n

else

n:=n-m;

write('UCLN: ',M);

readln;

Bai 9: {Tinh tong s=1/a+1/(a+1)+1/(a+2)+ +1/(a+N) Khi 1/(a+N)<0.5 Voi a nhap tu ban phim}

PROGRAM TONG;

USES CRT;

VAR I,N,a:byte;

S:real;

BEGIN

clrscr;

write('Nhap N: ');readln(N);

write('Nhap a: ');readln(a);

s:=1/a;

n:=1;

while 1/(a+N)<0.5 do

begin

s:=s+1/(a+n);

n:=n+1;

end;

write('Tong S: ',s:3:1);

readln;

END

Ghi chu: Đã chỉnh sửa 01/02/2013

Các em chú ý:

1 Giá trị đầu, giá trị cuối của vòng lặp đối với những bài có dạng tương tự

2 Điều kiện trong vòng lặp while…do

3 Giá trị ban đầu với bài toán tính tổng, tính tích.