FC Lê Hồng Phong
Mời bạn đăng nhập diễn đàn nếu không bạn có thể click vào register ở dưới để đăng kí

Ôn tập kiểm tra 1 tiết môn Tin

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

UP BÀI LÊN LUN

Bài gửi  nguyenminhnhut1491900 on Thu Mar 15, 2012 7:24 am

Ô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.








__________________________________________________
avatar
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
50 / 99950 / 999

Post : 67
Points : 2438
Thanks : 1
Join date : 02/11/2011
Age : 19
Đến từ : Đoán thử xem........

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Ôn tập kiểm tra 1 tiết môn Tin

Bài gửi  nguyenminhnhut1491900 on Tue Mar 13, 2012 8:47 pm

Phong hả

__________________________________________________
avatar
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
50 / 99950 / 999

Post : 67
Points : 2438
Thanks : 1
Join date : 02/11/2011
Age : 19
Đến từ : Đoán thử xem........

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Ôn tập kiểm tra 1 tiết môn Tin

Bài gửi  Kyutenshou on Tue Mar 13, 2012 8:45 pm

Tks bác ,em làm biếng soạn quá

__________________________________________________

Nintendo 3DS ! My Lover

Mình đẹp trai quá mức qui định mà,các bạn gái phải tự tin lên chứ
avatar
Kyutenshou
Admin
Admin

Level :
999 / 999999 / 999

Post : 45
Points : 2332
Thanks : 1
Join date : 31/10/2011
Age : 19
Đến từ : đó

Xem lý lịch thành viên http://fclhp.forumvi.com

Về Đầu Trang Go down

Re: Ôn tập kiểm tra 1 tiết môn Tin

Bài gửi  nguyenminhnhut1491900 on Tue Mar 13, 2012 8:40 pm

Pass download:NintendoVN.com

__________________________________________________
avatar
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
50 / 99950 / 999

Post : 67
Points : 2438
Thanks : 1
Join date : 02/11/2011
Age : 19
Đến từ : Đoán thử xem........

Xem lý lịch thành viên

Về Đầu Trang Go down

Ôn tập kiểm tra 1 tiết môn Tin

Bài gửi  nguyenminhnhut1491900 on Tue Mar 13, 2012 8:36 pm

Link download:
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.

__________________________________________________
avatar
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
50 / 99950 / 999

Post : 67
Points : 2438
Thanks : 1
Join date : 02/11/2011
Age : 19
Đến từ : Đoán thử xem........

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: Ôn tập kiểm tra 1 tiết môn Tin

Bài gửi  Sponsored content


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết