. CHO KHAI BAỰO SAU VAR A,B

40) - DE KIEM TRA TIN 11 40) - DE KIEM TRA TIN 11 40) - DE KIEM TRA TIN 11
Tin học DE KIEM TRA TIN 11
40). Cho khai baựo sau Var A,B :Array[1..20] of byte;trong chửụng trỡnh vieỏt d:=0; for i:=1 to 20 do If A[i]<>B[i] then d:=d+1; khaỳng ủũnh naứo sau laứ ủuựng:a). ẹoaùn chửụng trỡnh treõn laứ ủeỏm caực phaàn tửỷ khaực nhau trong maỷng A vaứ B.b). ẹoaùn chửụng trỡnh treõn laứ ủeỏm caực phaàn tửỷ cuỷa A khaực B.c). ẹoaùn chửụng trỡnh treõn laứ ủeỏm caực phaàn tửỷ tửụng ửựựng khaực nhau cuỷa maỷng A vaứ B.d). ẹoaùn chửụng trỡnh treõn laứ ủeỏm caực phaàn tửỷ cuỷaứ B khaực A.Khởi tạo từ chương trỡnh Trắc nghiệm trờn mỏy vi tớnh.éỏp ỏn đề số : 4 = = = = = = = = = =Caõu : 01. Thửùc hieọn ụỷ nhieàu vũ trớ trong chửụng trỡnh.Caõu : 02. Assign(f1,'heso.inp');Assign(f2,'nghiem.out');Caõu : 03. Khoõng theồ bieỏt ủửụùc ủoọ daứi thửùc sửù cuỷa bieỏn xaõu.Caõu : 04. Close(f);Caõu : 05. Read(f);Caõu : 06. 11Caõu : 07. ẹaàu vaứ thaõn chửụng trỡnh con coứn tham soỏ thửùc sửù ủửụùc xuaỏt hieọn ụỷ lụứi goùi CTC.Caõu : 08. Vecn(5,4);Caõu : 09. 2 loaùi haứm vaứ thuỷ tuùcCaõu : 10. S1[2]=S2[3]Caõu : 11. Assign(f,<teõn teọp>);Reset(f);Rewrite(f);close(f);Caõu : 12. 2 loaùi.Caõu : 13. Mụỷ teọp f1 ủeồ ủoùc, mụỷ teọp f2 ủeồ ghi.Caõu : 14. Writeln(S);Caõu : 15. Type hs = record sbd, lop: string[5]; ht: string[26]; diem : real; end;Caõu : 16. D:=0; For i:=1 to length(S) do (if S[i]>='0') and (S[i]<='9') then d:=d+1;Caõu : 17. Khai baựo bieỏn teọp, mụỷ teọp ủeồ ủoùc, ủoùc tửứ teọp, ủoựng teọp.Caõu : 18. Caực thaứnh phaàn cuỷa moói kieồu dửừ lieọu coự caỏu truực ủeàu coự cuứng moọt kieồu dửừ lieọu.Caõu : 19. Var X: array[1..5,1..3] of real;Caõu : 20. 50 byte.Caõu : 21. 'hoaphuong do'Caõu : 22. Gaựn giaự trũ giửừa hai bieỏn teọpCaõu : 23. 6 13 12Caõu : 24. Duứng ủeồ moõ taỷ daừy caực phaàn tửỷ cuứng kieồu.Caõu : 25. Caực leọnh treõn : Tớnh vaứ ủửa ra khoaỷng caựch moói ủieồm trong teọp f ủeỏn goỏc toùa ủoọ.Caõu : 26. Var f1,f2: text;Caõu : 27. Sau voứng laởp, giaự trũ cuỷa OK laứ falseCaõu : 28. For i:=1 to length(S) do S[i]:=upcase(S[i]);Caõu : 29. Caàn khai baựo soỏ lửụùng thaứnh phaàn trong teọp.Caõu : 30. <Teõn bieỏn baỷn ghi>. <Teõn trửụứng>Caõu : 31. Delete(s,vt,n); insert(s1,s,vt);Caõu : 32. ẹieồm thi cuỷa moọt lụựpCaõu : 33. Reset(f); readln(f,a,b);Caõu : 34. Procedure vehinhvuong(n,m: byte);Caõu : 35. P:=' '; For i:= length(S) downto 1 do p:=p+S[i];Caõu : 36. Gaựn teõn teọp -> mụỷ teọp ủeồ ủoùc ->ủoùc teọp -> ủoựng teọp.Caõu : 37. Nhaọp ủoọ daứi ba caùnh tam giaực.Caõu : 38. Cho giaự trũ True neỏu con troỷ ụỷ cuoỏi teọp.Caõu : 39. Delete(s,1,12);Caõu : 40. ẹoaùn chửụng trỡnh treõn laứ ủeỏm caực phaàn tửỷ tửụng ửựựng khaực nhau cuỷa maỷng A vaứ B.