IndexIndex  PortalliPortalli  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  

Share | 
 

 Trắc nghiệm tin học thứ dữ nè!!!

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
nobita2007
Phó thường dân
Phó thường dân


Tổng số bài gửi : 29
Age : 34
Location : Tôi đến từ 1 hành tinh khác...
Registration date : 05/12/2007

Bài gửiTiêu đề: Trắc nghiệm tin học thứ dữ nè!!!   Wed Dec 12, 2007 3:00 pm

Câu 1:
A:=5; B:=8; C:=10; C:=a+c;
If B>A then C:=A else C:=B;
Kết quả C là?
a- 10 b/ 5 c/ 8 d/ 13
Câu 2: Cho biết kết quả đọan chương trình:
for i:= 1 to 10 do write(i:5);
a- Viết ra màn hình các số nuyên từ 1 đến 9
b- Viết ra màn hình số 1
c- Viết ra màn hình số 10
d- Viết ra màn hình nguyên các số từ 1 đến 10
Câu 3: khai báo biến kiểu xâu sai?
a- Var s: string[255];
b- Var s: string;
c- Var s: string[300];
d- Var s: string[10];

Câu 4: Khai báo Var a: array[1..10] of Integer;
Trong các câu lệnh, lệnh mà bị lỗi.
a/- a[1]:=5; b/- a[2]:= a[1]+1;
c/- a[11]:=1; d/- a[4]:= a[1] + a[2];

Câu 5:
X:=2007; d:=0;
While x<> 0 do
Begin
X:=X div 10
D:=d+1;
End;
Khi thực hiện, giá trị biến d là?
a/ 0 b/ 1 c/ 2 d/ 4

Câu 6:
S:=0;
For i:=5 to 6 do s:=s +i ;
Khi thực hiện giá trị s là
a/ 0 b/ 5 c/ 11 d/ 6

Câu 7: x:= 2007; d:=0;
If x>= 0 then d:=d+1 else d:=d – 1;

Khi thực hiện giá trị biến d?
a/ Tăng 1 đơn vị. b/ Giảm 1 đơn vị.
c/ d không đổi d/ Câu lệnh sai

Câu 8: Cho đoạn chương trình sau:
t:=0;
For i:=1 to 10 do
If (i mod 2)=0 then t:=t+i Else t:=t-i;
Hỏi kết quả của t bằng bao nhiêu ?
a/ 5 b/ 6 c/ 4 d/ -5

Câu 9 : Câu lệnh While – do thực hiện lệnh lặp ít nhất bao nhiêu lần ?
a/ 0 b/ 1 c/ 2 d/ 3

Câu 10: Khai báo biến x là biến bản ghi đúng
a- Type bg= record
Sbd: byte;
T,v,l,h: real;
End;
Var x: array[1..100] of BG;
b- Type bg= record
Sbd: byte;
T,v,l,h: real;
Var x: array[1..100] of BG;
c- bg= record
Sbd: byte;
T,v,l,h: real;
End;
Var x: array[1..100] of BG;

B- Phần Tự luận:
Câu 11 :Viết chương trình nập vào dãy số nguyên (<100) in ra giá trị lớn nhất trong dãy, vị trí phân tử có gía trị lớn nhất sau cùng .

Yêu cầu:
- Khai báo đúng biến mảng (dãy) (1đ).
- Nhập giá trị của dãy (1đ);
- Tìm và in max ra màn hình (2đ);
- Xác định đúng vị trí (1đ).
drunken drunken drunken affraid affraid affraid
Mần ơn gởi đáp án - biết câu nào trả lời câu đó!
Về Đầu Trang Go down
Xem lý lịch thành viên
ITer
Phó thường dân
Phó thường dân


Tổng số bài gửi : 18
Age : 24
Location : Vị Thanh, Hậu Giang
Registration date : 06/12/2007

Bài gửiTiêu đề: Re: Trắc nghiệm tin học thứ dữ nè!!!   Wed Dec 12, 2007 5:40 pm

1.b
2.d
3.c
4.c
5.a
6.c
7.a
8.a
9.a
10.a
11.
Program Bai_11;
Uses crt;
Var n,i,vitri : byte;
max, a : integer;
Begin
clrscr;
Write('Day co bao nhiu so ? : ');readln(n);
Write('Nhap so thu 1: ');readln(max);
For i:=2 to n do
Begin
Write('Nhap so thu ',i,' : ');readln(a);
If a>=max then
Begin
max:=a;
vitri:=i;
End;
End;
Write('So lon nhat : ',max);
Write('Vi tri cua phan tu lon nhat sau cung: ',vitri);
Readln;
End.
Về Đầu Trang Go down
Xem lý lịch thành viên
Khách v
Khách viếng thăm



Bài gửiTiêu đề: Re: Trắc nghiệm tin học thứ dữ nè!!!   Wed Dec 12, 2007 7:09 pm

ông nobita ăn cắp avatar của tui đóa hả Very Happy Very Happy Very Happy
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: Trắc nghiệm tin học thứ dữ nè!!!   Today at 3:40 pm

Về Đầu Trang Go down
 
Trắc nghiệm tin học thứ dữ nè!!!
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
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
 :: Tin học :: Tin học 11-
Chuyển đến