Đang tải... (xem toàn văn)
Vieát chöông trình chính coù caâu leänh goïi chöông trình con naøy, khai baùo theâm các biến và sửa lỗi nếu cần.. Làm bài ở mặt sau.[r]
(1)KIEÅM TRA 15 PHUÙT MOÂN TIN HOÏC 11 SỞ GD- ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH HỌ VAØ TÊN : LỚP: Câu :Đọc chương trình sau đây và cho biết kết trên màn hình Program cau_1; Var a,b : integer; Procedure P(var x : integer; y:integer); Begin Writeln(x,’ ‘,y); X:= x*x; Y:=y*10; Writeln(x,’ ‘,y); End; Begin A:=2; b:=10; P(a,b); Writeln(x,’ ‘,y); Readln; End Câu 2:Đọc chương trình sau đây và cho biết mục đích đoạn chương trình naøy Vieát chöông trình chính coù caâu leänh goïi chöông trình naøy, khai baùo theâm các biến và sửa lỗi cần (Làm bài mặt sau) Program cau_2; Type xau = string[25]; Mang = array [1 100] of xau; Var M:mang; Procedure Timthuxem(Var ten:mang); Begin Write(‘Nhap so phan tu cua mang :’); Readln(spt); While spt<0) or (spt>100) Begin Write(‘Nhap so ptu cua mang :’); Readln(spt); End; For i:=1 to spt Begin Write(‘nhap xau thu ’, i , ‘ : ‘ ); Readln(ten[i]); End; End; Lop11.com (2)