Ôn tập kiểm tra 1 tiết môn Tin
2 posters
Trang 1 trong tổng số 1 trang
UP BÀI LÊN LUN
ÔN TẬP
1.Viết chương trình tính tổng T=1+1/2+1/3+1/4....+1/N.
Program bai_1;
Uses crt;
Var N,i : integer ;
T: real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
T:=0;
For i:= 1 to N do T:=T+1/i;
Writeln(‘Tong T la: ‘,T);
Readln
End.
2.Viết chương trình sử dụng vòng lặp while...do để tính số N nhỏ nhất sau cho 1/n<0.005.
Program bai_2;
Uses crt;
Var N: integer;
S: real;
Begin
Clrscr;
N:=1;
S:=1;
While S>=0.005 do
Begin
N:=N+1;
S:=1/N;
End;
Readln
End.
3.Viết chương trình nhập số N từ bàn phím. Kiểm tra nếu N>0 thì tính trung bình cộng N số tự nhiên đầu tiên, ngược lại in ra màn hình thông báo lỗi N<=0.
Bạn hãy chọn một trong hai chương trình sau để làm:
*Chương trình 1 ( cô sửa trên lớp):
Program bai_3;
Uses crt;
Var : N,i : integer;
S : real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
If N>0 then
For i:= 1 to N do S:=S+i ;
S:=S/N;
Writeln(‘Tong N so tu nhien dau tien:’,S);
Readln
End.
*Chương trình 2 (làm theo đề bài):
Program bai_3;
Uses crt;
Var : N,i : integer;
S : real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
If N<=0 then writeln(‘So N<= khong, so khong hop le’);
Else
Begin
For i:= 1 to N do S:=S+i ;
S:=S/N;
Writeln(‘Tong N so tu nhien dau tien:’,S);
End;
Readln
End.
4.Viết chương trình nhập số N từ bàn phím. Tính trung bình cộng các số chẵn của N số tự nhiên đầu tiên.
Program bai_4;
Uses crt;
Var : N,i,G,S: integer;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
S:=0;
G:=0;
For i:= 1 to N do if (i mod 2=0) then
Begin
S:=S+i;
G:=G+1;
End;
Writeln(‘Trung binh cong cac so chan cua N so tu nhien la:’,S/N);
Readln
End.
5. Viết chương trình nhập số N từ bàn phím. Kiểm tra xem N có phải là số nguyên tố hay không.
Program bai_5;
Uses crt;
Var N,i,A : integer;
Begin
Clrscr;
Write(‘Nhap so N’);readln(N);
A:=0;
For i:= 1 to N do if (N mod i=0) then A:=A+1;
If A=1 then writeln(A,’ khong phai la so nguyen to’)
Else (A, ‘la so nguyen to’);
Readln
End.
6.Viết chương trình nhập số N từ bàn phím. Kiểm tra N>0 thì tính tổng N số tự nhiên đầu tiên, ngược lại in ra màn hình thông báo lỗi N<=0.
Program bai_6;
Uses crt;
Var S,i,N: integer;
Begin
Clrscr;
Write(‘ Nhap so N:’); readln(N) ;
S:=0;
If N>0 then
Begin
For i:= 1 to N do S:=S+i;
Writeln(‘Tong N so tu nhien dau tien la:’, S);
End;
Else writeln(‘So N khong hop le ’);
Readln
End.
1.Viết chương trình tính tổng T=1+1/2+1/3+1/4....+1/N.
Program bai_1;
Uses crt;
Var N,i : integer ;
T: real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
T:=0;
For i:= 1 to N do T:=T+1/i;
Writeln(‘Tong T la: ‘,T);
Readln
End.
2.Viết chương trình sử dụng vòng lặp while...do để tính số N nhỏ nhất sau cho 1/n<0.005.
Program bai_2;
Uses crt;
Var N: integer;
S: real;
Begin
Clrscr;
N:=1;
S:=1;
While S>=0.005 do
Begin
N:=N+1;
S:=1/N;
End;
Readln
End.
3.Viết chương trình nhập số N từ bàn phím. Kiểm tra nếu N>0 thì tính trung bình cộng N số tự nhiên đầu tiên, ngược lại in ra màn hình thông báo lỗi N<=0.
Bạn hãy chọn một trong hai chương trình sau để làm:
*Chương trình 1 ( cô sửa trên lớp):
Program bai_3;
Uses crt;
Var : N,i : integer;
S : real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
If N>0 then
For i:= 1 to N do S:=S+i ;
S:=S/N;
Writeln(‘Tong N so tu nhien dau tien:’,S);
Readln
End.
*Chương trình 2 (làm theo đề bài):
Program bai_3;
Uses crt;
Var : N,i : integer;
S : real;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
If N<=0 then writeln(‘So N<= khong, so khong hop le’);
Else
Begin
For i:= 1 to N do S:=S+i ;
S:=S/N;
Writeln(‘Tong N so tu nhien dau tien:’,S);
End;
Readln
End.
4.Viết chương trình nhập số N từ bàn phím. Tính trung bình cộng các số chẵn của N số tự nhiên đầu tiên.
Program bai_4;
Uses crt;
Var : N,i,G,S: integer;
Begin
Clrscr;
Write(‘Nhap so N:’); readln(N);
S:=0;
G:=0;
For i:= 1 to N do if (i mod 2=0) then
Begin
S:=S+i;
G:=G+1;
End;
Writeln(‘Trung binh cong cac so chan cua N so tu nhien la:’,S/N);
Readln
End.
5. Viết chương trình nhập số N từ bàn phím. Kiểm tra xem N có phải là số nguyên tố hay không.
Program bai_5;
Uses crt;
Var N,i,A : integer;
Begin
Clrscr;
Write(‘Nhap so N’);readln(N);
A:=0;
For i:= 1 to N do if (N mod i=0) then A:=A+1;
If A=1 then writeln(A,’ khong phai la so nguyen to’)
Else (A, ‘la so nguyen to’);
Readln
End.
6.Viết chương trình nhập số N từ bàn phím. Kiểm tra N>0 thì tính tổng N số tự nhiên đầu tiên, ngược lại in ra màn hình thông báo lỗi N<=0.
Program bai_6;
Uses crt;
Var S,i,N: integer;
Begin
Clrscr;
Write(‘ Nhap so N:’); readln(N) ;
S:=0;
If N>0 then
Begin
For i:= 1 to N do S:=S+i;
Writeln(‘Tong N so tu nhien dau tien la:’, S);
End;
Else writeln(‘So N khong hop le ’);
Readln
End.
nguyenminhnhut1491900- Người lập trình box Tin Học
- Level :
Post : 67
Points : 4753
Thanks : 1
Join date : 02/11/2011
Age : 25
Đến từ : Đoán thử xem........
nguyenminhnhut1491900- Người lập trình box Tin Học
- Level :
Post : 67
Points : 4753
Thanks : 1
Join date : 02/11/2011
Age : 25
Đến từ : Đoán thử xem........
nguyenminhnhut1491900- Người lập trình box Tin Học
- Level :
Post : 67
Points : 4753
Thanks : 1
Join date : 02/11/2011
Age : 25
Đến từ : Đoán thử xem........
Ôn tập kiểm tra 1 tiết môn Tin
Link download:
http://www.mediafire.com/?w5vnpgt8jve2oug
Pass :
Các bạn down về rùi chạy thử từng chương trình, nếu có lỗi thì báo.............tôi sẽ sửa lỗi..........
http://www.mediafire.com/?w5vnpgt8jve2oug
Pass :
Các bạn down về rùi chạy thử từng chương trình, nếu có lỗi thì báo.............tôi sẽ sửa lỗi..........
Được sửa bởi nguyenminhnhut1491900 ngày Tue Mar 13, 2012 8:42 pm; sửa lần 1.
nguyenminhnhut1491900- Người lập trình box Tin Học
- Level :
Post : 67
Points : 4753
Thanks : 1
Join date : 02/11/2011
Age : 25
Đến từ : Đoán thử xem........
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|