Bài kiểm tra 15 phút môn: Tin Học

§Ò sè 1
Bµi kiÓm tra 15 phót
M«n: Tin häc
Häc vµ tªn HS ................................................. Lớp 11A...
§iÓm
Lêi nhËn xÐt cña gi¸o viªn
C©u 1: .
.
H·y:
a. Nªu c¸c biÕn côc bé, toµn côc?
b. Nªu c¸c tham sè thùc sù vµ tham sè h×nh thøc?
c. Nªu kÕt qu¶ cña ch­¬ng tr×nh?
....
C©u 2: Cho ch­¬ng tr×nh sau
Program Bai_tap_1;
Var a,b,S: Byte;
 Procedure TD(Var x:byte; y:byte);
 Var i:byte;
 Begin
 i:=5;
 Writeln(x,' ', y);
 x:=x+i;
 y:=y+i;
 S:=x+y;
 Writeln(x,' ',y);
 End;
Begin
Write ('Nhap a va b:'); Readln(a,b);
TD(a,b);
Writeln(a,' ',b,' ',S);
Readln;
End.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
§Ò sè 2
Bµi kiÓm tra 15 phót
M«n: Tin häc
Häc vµ tªn HS ................................................. Lớp 11A...
§iÓm
Lêi nhËn xÐt cña gi¸o viªn
C©u 1: .
.
H·y:
a. Nªu c¸c biÕn côc bé, toµn côc?
b. Nªu c¸c tham sè thùc sù vµ tham sè h×nh thøc?
c. Nªu kÕt qu¶ cña ch­¬ng tr×nh?
....
C©u 2: Cho ch­¬ng tr×nh sau
Program Bai_tap_2;
Var a,b:integer;
 Procedure D(Var x:integer; y:integer);
 Begin
 Writeln(x,' ',y);
 x:=x*x;
 y:=y*10;
 Writeln(x,' ',y);
 End;
Begin
 writeln('Nhap a va b:'); Readln(a,b);
 D(a,b);
 Readln;
End.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.