Đang tải... (xem toàn văn)
Trải qua những tháng ngày trau dồi kiến thức bộ môn “ĐO LƯỜNG VÀ ĐÁNH GIÁ KẾT QUẢ”, nhóm sinh viên chúng em đã lĩnh hội được ít nhiều những kiến thức mà thầy đã tận tụy truyền đạt bấy lâu nay. Ngày hôm nay, chúng em xin gửi thầy đề tài này, đó là thành quả học tập của chúng em sau những tháng ngày tìm hiểu về bộ môn này. Sau khi suy nghĩ kĩ càng, chúng em đã quyết định trích một phần lí thuyết trong sách giáo khoa lớp 11 để làm đề tài. Bằng tất cả sự cố gắng, long quyết tâm và tinh thần đoàn kết, nhóm chúng em
TRƯỜNG ĐẠI HỌC SƯ PHẠM TP.HỒ CHÍ MINH KHOA TOÁN-TIN LỚP ĐHSP TIN ĐỒNG NAI Danh sách nhóm thực hiện: Nguyễn Lê Cẩm Ngọc Lê Thụy Hoài Phương Phạm Thị Thủy Nguyễn Thị Hồng Linh Nguyễn Vĩnh Hảo PHÂN TÍCH NỘI DUNG VÀ SOẠN CÂU TRẮC NGHIỆM VỀ (sách GK Tin lớp 11, tác giả: Hồ Sĩ Đàm,Nguyễn Đức Nghĩa, Ngô Ánh Tuyết, , NXB: Bộ Giáo Dục Đào Tạo, Năm 2008 Thuộc chương 4, từ trang 52 đến trang 74) Bài thực hành học phần Trắc Nghiệm khách quan Giảng Viên :Ths Lý Minh Tiên Tp.Hồ Chí Minh, Tháng 12- 2008 Lời nói đầu Kính thưa thầy! Trải qua tháng ngày trau dồi kiến thức môn “ĐO LƯỜNG VÀ ĐÁNH GIÁ KẾT QUẢ”, nhóm sinh viên chúng em lĩnh hội nhiều kiến thức mà thầy tận tụy truyền đạt lâu Ngày hôm nay, chúng em xin gửi thầy đề tài này, thành học tập chúng em sau tháng ngày tìm hiểu môn Sau suy nghĩ kĩ càng, chúng em định trích phần lí thuyết sách giáo khoa lớp 11 để làm đề tài Bằng tất cố gắng, long tâm tinh thần đoàn kết, nhóm chúng em hoàn thành đề tài này.tuy nhiên kinh nghiệm, thời gian kiến thức có hạn, chắn chúng em mắc nhiều sai sót Vì chúng em mong giúp đỡ thầy, ý kiến đóng góp để đề tài chúng em hoàn thành cách xuất sắc điếu giúp chúng em hoàn thành tốt công việc giảng dạy sau này, giúp chúng em đánh giá kết học sinh cách đắn xác Cuối chúng em xin chân thành cảm ơn quan tâm thầy đến chúng em sinh viên ĐỒNG NAI Kính chúc thầy nhiều sức khỏe, thành đạt công việc giảng dạy Nhóm sinh viên thực hiện: CHƯƠNG KIỂU DỮ LIỆU CÓ CẤU TRÚC Bài 11 Kiểu mảng………………………………………………… 1.Kiểu mảng chiều ………………………………………… a.khai báo b.một số ví dụ Kiểu mảng hai chiều………………………………………… a.khai báo b.một số ví dụ Bài tập thực hành Bài tập thực hành Bài 12 Kiểu xâu Khai báo 2.Các thao tác xử lí xâu 3.Một số ví dụ Bài tập thực hành 5…………………………………… Bài 13 Kiểu ghi 1.Khai báo 2.Gán giá trị KIỂU DỮ LIỆU CÓ CẤU TRÚC 0 Kiểu mảng: I M ảng m ột chi ều: Định nghĩa mảng chiều viết lệnh khai báo biến Cách 1: khai báo trực tiếp biến mảng chiều: Var:array[kiểu số]of; Cách 2:khai báo gián tiếp biến mảng chiều: Type=array[kiểu số] of; Var:; C ách tham chiếu đến phần tử Sử dụng mảng chiều để giải số toán tính toán, tìm kiếm đơn giản máy tính II M ảng hai chi ều: Định nghĩa mảng chiều viết lệnh khai báo biến Cách 1: khai báo trực tiếp biến mảng hai chiều: Var:array[kiểu số hang, kiểu số cột]of; Cách 2: khai báo gián tiếp biến mảng hai chiều: Type=array[kiểu số hang, kiểu số cột]of; Var:; 1 C ách tham chiếu đến phần tử Phân biệt tính chất cách sử dụng mảng 2chiều mảng 1chiều sử dụng mảng chiều để giải toán xếp KIỂU XÂU: định nghĩa xâu viết lệnh khai báo biến kiểu xâu Var:string[độ dài lớn xâu]; Lựa chọn sử dụng phép toán , hàm , thủ tục để xử lí xâu cho phù hợp với yêu cầu C ách tham chiếu tới phần tử xâu Sử dụng hàm, thủ tục xử lí xâu để viết chương trình thay thế, tìm kiếm,và biến đổi xâu KIỂU BẢN GHI: Định nghĩa nêu ứng dụng kiểu ghi Viết lệnh Khai báo tên kiểu ghi Type=record Viết lệnh khai báo tên kiểu trường :; …………………………… :; End; Viết lệnh khai báo biến Var:; C ách tham chiếu đến trường Sử dụng kiểu ghi để viết chương trình quản lí (học sinh, nhân viên,…) [A11] Định nghĩa mảng chiều.{biết} [A1].Mảng chiều [A12].viết lệnh khai báo biến {biết} [A121] viết khai báo trực tiếp{biết} [A122] viết khai báo gián tiếp{biết} [A13].viết lệnh tham chiếu đến phần tử{biết} [A].KIỂU MẢNG [A14] Sử dụng mảng chiều để giải số toán tính toán, tìm kiếm đơn giản máy tính {hiểu,vận dụng} [A2] Mảng chiều [A21] Định nghĩa mảng chiều.{biết} [A22].viết lệnh khai báo biến {biết} [A221] viết khai báo trực tiếp{biết} [A222] viết khai báo gián tiếp{biết} [A23].viết lệnh tham chiếu đến phần tử{biết} [A24] Phân biệt tính chất cách sử dụng mảng 2chiều mảng 1chiều.{hiểu} [A25].sử dụng mảng chiều để giải toán xếp.{ hiểu,vận dụng} [B1].định nghĩa xâu {biết} [B2].viết lệnh khai báo biến kiểu xâu {biết} [B].KIỂU XÂU [B3] Lựa chọn sử dụng phép toán , hàm , thủ tục để xử lí xâu cho phù hợp với yêu cầu.{hiểu} [B4] Viết lệnh tham chiếu tới phần tử xâu {biết} [B5] Sử dụng hàm, thủ tục xử lí xâu để viết chương trình thay thế, tìm kiếm,và biến đổi xâu.{hiểu,vận dụng} [C1] Định nghĩa nêu ứng dụng kiểu ghi.{biết} [C2] Viết lệnh Khai báo tên kiểu ghi.{biết} [C3] Viết lệnh khai báo tên kiểu trường.{biết} [C].KIỂU BẢN GHI [C4] Viết lệnh khai báo biến.{biết} [C5] Viết lệnh tham chiếu đến trường{biết} [C6] Sử dụng khai báo kiểu ghi để viết câu lệnh nhập xuất danh sách học sinh, sinh viên, nhân viên,….{ vận dụng} DÀN BÀI TRẮC NGHIỆM: KIỂU DỮ LIỆU CÓ CẤU TRÚC A.KI ỂU M ẢNG B.KI ỂU XÂU C.KI ỂU B ẢN GHI M ẢNG CHI ỂU M ẢNG CHI ỀU A11 A12 A13 A14 A21 A22 A23 A24 A25 B1 B2 B3 B4 B5 C1 C2 C3 C4 C5 C6 BI ẾT HI ỂU V ẬN DỤNG TỔNG 1 25 câu (62.5%) 10 câu(25%) sai (đáp án: sai) Câu 2,[A22], biết.( nhận biết cách khai báo biến mảng chiều) Câu Khai báo sau hợp lệ Var Arrayint: array[0 5*(n+1),0 n] of integer; Đúng (đáp án: đúng) sai 15(37.5%) Câu 1,[A12], biết.(hoặc nhận biết cách khai báo biến mảng chiều) Câu Khai báo sau hợp lệ type Arrayreal: array[-100 200] of real; Đúng T ỔNG 6(15%) 2 câu(12.5%) 19(47.5%) 40(100%) Câu 3,[C1], biết.(hoặc biết định nghĩa xâu) Xâu kiểu liệu cấu trúc Đúng sai (đáp án: sai) Câu 4,[A22] biết( nhận biết cách khai báo biến mảng chiều) cách khai báo mảng hai chiều sau hợp lệ Var B:array[1 9,1 10] of integer; Đúng sai (đáp án: đúng) Câu 5,[A22],biết(hoặc nhận biết cách khai báo biến gián tiếp mảng chiều) Khai báo mảng hai chiều sau khai báo gián tiếp Var B:array[1 9] of array[1 10] of integer; Đúng sai (đáp án: sai) Câu 6, [C4], biết(hoặc nhận biết cách khai báo biến kiểu ghi) Cách khai báo biến kiểu ghi sau hợp lệ: Var gioitinh:= string[10]; Đúng sai (đáp án: sai) Câu 7,[A11],biết( biết dạng mảng chiều) Các mảng kí tự mảng chiều có phần tử thuộc kiểu kí tự Đúng sai (đáp án: đúng) câu ,[C4], biết (hoặc biết cách khai báo biến kiểu ghi) cho khai báo ghi thiếu sau: type hoso= record ho:string[8]; tên:string[9]; tuoi:integer; end; var a: array[1 100] of ……; chỗ trống thiếu là: record Integer String Hoso (đáp án d) Câu 9,[B3], hiểu( cho kết thủ tục insert) Ta có xâu s1=’PC’ s2=’IBM486’ Sau dùng thủ tục insert(s1,s2,4) Kết là: a.’PCIBM’ b ‘PC IBM 486’ c.’IBM PC 486’ d câu sai (đáp án c) Câu 10,[A24], hiểu( phân biệt mảng chiều mảng chiều) Phát biểu sau đúng? a Mảng chiều mảng chiều có phần tử giống b Mảng chiều ma trận mảng chiều dãy c Cả a b d Cả câu sai (đáp án d) Câu 11,[B3],hiểu ( cho kết thủ tục pos) Ta có xâu s=’abcdef’ dùng thủ tục pos(‘k’,s) kết là: a b c d câu sai (đáp án c) Câu 12,[B3], biết(hoặc biết nhiệm vụ hàm ORD) Hàm ORD(c) làm nhiệm vụ gì? Viết hoa chữ C cho biết thứ tự c mã ASCII xuất chữ c câu sai (đáp án b) Câu 13, [A12], biết.(hoặc biết cách khai báo biến mảng chiều) Chọn khai báo : a.Var A: array[1 10] of integer; b Var A= array[1 10] of integer; c.Var A:= array[1 10] of integer; d.Var A: array[1,10] of integer; (đáp án a) Câu 14,[A12].biết (hoặc biết cách khai báo biến mảng chiều) Trong trường hợp khai báo biến PASCAL sau đây, trường hợp không hợp lệ a.VAR b.VAR c.VAR d.VAR x:array[1 10000] x:array[1 10000] x:array[1 10000] x:array[1 10000] of of of of 100; 1,3 100; 100; (a,b,c,d); (Trả lời b.) Câu 15,[A13], biết(hoặc biết cách truy xuất phần tử mảng chiều) Cho mảng chiều A, x phần tử A lệnh truy xuất phần tử x mảng A sau đúng? a A.x; b A->x; c A[x]; d A(x); (đáp án c) Câu 16,[A14], vận dụng( viết câu lệnh để nhập liệu cho mảng A) Cho khai báo sau: Var A: Array[1 4] of Real; i : Integer ; Ðể nhập liệu cho A, chọn câu : a For i:=1 to Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); b For i:=1 to Readln(‘ Nhập A[‘, i, ‘]:’); c.For i:=1 to Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End; d.Write(‘ Nhập A:’); Readln(A); (đáp án c) câu 17,[A13], biết (hoặc nhận biết cách truy xuất phần tử mảng chiều) Cho khai báo biến : Var A : array[1 5] of Integer; Chọn lệnh : a.A[1] := 4/2 ; b.A[2] := -6 ; c.A(3) := ; d.A := 10 ; (đáp án b) Câu 18,[A14] hiểu,(hoặc cho kết sau chạy chương trình) cho đoạn code sau: Var A: Array[1 4] of Integer ; i : Integer ; Sau thực lệnh : For i:=1 to A[i]:= i; For i:=1 to A[i]:= A[i]+1; mảng A có gía trị : A[1]=1, A[2]=2, A[3]=3, A[4]=4 A[1]=2, A[2]=3, A[3]=4, A[4]=5 A[1]=0, A[2]=1, A[3]=2, A[4]=3 A[1]=1, A[2]=1, A[3]=1, A[4]=1 (trả lời b) Câu 19,[A22], biết(hoặc cách khai báo biến mảng chiều) Khai báo sau : a.Var A: array[1 n,1 m] of integer; b Const n=2; m=3; Var A:array[1 n,1 m] of integer; c Var n,m: integer; A: array[1 n,1 m] of integer; d.Var A: array[3, 2] of Integer; (trả lời b) Câu 20[B3], hiểu (hoặc hiểu ý nghĩa phép so sánh xâu) Cho biến SS kiểu lô gic Lệnh làm SS có gía trị TRUE : SS := 'a'< 'A'; SS := 'A' = 'a'; SS := 'an' < 'a'; SS := 'PASCAL' < 'pascal'; (đáp án d) Câu 21,[A25], vận dụng(hoặc viết câu lệnh để nhập liệu cho ma trận A) Cho khai báo sau: Var A : array[1 2,1 3] of Real; i, j : integer; Ðể nhập liệu cho ma trận A, chọn : a Write(‘ Nhập A:’); Readln(A) ; b For i:=1 to Readln(A[i, j]); c For i:=1 to For j:=1 to begin write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); end; d For i:=1 to For j:=1 to write(‘Nhập A[‘, i, j, ‘]:’); readln(A[i, j]); (trả lời c) Câu 22,[A25] hiểu( tính kết sau chạy chương trình) Khi chạy chương trình : Var A : array[1 2,1 3] of integer; i, j, S : integer; Begin A[1,1]:= ; A[1,2]:= -1 ; A[1,3]:= -4 ; A[2,1]:= -9 ; A[2,2]:= ; A[2,3]:= ; S:=0; for i:=1 to for j:=1 to If A[i,j] < then S:=S+1; Write(S); End Kết qủa in gía trị S : a b -9 c d (đáp án c) Câu 23,[A25], vận dụng(hoặc viết câu lệnh để tìm số lớn mảng chiều) Var A : array[1 2,1 3] of Real; i, j : integer; Max : Real; Ðể tìm số lớn ma trận A, chọn câu : a Max:=A[1,1]; If Max < A[i,j] then Max:=A[i,j]; b Max:=A[1,1]; For i:=1 to if Max < A[i,j] then Max:=A[i,j]; c A[1,1]:=Max ; For i:=1 to For j:=1 to if Max< A[i,j] then A[i,j]:=Max; d Max:=A[1,1]; For i:=1 to For j:=1 to if Max < A[i,j] then Max:=A[i,j]; (đáp án d) Câu 24,[B3], hiểu( câu sai phép so sánh xâu) Cho khai báo sau : Var Ho, ten : String[15]; Lệnh sai : Write('Ho ten la : ' ; Ho ; Ten); Write('Ho ten la : ' + Ho + Ten); Write('Ho ten la : ', Ho , Ten); Write('Ho ten la : ', Ho + Ten); (đáp án a) Câu 25,[B3], hiểu( câu hàm str sử dụng xâu) Cho khai báo sau: Var Chuoi : string[10]; x : real; Lệnh : Chuoi := Str(x:5:2) ; Str(x:5:2, Chuoi); Chuoi := x ; x := Chuoi ; (đáp án b) Câu 26[B3] , hiểu( hoặ c cho kết hàm copy ) Cho St biến chuỗi, St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ; Write(St); Sau thực hai lệnh , Kết qủa in lên hình là: a VERSION 5.5 b VERSION c PASCAL d 5.5 (đáp án b) Câu 27)[C6] (vận dụng) Nếu A,B hai biến ghi kiểu ta gán giá trị B cho A câu lệnh A=B; B=A; A:=B; B:=A; (đáp án c) Câu 28)[C6] (vận dụng) Cho đọan chương trình: Type Hocsinh=record Hoten:string[30]; Ngaysinh:string[10]; Gioitinh:boolean; Tin,toan,van:real; End; khai báo hai biến kiểu hocsinh là: a.A,B:=hocsinh; b.A,B:hocsinh; c.A,B=hocsinh; d.cả câu sai (Đáp án b) Câu 29[A2](vận dụng khai báo mảng hai chiều) Biến mảng hai chiều B lưu trữ nhân khai báo pascal sau: a.var B:array[1…9] of array [1 10 ] of integer; b.var B:array[1…9,1…10] of integer; c.var B:array[1…9][1…10] of integer; d.a,b (Đáp án d) Câu 30,31[A2](vận dụng viết chương trình mảng chiều) Cho đọan chương trình: 1.program manghaichieu; 2.uses crt; 3.var b:array[1 5,1 7] of integer; d,i,j,k:integer; 5.begin clrscr; 7.writeln(‘nhap cac phan tu cua mang theo dong :’); 8.for i:=1 to 9.begin 10.for j:=1 to read (b[i,j]); 11.writeln; 12.end; 13.write(‘nhap vao gia tri k=’);readln(k); 14.d:=0; 15.writeln(‘ds cac phan tu mang nho hon’,k,’:’); 16.for i:=1to 17.for j:=1 to 18.if b[i,j] tb then dem:= dem+1; if t2>tb then dem:= dem+1; if t3>tb then dem:= dem+1; if t4>tb then dem:= dem+1; if t5>tb then dem:= dem+1; if t6>tb then dem:= dem+1; if t7>tb then dem:= dem+1; writeln(‘nhiet trung binh tuan: ’,tb:4:2); writeln(‘so nhiet cao hon trung binh: ’,dem); readln end **Khai b áo: T qu át, khai b áo bi ến m ảng m ột chi ều c ó d ạng : - Cách 1: khai báo trực tiếp biến mảng chiều: Var:array[kiểu số]of; - Cách 2:khai báo gián tiếp biến mảng chiều: Type=array[kiểu số] of; Var:; Trong đ ó: Ki ểu ch ỉ s ố th ờng l m ột đo ạn s ố nguy ên li ên t ục c ó d ạng n1 n2 v ới n1,n2 l c ác h àng ho ặc bi ểu th ức nguy ên x ác đ ịnh ch ỉ s ố đ ầu v ch ỉ s ố cu ối (n1[...]... readln end Câu trắc nghiệm kiểu gép đôi [C6] (vận dụng) Hãy nối các biến bên trái với các kiểu dữ liệu tương ứng bên phải trong bản ghi sinh viên viết bằng ngôn ngữ pascal sau 0 1 2 3 Hoten ngaysinh gioitinh diemtrungbinh a.real b.string[30] c.float d.date e.boolean f.string[5] (đáp án: 1-b, 2-d, 3-e, 4-a) SÁCH GIÁO KHOA TIN HỌC 11 CHƯƠNG IV: KIỂU DỮ LIỆU CÓ CẤU TRÚC BÀI 11: KIỂU MẢNG 1 Kiểu mảng một... biến mảng hai chiều trong Pascal: Cách 1: khai báo trực tiếp biến mảng hai chiều: Var:array [kiểu chỉ số hang, kiểu chỉ số cột]of ; Cách 2: khai báo gián tiếp biến mảng hai chiều: Type=array [kiểu chỉ số hang, kiểu chỉ số cột]of ; Var :; V í d ụ: Type Arrayreal= array [-100 200,100 200 ] of real; arrayb oolean= array... 11: KIỂU MẢNG 1 Kiểu mảng một chiều: Mảng một chiều là dãy hữu hạn các phần tử cùng kiểu Mảng được đặt tên và mỗi phần tử của nó có một chỉ số Để mô tả mảng một chiều cần xác định kiểu của các phần tử và cách đánh số các phần tử của nó Ta có thể dung bảy biến thực để lưu trữ nhiệt độ của các ngày trong tuần Chương trình giải bài toán có thể được viết bằng Pascal như sau: Program nhietdo_tuan; Var t1,t2,t3,t4,t5,t6,t7,tb:... ngày thứ 20, trong chương trình trên, được viết là nhietdo[20] 2 Kiểu mảng hai chiều: 0 Định nghĩa: Mảng hai chiều là bảng các phần tử cùng kiểu Nhận xét: Mỗi hang của mảng hai chiều có cấu trúc như một mảng một chiều cùng kích thước Nếu coi mỗi hang của mảng hai chiều là một phần tử thì ta có thể nói mảng hai chiều là mảng một chiều mà mỗi phần tử là mảng một chiều Khai báo: Tổng quát, khai báo biến mảng... 24.end Câu 30:từ 1 đến 12: đọan chương trình đó dùng để làm gì? a.nhập vào 5*7 phần tử b.xuất vào 5*7 phần tử c.đưa ra màn hình các phần tử có giá trị nhỏ hơn k d.chức năng khác (đáp án a) Câu 31: từ 13 đến 24: đọan chương trình đó dùng để làm gì? a.nhập vào 5*7 phần tử b.xuất vào 5*7 phần tử c.đưa ra màn hình các phần tử có giá trị nhỏ hơn k d.chức năng khác (đáp án c) Câu 32[A14] ,vận dụng ( sử dụng... khai b áo bi ến m ảng m ột chi ều c ó d ạng : - Cách 1: khai báo trực tiếp biến mảng một chiều: Var:array [kiểu chỉ số]of ; - Cách 2:khai báo gián tiếp biến mảng một chiều: Type=array [kiểu chỉ số] of ; Var:; Trong đ ó: 0 Ki ểu ch ỉ s ố th ư ờng l à m ột đo ạn s ố nguy ên li ên t ục c ó d ạng n1 n2 v ới n1,n2 l à c ác... cho khai báo đúng của biến max để nó lưu giá trị lớn nhất) Trong khai báo sau còn bỏ trống một chỗ, vì chưa xác định được kiểu dữ liệu của biến Max : Var A: Array[‘a’ ’d’] of Real ; Ch : Char ; Max : ; Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo biến Max kiểu gì vào chỗ : a.Char b.Integer c.String d.Real (đáp án d) Câu 38,[A14], hiểu ( hoặc cho kết quả đúng của đoạn chương... ra kết quả đúng của hàm copy ) Cho St là biến chuỗi, St:= Copy( 'PASCAL VERSION 5.5' , 8, 7) ; Write(St); Sau khi thực hiện hai lệnh trên , Kết qủa in lên màn hình là: a VERSION 5.5 b VERSION c PASCAL d 5.5 (đáp án b) Câu 27)[C6] (vận dụng) Nếu A,B là hai biến bản ghi cùng kiểu thì ta có thể gán giá trị của B cho A bằng câu lệnh 0 A=B; 1 B=A; 2 A:=B; 3 B:=A; (đáp án c) Câu 28)[C6] (vận dụng) Cho đọan... các câu lệnh kiểm tra xem đây có phải là dãy tăng hay không? ……………………………………………………………… …………………………………………………………… ……………………………………………………………… …………………………………………………………… ……………………………………………………………… ……………………………………………………………… …………………………………………………………… Câu 34,[A14], vận dụng(tính tổng các số lẻ có trong dãy trong mảng 1 chiều) Với các câu lệnh ở 32 và 33, hãy viết lệnh tính tổng các số lẻ có trong dãy ………………………………………………………………... Hocsinh=record Hoten:string[30]; Ngaysinh:string[10]; Gioitinh:boolean; Tin,toan,van:real; End; khai báo hai biến kiểu hocsinh là: a.A,B:=hocsinh; b.A,B:hocsinh; c.A,B=hocsinh; d.cả 3 câu trên đều sai (Đáp án b) Câu 29[A2](vận dụng khai báo mảng hai chiều) Biến mảng hai chiều B lưu trữ bản nhân có thể được khai báo trong pascal như sau: a.var B:array[1…9] of array [1 10 ] of integer; b.var B:array[1…9,1…10]