Pascal là một ngôn ngữ lập trình cho máy tính thuộc dạng mệnh lệnh, được Niklaus Wirth phát triển vào năm 1970 là ngôn ngữ đặc biệt thích hợp cho kiểu lập trình có cấu trúc. Pascal dựa trên ngôn ngữ lập trình ALGOL và được đặt tên theo nhà toán học và triết học Blaise Pascal. Wirth đồng thời cũng xây dựng Modula2 và Oberon, là những ngôn ngữ tương đồng với Pascal. Oberon cũng hỗ trợ kiểu lập trình hướng đối tượng. Ban đầu, Pascal là một ngôn ngữ được hướng để dùng trong giảng dạy về lập trình có cấu trúc, và nhiều thế hệ sinh viên đã vào nghề thông qua việc học Pascal như ngôn ngữ vỡ lòng trong các chương trình học đại cương. Nhiều biến thể của Pascal ngày nay vẫn còn được sử dụng khá phổ biến, cả trong giảng dạy lẫn trong công nghiệp phát triển phần mềm.
K THI HC SINH GII THCS NM HC 2003 2004 MễN: TIN HC HC SINH GII MễN TIN HC THCS NM HC 2003-2004 K THI NGY 20/2/2004 BI : BI TON DIN TCH TAM GIC Cho mt hỡnh ch nht ABCD, cnh AB=a, cnh BC=b a,b l cỏc s nguyờn dng khong [1, 100] Mt im M chy on BC vi BM=x x l s nguyờn dung khong [0, b], mt im N chy on CD vi CN=x Tớnh giỏ tr ln nht v giỏ tr nh nht ca din tớch tam giỏc AMN M, N lu ng D liu vo: c cho tin CHUNHAT.inp, gm mt dũng ghi hai s nguyờn dng ln lt l a, b Hai s cỏch mt khong trng D liu : Yờu cu xut tin CHUNHAT.out, gm bn dũng: + Dũng u l giỏ tr ln nht ca din tớch tam giỏc AMN (mt ch s thp phõn) + Dũng th hai l mt giỏ tr ca x din tớch tam giỏc AMN t giỏ tr ln nht + Dũng th ba l giỏ tr nh nht ca din tớch tam giỏc AMN (mt ch s thp phõn) + Dũng th t l mt giỏ tr ca x din tớch tam giỏc AMN t giỏ tr nh nht Vớ d: CHUNHAT.inp 10 CHUNHAT.out 30.0 17.5 Yờu cu k thut : + Cú kim tra d liu nhp + Bi lm ca thớ sinh lu trờn tin Bailam1.pas BI 2: BI TON ễ VUễNG Cho mt bng ch nht gm m x n im ( m hng ngang, n hng ng) nm trờn cỏc mt li ụ vuụng Cỏc im lin k trờn cựng mt hng hoc mt ct cú th cú ni vi bi mt on thng cú kớch thc bng Trờn mi hng cú nhiu nht n-1 on thng nm ngang ni cỏc im lin nhau, trờn mi ct cú nhiu nht l m-1 on thng thng ng ni cỏc im lin Cỏc on lin k cú th s to cỏc ụ vuụng trờn bng (ch quan tõm cỏc ụ vuụng cú di cnh bng 1) Xem hỡnh di: Vi bng trờn ta cú hng ngang (mi hng im) v hng ng (mi hng im) Cỏc on thng ni chỳng to nờn ụ vuụng mụ t bng ngi ta dựng hai mng nh phõn: mt mng din t cỏc on thng nm ngang, mt mng din t cỏc on thng thng ng Trong cỏc mng, s din t cú on thng ni hai im liờn tip, s din t khụng cú on thng ni hai im Trong hỡnh v trờn, (bng cú 4x5 im) thỡ ta cú hai mng sau: Ngang 1 Nhim v : Dc 1 Lp trỡnh m s cỏc ụ vuụng cú cnh d di bng to bi cỏc on ni cú trờn bng ó cho D liu vo: gm ba tin Kthuoc.inp: gm s nguyờn dng (nh hn 100) ln lt l m, n Hai s cỏch mt khong trng Ngang.inp v Doc.inp ( nh mụ t phn trờn) Hai s lin cỏch mt khong trng D liu : Xut mn hỡnh s ụ vuụng cú trờn bng ó cho Vớ d : Kthuoc.inp: 45 Ngang.inp v Doc.inp cha ni dung nh hai bng trờn Xut mn hỡnh : Lu ý: Ch tớnh cỏc ụ vuụng cú di cnh bng Yờu cu k thut : + Khụng cn kim tra d liu nhp + Bi lm ca thớ sinh lu trờn tin Bailam2.pas HT MT S B TEST THAM KHO Bi CHUNHAT.INP CHUNHAT.OUT Test 10 20 Sai d liu Test 40 40 800.0 (hay 40) 600.0 20 Test 10 30.0 17.5 Test 20 10 100.0 50.0 10 Test 20 60.0 18.0 Bi DOC.INP KTHUOC.IN P NGANG.INP XUAT Test 1111111 111111 1100011 110011 1100111 110011 1111111 110011 13 111111 Test 11100 1010 11000 1000 01100 1111 0100 Test 001000 6 00000 001000 00000 001000 11111 001000 00000 001000 00000 00000 Test 10110 5 1101 10101 0011 01101 1111 11011 1010 1111 UBND HUYN QU SN K THI HC SINH GII LP CP HUYN PHềNG GD&T NM HC 2012-2013 Mụn: Tin hc Thi gian lm bi: 150 phỳt (Khụng k thi gian giao ) CHNH THC - VềNG I Bi (4.0 im): Vit chng trỡnh cho phộp nhp ta ba im A, B, C trờn mt phng ta Ri thc hin: a Tớnh di on thng AB b Tớnh din tớch tam giỏc ABC c Tớnh di ng cao AH d ng thng i qua A song song vi BC ct ng thng i qua C song song vi AB ti D Hóy xỏc nh ta im D Vớ d: Bi (4.0 im) Vit chng trỡnh cho phộp nhp s nguyờn dng N a In dóy A(n) cỏc s nguyờn t nh hn hoc bng N b In dóy B(n) cỏc s Fibonacy nh hn hoc bng N Dóy fibonacy l dóy c nh ngha: F1 = 1; F2 = 1; Fn = Fn-1 + Fn-2 Vớ d: 1 13 21 34 55 89 144 233 377 c In cỏc s va thuc dóy A(n) va thuc dóy B(n) d S siờu nguyờn t l s nguyờn t cú tớnh cht: Khi ln lc xúa cỏc ch s bờn phi ca nú ta cng c cỏc s nguyờn t Vớ d: 23; 239; l cỏc s siờu nguyờn t Hóy tỡm cỏc s siờu nguyờn t nh hn hoc bng N cú dóy fibonacy Vớ d: Bi 3: (2.0 im) a c a.d + b.c + = b d b.d Cú th s dng cụng thc tớnh tng hai phõn s Vit chng trỡnh cho phộp nhp s nguyờn dng N > Ri thc hin: S= Tớnh tng N -1 + + N a hn s (Hn s Vớ d: b c v ghi kt qu dng phõn s ti gin v dng c in dng: a(b/c) ) UBND HUYN QU SN K THI HC SINH GII LP CP HUYN PHềNG GD&T NM HC 2012-2013 Mụn: Tin hc Thi gian lm bi: 150 phỳt (Khụng k thi gian giao ) CHNH THC - VềNG II Bi (2.0 im): Vit chng trỡnh cho phộp nhp s n nguyờn dng v s thc x t bn phớm (Vi n 100; x 10 ) ri tớnh cỏc tng sau: a S1 = 1/1! + 1/2! + + 1/n! b S2 = x/1! + x2 /2! x3 /3! + + (-1)nxn/n! Bit rng n! = (n-1).n Vớ d: Bi 2: (4.0 im) Ngy sinh ca mi hc sinh c ghi bng mt s cú ch s Trong ú hai s u ghi ngy, hai s tip theo ghi thỏng v bn s cui ghi nm Vit chng trỡnh cho phộp nhp ngy sinh ca N hc sinh Ri thc hin: a Trong N hc sinh va nhp cú bn no sinh nht vo ngy 22 thỏng 01 khụng? b Lp ch t chc sinh nht chung cú hai ngi tr lờn cú cựng ngy sinh nht Cho bit nhng ngy lp t chc sinh nht? c Cho bit ngi tr nht cú ngy sinh l bao nhiờu? d Cho bit ngi (c nhp) th k ln th my lp? Vớ d: Bi 3: (4.0 im) Vit chng trỡnh nhp vo mt dóy A(N) cỏc s thc gm N phn t: A1, A2, A3 AN Ri thc hin: a Xột xem A(N) cú l dóy tng dn khụng? Bit rng dóy tng dn l dóy cú phn t ng sau ln hn phn t ng trc b Tỡm cp s Ai, Aj dóy A(N) cho tớch Ai*Aj cú giỏ tr ln nht Trong trng hp tớch ln nht bng cn ch tt c cỏc trng hp c Tỡm cỏc s Ai cú dóy A(N) cho Ai bng tng s khỏc dóy A(N) d Tỡm phn t xut hin nhiu ln nht dóy (Nu cú nhiu phn t cú s ln xut hin nhiu nht bng thỡ in phn t u tiờn tỡm thy) Vớ d: UBND HUYN NễNG SN PHềNG GIO DC & O TO K THI HC SINH GII LP CP HUYN NM HC 2013 - 2014 Mụn: Tin hc Thi gian lm bi: 150 phỳt (Khụng k thi gian giao ) CHNH THC Bi (3,0 im ): Vớ d: Vit chng trỡnh cho phộp nhp dóy s thc cú ớt nht hai phn t t bn phớm ri thc hin: a) Cho bit dóy s va nhp cú bao nhiờu s dng b) Cho bit trung bỡnh cng ca cỏc s dóy va nhp c) Dóy s l cp s cng s sau bng s lin trc cng vi mt hng s Vớ d: Dóy cỏc s 1; 4; 7; 10; l cp s cng vỡ s sau bng s lin trc cng vi Hóy cho bit dóy s va nhp cú phi l cp s cng khụng? Bi (3,0 im): Vit chng trỡnh cho phộp nhp hai s t nhiờn m, n t bn phớm ri thc hin: a) In cỏc c s chung ca hai s m, n b) Kim tra tớnh ng thi chn, l ca hai s m, n Nu c hai s m, n u l s chn hoc u l s l thỡ thụng bỏo DUNG Ngc li thỡ thụng bỏo Vớ d: SAI c) So sỏnh nm vi mn Bi (4,0 im): xúa mt ch s bờn phi ca mt s t nhiờn N ta thc hin chia ly phn nguyờn s N cho 10 Vit chng trỡnh cho phộp nhp s t nhiờn N t bn phớm ri thc hin: a) Thc hin xúa k ch s bờn phi ca s N vi k c nhp t bn phớm (Cho kt qu l nu k ln hn hoc bng s ch s ca N) b) Cho bit s N cú bao nhiờu ch s c) Thc hin xúa cỏc ch s bờn phi ca s N cho n c kt qu l s nguyờn t Nu khụng th xúa c kt qu l s nguyờn t thỡ thụng bỏo KHONG THE \ Vớ d: Sở Gd&Đt kỳ thi CHọN học sinh giỏi lớp tHCS Quảng bình năm học 2012- 2013 Môn thi: tin học Đề thi thức (Khóa thi ngày 27 tháng năm 2013) Số Báo Danh: Thời gian làm bài: 150 phút (không kể thời gian giao đề) ( thi gm cú 02 trang) RA S dng ngụn ng lp trỡnh Turbo Pascal lp trỡnh gii cỏc bi toỏn sau: Cõu 1: (3,0 im) Phn thng PT.PAS Trong cuc thi gii toỏn qua mng internet mi hc sinh u cú s im tớch ly riờng ca mỡnh S im tớch ly ca mi hc sinh l mt s nguyờn dng K (0 < K 2ì109) i tuyn ca trng THCS Ti Nng cú N hc sinh tham gia d thi (2 N 100) Ti bui gp mt trc k thi cp tnh, thy hiu trng quyt nh thng cho cỏc hc sinh i tuyn Q triu ng, bit rng im tớch ly ca mi hc sinh u chia ht cho Q Yờu cu: Hóy tỡm s nguyờn dng Q ln nht D liu vo: Cho file bn PT.INP cú cu trỳc nh sau: - Dũng 1: Ghi s nguyờn dng N l s lng hc sinh - Dũng 2: Ghi N s nguyờn dng ln lt l im tớch ly ca N hc sinh, cỏc s c ghi cỏch ớt nht mt du cỏch D liu ra: Ghi file bn PT.OUT theo cu trỳc nh sau: - Dũng 1: Ghi s nguyờn dng Q tỡm c Vớ d: PT.INP PT.OUT 15 24 45 36 27 Thi gian thc hin chng trỡnh khụng quỏ giõy cho mi b d liu vo Cõu 2: (3,5 im) Mt khu MK.PAS Cu Tớ thng xuyờn tham gia thi lp trỡnh trờn mng Vỡ t c thnh tớch cao nờn Tớ c gi tng mt phn mm dit virus Nh sn xut phn mm cung cp cho Tớ mt mó s l mt s nguyờn dng N cú khụng quỏ 255 ch s ci t c phn mm, Tớ phi nhp vo mt khu ca phn mm Mt khu l mt s nguyờn dng M c to bng cỏch tớnh tng giỏ tr cỏc ch s ca N Yờu cu: Hóy tỡm s nguyờn dng M D liu vo: Cho file bn MK.INP cú cu trỳc nh sau: - Dũng 1: Ghi s nguyờn dng N D liu ra: Ghi file bn MK.OUT theo cu trỳc nh sau: - Dũng 1: Ghi s nguyờn dng M tỡm c Vớ d: MK.INP 84915388247 MK.OUT 59 Cõu 3: (3,5 im) Tn sut TS.PAS Cho hp S cú N phn t nguyờn dng {s1, s2,, sN} (1 N 32000; < si 32000; i N) Yờu cu: Hóy lit kờ cỏc phn t S cú s ln xut hin ln hn mt ln D liu vo: Cho file bn TS.INP cú cu trỳc nh sau: - Dũng 1: Ghi s nguyờn dng N - Dũng 2: Ghi N s nguyờn dng l giỏ tr cỏc phn t ca hp S, cỏc s c ghi cỏch ớt nht mt du cỏch D liu ra: Ghi file bn TS.OUT trờn nhiu dũng, dũng th i ghi s si di, hai s cỏch mt du cỏch Trong ú si l phn t xut hin S ln hn mt ln v di tng ng l s ln si xut hin Vớ d: TS.INP TS.OUT 2 5 ==HT== S GIO DC V O TO NG NAI HI THI TIN HC TR LN TH 17 NM 2013 CHNH THC THI THC HNH TIN HC BNG B KHI THCS Thi gian lm bi: 120 phỳt - Ngy thi: 28-6-2013 ( thi ny gm cú: 02 trang, 03 cõu) H v tờn: S bỏo danh: Lu ý thớ sinh: Thớ sinh to th mc mang tờn s bỏo danh ti a giỏm th quy nh Ton b bi thi c lu th mc ny Thớ sinh lp trỡnh trờn mỏy bng phn mm Borland Pascal hoc Free Pascal gii cỏc bi toỏn cho bờn di Lu cỏc file chng trỡnh theo yờu cu nh trờn TNG QUAN BI THI Tờn bi Tờn file chng trỡnh Cõu Cõu Coprime.pas Symmetry.pas Cõu Number.pas S lng test 5 im ca test 6 Tng im 40 30 30 Cõu Hai s nguyờn a v b gi l nguyờn t cựng nu chỳng cú c s chung ln nht bng Vớ d: v 25 l nguyờn t cựng vỡ chỳng cú c s chung ln nht l 1; v 15 khụng nguyờn t cựng vỡ chỳng cú c s chung ln nht l Yờu cu: Vit chng trỡnh Pascal nhp vo t bn phớm s nguyờn dng a, b (a, b 1000000000) Xut mn hỡnh thụng bỏo xem a v b cú nguyờn t cựng hay khụng Vớ d chy chng trỡnh: Vớ d 1: Nhap so nguyen: 25 Nguyen to cung Vớ d 2: Nhap so nguyen: 15 Khong nguyen to cung Cõu Mt s nguyờn dng gi l s i xng nu sau o ngc s ú ta nhn c chớnh s ú Vớ d: s 1234321 l s i xng; s 12345321 khụng phi s i xng Yờu cõu: Vit chng trỡnh Pascal nhp vo t bn phớm mt s nguyờn dng n (n1000000000) Kim tra v thụng bỏo mn hỡnh xem n cú phi s i xng hay khụng Vớ d chy chng trỡnh: Vớ d 1: Nhap so nguyen duong: 1234321 Doi xung Vớ d 2: Nhap so nguyen duong: 12345321 Khong doi xung Cõu Cho mt xõu bn ch cha ch cỏi v ch s Hóy tỡm xõu dóy cỏc ch s liờn tip cú giỏ tr ln nht Nu cú nhiu dóy s cựng ln nht thỡ m xem cú bao nhiờu dóy s nh vy Vớ d: xõu tin28hoc6tre2013dong17nai cú dóy s liờn tip ln nht l 2013 v cú dóy s nh vy Yờu cu: Vit chng trỡnh nhp vo t bn phớm mt xõu bn ( 255 ký t) Tỡm v xut mn hỡnh dóy s liờn tip ln nht v s lng dóy s ú Vớ d chy chng trỡnh: Vớ d 1: Nhap xau: tin28hoc6tre2013dong17nai Day so lon nhat: 2013 So luong: Vớ d 2: Nhap xau: conghoaxahoichunghiavietnam Day so lon nhat: khong co So luong: - Ht Ch kớ giỏm th 1: .Ch ký giỏm th 2: (giỏm th coi thi khụng gii thớch gỡ thờm) S GIO DC V O TO NG NAI HI THI TIN HC TR LN TH 18NM 2014 CHNH THC THI THC HNH TIN HC BNG B KHI TRUNG HC C S Thi gian lm bi: 120 phỳt (Khụng tớnh thi gian phỏt ) - Ngy thi: 22-7-2014 ( thi ny gm cú: 02 trang, 03 cõu) H v tờn thớ sinh: S bỏo danh: TNG QUAN THI Tờn bi Cõu Cõu Cõu Tờn file chng trỡnh MINMAX.pa NGUYENTO.pas TINNHAN.pas s Tờn file nhp MINMAX.inp NGUYENTO.inp TINNHAN.inp Tờn file xut MINMAX.out NGUYENTO.out TINNHAN.out S lng test 10 10 10 im ca test 3 Tng im 40 30 30 Lu ý thớ sinh: Thớ sinh to th mc mang tờn s bỏo danh ti a giỏm th quy nh Ton b bi thi c lu th mc ny Thớ sinh lp trỡnh trờn mỏy bng phn mm Borland Pascal hoc Free Pascal gii cỏc bi toỏn cho bờn di Lu cỏc file chng trỡnh theo yờu cu nh trờn Cõu Cho mt s nguyờn dng n (n t) Tỡm ch s nh nht, ch s ln nht cỏc ch s ca n Vớ d: n = 52365487 ch s nh nht l 2, ch s ln nht l D liu vo: cho MINMAX.inp cha s nguyờn dng n D liu ra: ghi vo MINMAX.out mt dũng nht cha ch s tỡm c, gia ch s ny phi cú mt khong cỏch Vớ d: MINMAX.inp MINMAX.out 52365487 28 Cõu Cho mt dóy n s nguyờn dng (n 1000), mi phn t dóy cú giỏ tr khụng quỏ 30000 Tỡm mt dóy liờn tip di nht cỏc phn t l nhng s nguyờn t cú giỏ tr tng dn Vớ d: dóy phn t {4, 2, 5, 6, 3, 3, 7, 9} cú dóy liờn tip di nht gm s nguyờn t tng dn l {3, 3, 7} D liu vo: cho NGUYENTO.inp cha dũng, dũng th nht l s nguyờn dng n, dũng th hai l dóy n s nguyờn D liu ra: ghi vo NGUYENTO.out mt dũng nht cha dóy tỡm c, gia phn t lin k dóy cú mt khong cỏch Vớ d: NGUYENTO.inp NGUYENTO.out 42563379 337 Cõu An son mt tin nhn v nh Nam gi cho Bỡnh Vỡ khụng mun Nam c ni dung tin nhn nờn An ó mó húa tin nhn theo quy tc sau: u tiờn An o ngc tng ch cỏi ca mi t tin nhn, sau ú An dng kin thc tin hc v bng mó ASCII mó húa tng ch cỏi tin nhn thnh s th t ca ch cỏi ú bng mó ASCII Em hóy giỳp Bỡnh gii mó tin nhn ca An gi Vớ d: tin nhn gc l gio chieu minh hoc nhom tai nha An Sau o ngc tng ch cỏi ca mi t, tin nhn mi l oig ueihc yan hnim coh mohn iat ahn nA Tip tc chuyn tng ch cỏi tin nhn thnh s th t tng ng bng mó ASCII c tin nhn cui cựng l 53 111 105 103 117 101 105 104 99 121 97 110 104 110 105 109 99 111 104 109 111 104 110 105 97 116 97 104 110 110 65 Cho bit: bng mó ASCII, ch cỏi A cú s th t l 65, ch cỏi a cú s th t l 97 v s cú s th t l 48 D liu vo: cho TINNHAN.inp cha mt dũng nht l tin nhn m Bỡnh nhn c D liu ra: ghi vo TINNHAN.out mt dũng nht l tin nhn gc ca An gi cho Bỡnh Vớ d: TINNHAN.inp TINNHAN.out 53 111 105 103 117 101 105 gio chieu minh hoc nhom tai 104 99 121 97 110 104 110 105 109 99 111 104 109 111 104 110 105 97 116 97 104 110 110 65 nha An - Ht -Ch kớ giỏm th 1: .Ch ký giỏm th 2: (giỏm th coi thi khụng gii thớch gỡ thờm) ... ==HT== S GIO DC V O TO NG NAI HI THI TIN HC TR LN TH 17 NM 2013 CHNH THC THI THC HNH TIN HC BNG B KHI THCS Thi gian lm bi: 120 phỳt - Ngy thi: 28-6-2013 ( thi ny gm cú: 02 trang, 03 cõu) H... th coi thi khụng gii thớch gỡ thờm) S GIO DC V O TO NG NAI HI THI TIN HC TR LN TH 18NM 2014 CHNH THC THI THC HNH TIN HC BNG B KHI TRUNG HC C S Thi gian lm bi: 120 phỳt (Khụng tớnh thi gian... nguyờn t thỡ thụng bỏo KHONG THE Vớ d: Sở Gd&Đt kỳ thi CHọN học sinh giỏi lớp tHCS Quảng bình năm học 2012- 2013 Môn thi: tin học Đề thi thức (Khóa thi ngày 27 tháng năm 2013) Số Báo Danh: Thời