De + dap an GVG Tin
Chia sẻ bởi Vũ Văn Hiệp |
Ngày 11/10/2018 |
25
Chia sẻ tài liệu: De + dap an GVG Tin thuộc Tư liệu tham khảo
Nội dung tài liệu:
ĐÁP ÁN MÔN TIN HỌC GV 07- 08
Câu hỏi
Đáp án
Biểu điểm
1
a. 105
0.5
b. 100011
0.5
2
a) C:>md thcs
C:>md thcskhoi6
C:>md thcskhoi6lop6
C:>md thcskhoi6lop6 o1
C:>md thcskhoi7
C:>md thcskhoi8
C:>md thcskhoi9
C:>md thcskhoi9lop9a
C:>md thcskhoi9lop9b
C:>md thcskhoi9lop9c
C:>md thcskhoi9lop9c o1
C:>md thcskhoi9lop9c o2
b) C:>cd thcskhoi9lop9c
c) C: hcskhoi9lop9c>cd hcskhoi6lop6
d) C: hcskhoi6lop6> copy con Sondong.tct
Chao mung ban den voi Son Dong
Ngay thang nam 2007
e) C: hcskhoi6lop6>ren Sondong.txt thiennhien.txt
f) C: hcskhoi6lop6> copy thiennhien.txt hcskhoi9lop9c o2
g) Lệnh này không xóa đươc thư mục trên do thư mục đó kông phải là thư mục rỗng.
0,5
0,5
0,25
0,25
0,25
025
0,5
0,5
3
VLOOKUP(RIGHT(C2;1);$C$14:$D$17;2;0)
1
ROUND((F2+G2+H2+E2)/3;0)
0.5
IF(I1>=7,95;"GIOI";IF(I1>=6,45;"KHA";IF(I1>=4,95;"TB";"YEU")))
1
4
Program he_pt_bac_nhat;
uses crt;
var a1,b1,c1,a2,b2,c2:real;
d,dx,dy:real;
0.5
Begin
clrscr;
writeln(‘nhap a1’); readln(a1);
writeln(‘nhap b1’); readln(b1);
writeln(‘nhap c1’); readln(c1);
writeln(‘nhap a2’); readln(a2);
writeln(‘nhap b2’); readln(b2);
writeln(‘nhap c2’); readln(c2);
d:= a1*b2 - a2*b1;
dx:=c1*b2 - c2*b1;
dy:=a1*c2 - a2*c1;
1
if (d = 0) and ((dx <> 0) or (dy <>)) then writeln(‘Windows ph vo nghiem’)
else if (d = 0) and (dx = 0) and (dy = 0) then writeln(‘Windows pt vo so nghiem’)
else
begin
writeln(‘Windows pt co duy nhat mot nghiem’);
writeln(‘x=’, dx/d:10:2,’y=’,dy/d:10:2);
end;
readln
End.
1
5
Do khai báo hai lần biến i,pi, trong Pascal không phân biệt chữ
hoa hay chữ thường.
Var i,j,Pi : integer;
A,B,C : INTEGER;
0,5
0,5
Câu hỏi
Đáp án
Biểu điểm
1
a. 105
0.5
b. 100011
0.5
2
a) C:>md thcs
C:>md thcskhoi6
C:>md thcskhoi6lop6
C:>md thcskhoi6lop6 o1
C:>md thcskhoi7
C:>md thcskhoi8
C:>md thcskhoi9
C:>md thcskhoi9lop9a
C:>md thcskhoi9lop9b
C:>md thcskhoi9lop9c
C:>md thcskhoi9lop9c o1
C:>md thcskhoi9lop9c o2
b) C:>cd thcskhoi9lop9c
c) C: hcskhoi9lop9c>cd hcskhoi6lop6
d) C: hcskhoi6lop6> copy con Sondong.tct
Chao mung ban den voi Son Dong
Ngay thang nam 2007
e) C: hcskhoi6lop6>ren Sondong.txt thiennhien.txt
f) C: hcskhoi6lop6> copy thiennhien.txt hcskhoi9lop9c o2
g) Lệnh này không xóa đươc thư mục trên do thư mục đó kông phải là thư mục rỗng.
0,5
0,5
0,25
0,25
0,25
025
0,5
0,5
3
VLOOKUP(RIGHT(C2;1);$C$14:$D$17;2;0)
1
ROUND((F2+G2+H2+E2)/3;0)
0.5
IF(I1>=7,95;"GIOI";IF(I1>=6,45;"KHA";IF(I1>=4,95;"TB";"YEU")))
1
4
Program he_pt_bac_nhat;
uses crt;
var a1,b1,c1,a2,b2,c2:real;
d,dx,dy:real;
0.5
Begin
clrscr;
writeln(‘nhap a1’); readln(a1);
writeln(‘nhap b1’); readln(b1);
writeln(‘nhap c1’); readln(c1);
writeln(‘nhap a2’); readln(a2);
writeln(‘nhap b2’); readln(b2);
writeln(‘nhap c2’); readln(c2);
d:= a1*b2 - a2*b1;
dx:=c1*b2 - c2*b1;
dy:=a1*c2 - a2*c1;
1
if (d = 0) and ((dx <> 0) or (dy <>)) then writeln(‘Windows ph vo nghiem’)
else if (d = 0) and (dx = 0) and (dy = 0) then writeln(‘Windows pt vo so nghiem’)
else
begin
writeln(‘Windows pt co duy nhat mot nghiem’);
writeln(‘x=’, dx/d:10:2,’y=’,dy/d:10:2);
end;
readln
End.
1
5
Do khai báo hai lần biến i,pi, trong Pascal không phân biệt chữ
hoa hay chữ thường.
Var i,j,Pi : integer;
A,B,C : INTEGER;
0,5
0,5
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Vũ Văn Hiệp
Dung lượng: 26,61KB|
Lượt tài: 0
Loại file: rar
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)