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 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 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 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 s:=s+1/(a+i);

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

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 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 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 s:=s+i;

write('Tong S: '); write(s:3:1); readln; readln; END

Bai 8: {Viet chuong trinh tim UCLN cua 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

if m>n then m:=m-n else n:=n-m;

END

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 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 ý:

1 Giá trị đầu, giá trị cuối vịng lặp có dạng tương tự 2 Điều kiện vòng lặp while…do