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í

Join the forum, it's quick and easy

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í
FC Lê Hồng Phong
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

2 posters

Go down

Ôn tập kiểm tra 1 tiết môn Tin Empty UP BÀI LÊN LUN

Bài gửi  nguyenminhnhut1491900 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.







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

Level :
Ôn tập kiểm tra 1 tiết môn Tin Left_bar_bleue50 / 99950 / 999Ôn tập kiểm tra 1 tiết môn Tin Right_bar_bleue

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

Về Đầu Trang Go down

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

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

Phong hả
nguyenminhnhut1491900
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
Ôn tập kiểm tra 1 tiết môn Tin Left_bar_bleue50 / 99950 / 999Ôn tập kiểm tra 1 tiết môn Tin Right_bar_bleue

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

Về Đầu Trang Go down

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

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

Tks bác Ôn tập kiểm tra 1 tiết môn Tin 364988687 ,em làm biếng soạn quá Ôn tập kiểm tra 1 tiết môn Tin 364988687
Kyutenshou
Kyutenshou
Admin
Admin

Level :
Ôn tập kiểm tra 1 tiết môn Tin Left_bar_bleue999 / 999999 / 999Ôn tập kiểm tra 1 tiết môn Tin Right_bar_bleue

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

https://fclhp.forumvi.com

Về Đầu Trang Go down

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

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

Pass download:NintendoVN.com
nguyenminhnhut1491900
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
Ôn tập kiểm tra 1 tiết môn Tin Left_bar_bleue50 / 99950 / 999Ôn tập kiểm tra 1 tiết môn Tin Right_bar_bleue

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

Về Đầu Trang Go down

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

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

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




Được sửa bởi nguyenminhnhut1491900 ngày Tue Mar 13, 2012 8:42 pm; sửa lần 1.
nguyenminhnhut1491900
nguyenminhnhut1491900
Người lập trình box Tin Học
Người lập trình box Tin Học

Level :
Ôn tập kiểm tra 1 tiết môn Tin Left_bar_bleue50 / 99950 / 999Ôn tập kiểm tra 1 tiết môn Tin Right_bar_bleue

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

Về Đầu Trang Go down

Ôn tập kiểm tra 1 tiết môn Tin Empty 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

- Similar topics

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