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

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 : 2643
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 : 2643
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 : 2537
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 : 2643
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 : 2643
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

Về Đầu Trang


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