Tuyển tập các bài toán Pascal ppsx

Baứi 2 :Vieỏt chửụng trỡnh ủeỏm soỏ laàn xuaỏt hieọn cuỷa caực kớ tửù thuoọc baỷng chửừ caựi trong 50 laàn goừ kớ tửù baống baứn phớm khoõng phaõn bieọt a vụựi A, b vụựi B …, duứng haứm

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

 Bài tập:

CÂU LệNH IF … THEN … ELSE

Baứi 1 :Nhaọp 3 soỏ a , b , c baỏt kỡ Haừy kieồm tra xem ba soỏ ủoự coự theồ laứ ủoọ daứi ba caùnh cuỷa moọt tam giaực hay khoõng ? Thoõng baựo leõn maứn hỡnh ‘ Thoỷa maừn ‘, ‘ Khoõng thoỷa maừn trong tửứng trửụứng hụùp tửụngửựng

Baứi 2 :Nhaọp N soỏ baỏt kỡ

ẹeỏm caực soỏ lụựn hụn 10 vaứ nhoỷ hụn 20 vaứ tớnh toồng cuỷa chuựng Sau ủoự , ủửa ra maứn hỡnh :

So cac so >10 vaứ <20 la : ( gia tri )

Tong cua chung la : ( gia tri )

Baứi 3 :Nhaọp boỏn soỏ a , b , c , d Haừy tỡm giaự trũ lụựn nhaỏt cuỷa chuựng vaứ gaựn giaự trũ lụựn nhaỏt ủoự cho bieỏn Max

Baứi 4 :ẹoùc ngaứy thaựng naờm , sau ủoự vieỏt ra maứn hỡnh ủoự laứ ngaứy thửự maỏy trong tuaàn

Baứi 5 :Vieỏt chửụng trỡnh :

Nhaõp soỏ baựo danh

Nhaọp ủieồm vaờn , toaựn , ngoaùi ngửừ

In ra maứn hỡnh dửụựi daùng :

_ Toồng soỏ ủieồm :

Baùn ủaừ truựng tuyeồn ( hoaởc Baùn ủaừ khoõng truựng tuyeồn ) vụựi ủieàu kieọn Toồng soỏ ủieồm >= 15 hay ngửụùc laùi

Baứi 6 :Vieỏt chửụng trỡnh nhaọp hai soỏ thửùc Sau ủoự hoỷi pheựp tớnh caàn thửùc hieọn vaứ in keỏt quaỷ cuỷa pheựp tớnh ủoự

Neỏu laứ “+” , in keỏt quaỷ cuỷa toồng leõn maứn hỡnh

Neỏu laứ “-” , in keỏt quaỷ cuỷa hieọu leõn maứn hỡnh

Neỏu laứ “/” , in keỏt quaỷ cuỷa thửụng leõn maứn hỡnh

Neỏu laứ “*” , in keỏt quaỷ cuỷa tớch leõn maứn hỡnh Neỏu laứ “+” , in keỏt quaỷ cuỷa toồng leõn maứn hỡnh Neỏu laứ “+” , in keỏt quaỷ cuỷa toồng leõn maứn hỡnh

Baứi 7 :Giaỷi vaứ bieọn luaọn phửụng trỡnh :

x2 + ( m – 2 ) x + 1 = 0

ụỷ ủaõy m laứ tham soỏ thửùc tuyứ yự

Baứi 8 :Vieỏt chửụng trỡnh nhaọp hai soỏ tửù nhieõn N, M vaứ thoõng baựo ‘Dung‘ neỏu N , M cuứng tớnh chaỹn leừ , trong trửụứng hụùp ngửụùc laùi thỡ thoõng baựo ‘Sai‘

VòNG LặP XáC ĐịNH Và KHÔNG XáC ĐịNH

Sửỷ duùng leọnh For

Baứi 1 : Laọp trỡnh tớnh tớch caực soỏ tửù nhieõn tửứ 1 tụựi 10

Baứi 2 :Vieỏt chửụng trỡnh ủeỏm soỏ laàn xuaỏt hieọn cuỷa caực kớ tửù thuoọc baỷng chửừ caựi trong 50 laàn goừ kớ tửù baống baứn phớm (khoõng phaõn bieọt a vụựi A, b vụựi B …, duứng haứm Upcase ủeồ chuyeồn ủoồi chửừ thửụứng vụựi

Sửỷ duùng leọnh While

Baứi 5 :Laọp trỡnh tớnh toồng :

A = 1 + 1/2 + 1/3 + … + 1/n

ụỷ ủaõy n laứ soỏ tửù nhieõn ủửụùc nhaọp vaứo tửứ baứn phớm

Baứi 6 :Tớnh haứm luừy thửứa an , ụỷ ủaõy a thửùc vaứ n tửù nhieõn ủửụùc nhaọp vaứo tửứ baứn phớm

Baứi 7 : Vieỏt chửụng trỡnh nhaọp moọt daừy soỏ toỏi ủa 100 soỏ , sau ủoự in ra maứn hỡnh caực soỏ khaực nhau

Baứi 8 : Vieỏt chửụng trỡnh nhaọp moọt daừy soỏ toỏi ủa 100 soỏ , sau ủoự saộp xeỏp laùi theo thửự tửù taờng daàn

Sửỷ duùng leọnh Repeat

Baứi 9 :Cho moọt daừy soỏ ủửụùc nhaọp tửứ baứn phớm Haừy vieỏt chửụng trỡnh nhaọp moọt soỏ a roài lieọt keõ taỏt

caỷ caực phaàn tửỷ trong daừy lụựn hụn a

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

Baứi 10 :Vieỏt chửụng trỡnh nhaọp moọt daừy soỏ toỏi ủa 50 soỏ roài in ra maứn hỡnh caực soỏ truứng nhau cuỷa

Baứi 1 :Duứng thuỷ tuùc chuyeồn moọt soỏ tửù nhieõn n cho trửụực sang heọ cụ soỏ 2

Baứi 2 :Duứng thuỷ tuùc giaỷi phửụng trỡnh baọc hai ax2 + bx + c = 0

Baứi 3 : Haừy vieỏt laùi thuỷ tuùc Insert ủoỏi vụựi moọt chuoói kớ tửù cho trửụực tuứy yự

Baứi 4 :Vieỏt chửụng trỡnh thửùc hieọn laàn lửụùt caực coõng vieọc sau :

_ Laọp thuỷ tuùc nhaọp ba soỏ thửùc dửụng a , b , c tửứ baứn phớm

_ Laọp thuỷ tuùc kieồm tra xem ba soỏ treõn coự laọp thaứnh ba caùnh cuỷa tam giaực hay khoõng ?

_ Vieỏt thuỷ tuùc tớnh dieọn tớch cuỷa tam giaực

_ Vieỏt thuỷ tuùc tớnh caực trung tuyeỏn cuỷa tam giaực

_ Vieỏt hoaứn thieọn chửụng trỡnh chớnh

Baứi 5 : Giaỷi phửụng trỡnh x + y + z = 12 trong phaùm vi soỏ nguyeõn khoõng aõm vụựi ủieàu kieọn x < 4

Baứi 6 :Cho trửụực caực soỏ N , a , b , c tửù nhieõn Giaỷi phửụng trỡnh sau trong phaùm vi soỏ nguyeõn khoõng

aõm x + y + z = N vụựi ủieàu kieọn x < a , y < b , z < c

Baứi 7 :Vieỏt thuỷ tuùc Compare ( S1 , S2 : String ; Var Kq : String ) thửùc hieọn coõng vieọc sau : so saựnh hai xaõu S1 vaứ S2 , tỡm taỏt caỷ caực kớ tửù coự trong caỷ hai xaõu treõn Xaõu Kq seừ chửựa taỏt caỷ caực kớ tửù ủoự , moói kớ

tửù chổ ủửụùc nhụự moọt laàn

Baứi 8 :Vieỏt haứm tớnh D (St1 , St2) , vụựi U, V laứ hai xaõu kớ tửù baỏt kỡ , laứ toồng soỏ caực kớ tửù khoõng gioỏng nhautrong hai xaõu treõn , moói loaùi kớ tửù chổ ủửụùc nhụự moọt laàn Vớ duù D (‘aabba’ , ‘bcdd’) = 2 vỡ chổ coự hai kớ tửù

a vaứ d laứ khoõng gioỏng nhau trong caực xaõu treõn

Baứi 9 :Vieỏt chửụng trỡnh hoaứn chổnh thửùc hieọn caực coõng vieọc cuỷa thửùc ủụn sau :

1 Nhaọp dửừ lieọu ( nhaọp soỏ tửù nhieõn n )

2 Phaõn tớch ra thửứa soỏ nguyeõn toỏ ( phaõn tớch n thaứnh tớch caực soỏ nguyeõn toỏ )

3 Thoaựt khoỷi chửụng trỡnh

CấU TRúC Dữ LIệU KIểU MảNG

Baứi 1 :Giaỷi heọ phửụng trỡnh tuyeỏn tớnh hai aồn duứng ma traọn :

a11x + a12y = c1a21x + a22y = c2

Baứi 2 : Laọp phửụng trỡnh taùo ra moọt maỷng chửựa baỷng cửỷu chửụng

Baứi 3 :Vieỏt chửụng trỡnh nhaọp hai soỏ nguyeõn dửụng m , n Sau ủoự tớnh trung bỡnh coọng bỡnh phửụng

caực soỏ nguyeõn tửứ m ủeỏn n

Baứi 4 :Vieỏt chửụng trỡnh nhaọp tửứ baứn phớm caực phaàn tửỷ cuỷa moọt maỷng hai chieàu Kớch thửụực cuỷa

maỷng ủửụùc nhaọp trửụực tửứ baứn phớm

Baứi 5 :Daừy soỏ sau ủửụùc goùi laứ daừy Fibonaci :

a1 = 1a2 = 1a3 = 2a4 = 3

an = an-1 + an-2

Vieỏt chửụng trỡnh tớnh 20 soỏ Fibonaci ủaàu tieõn vaứ ủửa ra keỏt quaỷ vaứo moọt maỷng 20 phaàn tửỷ

Baứi 6 :Daừy soỏ an ủửụùc ủũnh nghúa nhử sau :

a1 = 1a2 = 2

an = 2an-1 + an-2 ( n > 2 )

Haừy laọp chửụng trỡnh tớnh vaứ gaựn giaự trũ cuỷa daừy vaứo bieỏn maỷng

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

Baứi 7 : Nhaọp soỏ tửù nhieõn N vaứ vieỏt chửụng trỡnh taùo maỷng bao goàm N soỏ nguyeõn toỏ ủaàu tieõn

Baứi 8 :Vieỏt chửụng trỡnh nhaọp moọt baỷng soỏ 3 x 3 vụựi ủieàu kieọn caực soỏ ủửụùc nhaọp seừ hieọn treõn maứn

hỡnh ủuựng taùi vũ trớ cuỷa mỡnh treõn baỷng soỏ

Baứi 9 : a Vieỏt chửụng trỡnh nhaọp dửừ lieọu tửứ daừy ủoỏi xửựng vaứo maỷng moọt chieàu

b Vieỏt chửụng trỡnh nhaọp dửừ lieọu laứ ma traọn ủoỏi xửựng vaứo maỷng hai chieàu

XÂU Kí Tự

Baứi 1 :Laọp trỡnh ủeỏm soỏ laàn xuaỏt hieọn ụỷ moói loaùi kớ tửù thuoọc baỷng chửừ caựi tieỏng Anh trong moọt xaõu kớ

tửù Str

Baứi 2 :Cho soỏ tửù nhieõn n vaứ xaõu coự ủoọ daứi n Haừy bieỏn ủoồi xaõu ủaừ cho baống caựch thay ủoồi trong ủoự :

a Taỏt caỷ caực daỏu ! baống daỏu chaỏm

b Moói moọt nhoựm caực daỏu chaỏm lieàn nhau baống moọt daỏu chaỏm

c Moọt nhoựm caực daỏu chaỏm ủửựng lieàn nhau baống daỏu ba chaỏm

Baứi 3 :Cho soỏ tửù nhieõn n vaứ moọt daừy caực kớ tửù S1 , S2 , … , Sn Haừy tỡm soỏ tửù nhieõn I ủaàu tieõn sao cho caực kớ tửù Si , Si+1 ủeàu laứ chửừ caựi a Neỏu trong daừy khoõng coự nhửừng caởp nhử vaọy thỡ thoõng baựo

Baứi 4 :Cho soỏ tửù nhieõn n vaứ daừy caực kớ tửù S1 , S2 , … , Sn Bieỏt raống trong daừy coự ớt nhaỏt moọt daỏu phaồy Haừy tỡm soỏ tửù nhieõn i sao cho :

a Si laứ daỏu phaồy ủaàu tieõn b Si laứ daỏu phaày cuoỏi cuứng

Baứi 5 :Vieỏt chửụng trỡnh nhaọp moọt xaõu kớ tửù , sau ủoự chổ ra xem xaõu ủoự coự phaỷi laứ xaõu ủoỏi xửựng khoõng( xaõu ủoỏi xửựng laứ xaõu coự caực kớ tửù gioỏng nhau vaứ ủoỏi xửựng nhau qua ủieồm giửừa xaõu , vớ duù ‘ABBA’ hoaởc

‘ABCBA’ )

Baứi 6 :Cho moọt xaõu kớ tửù S Haừy vieỏt chửụng trỡnh tớnh xem trong S coự bao nhieõu loaùi kớ tửù khaực nhau ( phaõn bieọt chửừ in hoa vụựi chửừ in thửụứng ) Vớ duù vụựi S laứ “Pascal” ta coự ủaựp soỏ laứ 5

Baứi 7 : Vieỏt chửụng trỡnh nhaọp moọt xaõu kớ tửù vaứ bieỏn ủoồi chuựng thaứnh toaứn chửừ in hoa

Baứi 8 :Hoù teõn moọt hoùc sinh ủửụùc nhaọp tửứ baứn phớm Baùn haừy vieỏt chửụng trỡnh ủieàu chổnh laùi caực kớ

tửù ủaàu cuỷa caực tửứ ủụn trong teõn cuỷa hoùc sinh aỏy trụỷ thaứnh chửừ in hoa

Baứi 9 :Vieỏt chửụng trỡnh nhaọp xaừu kớ tửù tửứ baứn phớm , sau ủoự goùt xaõu laùi baống caựch caựch xoaự ủi caực

kớ tửù troỏng ụỷ hai ủaàu cuỷa xaõu Vớ duù neỏu nhaọp xaõu “ Ha noi “ , thỡ keỏt quaỷ seừ laứ “Ha noi”

Dữ LIệU KIểU TệP

Baứi 1 : Baùn haừy vieỏt haứm Card(A) ủeỏm soỏ phaàn tửỷ cuỷa taọp hụùp A cho trửụực coự kieồu Set Of 0 99

Baứi 2 :Baùn haừy laọp chửụng trỡnh taùo moọt taọp hụùp caực soỏ nguyeõn chaỹn kieồu Byte vaứ loaùi khoỷi noự caực

soỏ chia heỏt cho 3 Keỏt quaỷ theồ hieọn treõn maứn hỡnh

Baứi 3 :Xeựt chửụng trỡnh sau :

Haừy tỡm vaứ sửỷa loói trong chửụng trỡnh ủoự

Baứi 4 :Baùn haừy laọp chửụng trỡnh hieồn thũ moọt menu daùng sau treõn maứn hỡnh

Lua chon cua ban : _

Sau ủoự ủụùi goừ phớm Chửụng trỡnh phaỷi ủụùi cho tụựi khi phớm goừ vaứo laứ moọt trong caực chửừ soỏ 1 5 hoaởc caực chửừ caựi ủaàu cuỷa caực tuyứ choùn thỡ thoõng baựo phớm goừ vaứo hụùp leọ vaứ keỏt thuực chửụng

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNGtrỡnh Trong chửụng trỡnh phaỷi duứng moọt taọp hụùp ủeồ kieồm tra vieọc nhaọp giaự trũ cho bieỏn tửứ baứn

CấU TRúC Dữ LIệU KIểU RECORD

Baứi 1 :Thoõng tin veà moói hoùc sinh goàm :

 Hoù ủeọm : moọt xaõu 25 kớ tửù

 Teõn : moọt xaõu 10 kớ tửù

 Tuoồi : moọt soỏ nguyeõn hai chửừ soỏ

 Lụựp : moọt xaõu hai chửừ soỏ vaứ moọt chửừ caựi vieỏt hoa

Haừy laọp chửụng trỡnh nhaọp tửứ baứn phớm danh saựch moọt lụựp 15 hoùc sinh vaứo moọt maỷng baỷn ghi

Sau ủoự hieồn thũ danh saựch leõn maứn hỡnh , moói ngửụứi moọt doứng

Baứi 2 :Thoõng tin veà moói hoùc sinh laứ moọt baỷn ghi goàm caực trửụứng :

 Hoùủeọm : moọt xaõu 25 kớ tửù

 Teõn : moọt xaõu 10 kớ tửù

 Tuoồi : moọt soỏ nguyeõn hai chửừ soỏ

 Lụựp : moọt xaõu hai chửừ soỏ vaứ moọt chửừ caựi vieỏt hoa

Moọt file baỷn ghi chửựa moọt danh saựch moọt lụựp goàm 20 hoùc sinh Haừy laọp chửụng trỡnh hieồn thũ danh

saựch leõn maứn hỡnh , moói ngửụứi moọt doứng

Baứi 3 :Moọt file baỷn ghi chửựa moọt danh saựch hoùc sinh , thoõng tin veà moói hoùc sinh gioỏng nhử baứi treõn Haừy laọp chửụng trỡnh taùo moọt file baỷn ghi khaực chửựa danh saựch ủoự , moói baỷn ghi goàm caực trửụứng :

 Hoùteõn : moọt xaõu 35 kớ tửù

 Tuoồi : moọt soỏ nguyeõn hai chửừ soỏ

 Khoỏi : moọt soỏ nguyeõn hai chửừ soỏ

 Lụựp : moọt chửừ caựi vieỏt hoa

Baứi 4 :Moọt file baỷn ghi chửựa moọt danh saựch hoùc sinh PTTH , thoõng tin veà moói hoùc sinh ngoaứi caực trửụứng Hoùủeọm , Teõn , Tuoồi , Lụựp gioỏng nhử caực baứi treõn coứn coự theõm trửụứng ẹieồm chửựa ủieồm trung bỡnh cuỷa hoùc sinh trong naờm hoùc Haừy laọp chửụng trỡnh :

a Hieồn thũ leõn maứn hỡnh danh saựch nhửừng hoùc sinh gioỷi nhaỏt cuỷa trửụứng laứ nhửừng baùn coự ủieồm

trung bỡnh tửứ 8.0 trụỷ leõn vaứ cao nhaỏt trong khoỏi

b Laọp danh saựch hoùc sinh trong naờm hoùc mụựi , bieỏt moọt hoùc sinh coự ủieồm trung bỡnh tửứ 5.0 trụỷ leõn

thỡ ủửụùc leõn lụựp Chuự yự : lụựp 10A leõn lụựp 11A , lụựp 11A leõn 12A Keỏt quaỷ chửựa trong file

Baứi 5 :Cho file baỷn ghi f chửựa dửừ lieọu veà kho saựch , dửừ lieọu veà moói cuoỏn saựch ủửụùc chửựa trong moọt baỷn ghi goàm 3 trửụứng mang thoõng tin veà :

 Hoù teõn taực giaỷ : moọt xaõu 26 kớ tửù

 Teõn saựch : moọt xaõu 40 kớ tửù

 Naờm xuaỏt baỷn : moọt soỏ nguyeõn 4 chửừ soỏ

Haờy laọp chửụng trỡnh nhaọp dửừ lieọu vaứo kho saựch , sau ủoự tỡm ra :

 Nhửừng cuoỏn saựch cuỷa moọt taực giaỷ cho trửụực xuaỏt baỷn vaứo moọt naờm cho trửụực

 Nhửừng cuoỏn saựch coự teõn cho trửụực

Keỏt quaỷ hieọn treõn maứn hỡnh

Baứi 6 :

File baỷn ghi F chửựa danh saựch caực ngaứy leó trong moọt naờm , moói baỷn ghi goàm ngaứy thaựng , teõn ngaứy leó vaứ soỏ ngaứy ủửụùc nghổ Haừy laọp chửụng trỡnh nhaọp danh saựch caực ngaứy leó vaứ tớnh :

 Toồng soỏ caực ngaứy leó vaứ toồng soỏ caực ngaứy nghổ leó trong naờm

 Toồng soỏ caực ngaứy leó vaứ toồng soỏ caực ngaứy nghổ leó trong quớ 1 , quớ 2 , …

Keỏt quaỷ theồ hieọn treõn maứn hỡnh

CấU TRúC Dữ LIệU KIểU FILE

Baứi 1 :Haừy laọp chửụng trỡnh taùo moọt teọp soỏ nguyeõn chửựa caực soỏ nguyeõn toỏ nhoỷ hụn 10000 theo thửự tửù taờng daàn

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

Baứi 2 :Cho f laứ teọp vaờn baỷn chửựa caực xaõu 10 kớ tửù Haừy laọp chửụng trỡnh nhaọp vaứ hieồn thũ noọi dung file ủoự leõn maứn hỡnh , moói xaõu moọt doứng , ủaày trang maứn hỡnh thỡ dửứng laùi ủụùi goừ Enter mụựi hieồn thũ trang tieỏp theo cho tụựi heỏt

Baứi 3 :Baùn haừy vieỏt chửụng trỡnh cho pheựp ủoùc dửừ lieọu tửứ baứn phớm vaứ ghi theõm vaứo cuoỏi moọt teọp caực baỷn ghi

Baứi 4 :Cho moọt vaờn baỷn chửựa trong moọt text file f Trong vaờn baỷn , tớnh tửứ traựi sang phaỷi , tửứ treõn xuoỏng dửụựi , kớ tửù # laứ kớ hieọu xoaự ủi moọt tửứ ủửựng ngay trửụực noự neỏu coự Vớ duù ‘#Ta#oi di ngu#h###hoc’ coự nghúa laứ ‘Toi di hoc’ Baùn haừy vieỏt chửụng trỡnh sửỷa laùi file f theo quy ửụực treõn

Baứi 5 :Cho 2 file f vaứ g cuứng kieồu ( nhửng khoõng roừ kieồu naứo ) Baùn haừy laọp thuỷ tuùc gaựn noọi dung cuỷa file g cho file f

Baứi 6 :Cho moọt file text ghi laùi moọt chửụng trỡnh Pascal cuỷa moọt hoùc sinh Haừy vieỏt chửụng trỡnh kieồm tra loói cuỷa chửụng trỡnh Pascal treõn theo caực caựch sau ủaõy :

Caựch 1 : Kieồm tra xem soỏ lửụùng caực daỏu ‘ ( daỏu mụỷ vaứ daỏu ủoựng ) coự baống nhau khoõng ?

Caựch 2 : Kieồm tra xem soỏ lửụùng caực tửứ Begin vaứ End coự baống nhau khoõng ?

Baứi 7 :Cho moọt file text Haừy vieỏt chửụng trỡnh ủeỏm xem file text treõn chửựa bao nhieõu tửứ ( Chuự yự : theo quy ủũnh , caực tửứ caựch nhau bụỷi moọt hay nhieàu daỏu caựch )

Baứi 8 :Cho moọt file text Vieỏt chửụng trỡnh loaùi boỷ caực khoaỷng troỏng thửứa beõn trong file text naứy

CấU TRúC Dữ LIệU KIểU CON trỏ

Baứi 1 :Baùn haừy laọp chửụng trỡnh cho pheựp ta nhaọp tửứ baứn phớm moọt danh saựch ủửụùc gheựp noỏi Sau

ủoự gụừ boỷ moọt record khoỷi danh saựch

Baứi 2 :Baùn haừy laọp chửụng trỡnh cho pheựp nhaọp moọt danh saựch ủửụùc gheựp noỏi Sau ủoự cheứn theõm

moọt record vaứo danh saựch

Baứi 3 :Baùn haừy laọp chửụng trỡnh cho pheựp nhaọp moọt danh saựch ủửụùc gheựp noỏi Sau ủoự ủoồi choó hai record trong danh saựch

Đồ HọA

Baứi 1 :Veừ hỡnh chửừ nhaọt coự taõm truứng vụựi taõm maứn hỡnh , caực caùnh song song vaứ tổ leõ vụựi caực caùnh

maứn hỡnh , kớch thửụực lụựn daàn theo thụứi gian

Baứi 2 :Veừ hỡnh chửừ nhaọt nhử treõn , kớch thửụực ủieàu khieồn ủửụùc Neỏu goừ phớm + thỡ hỡnh lụựn leõn , goừ

phớm – thỡ nhoỷ ủi , goừ Enter thỡ dửứng chửụng trỡnh

Baứi 3 :Moọt baứn cụứ vua hieồn thũ treõn maứn hỡnh Neỏu ủaởt moọt con haọu ( hỡnh troứn maứu ủoỷ ) vaứo moọt oõ baống caựch nhaọp teõn oõ , chaỳng haùn a5 , thỡ caực oõ bũ con haõu khoỏng cheỏ seừ ủửụùc toõ maứu xanh Baùn haừylaọp chửụng trỡnh thửùc hieọn caực yeõu caàu treõn

Baứi 4 :Veừ ủoàng hoà ủieọn tửỷ hoaùt ủoọng treõn maứn hỡnh

Baứi 5 :Hieồn thũ moọt ủieồm chuyeồn ủoọng ủeàu theo chieàu kim ủoàng hoà treõn quyừ ủaùo troứn , taõm laứ taõm maứn hỡnh , baựn kớnh r = 150

Baứi 6 :Hieồn thũ moọt hỡnh chửừ nhaọt treõn maứn hỡnh , vũ trớ coự theồ ủieàu khieồn ủửụùc baống baứn phớm Goừ caực phớm muừi teõn ủeồ dũch chuyeồn hỡnh ủoự theo caực hửụựng tửụng ửựng

Baứi 7 :Veừ hỡnh sau vụựi caực phoõng chửừ , caực maứu khaực nhau :

Baứi 8 :Veừ heọ truùc toaù ủoọ vaứ ủoà thũ haứm soỏ y = x2 vụựi ủaày ủuỷ chuự thớch

Baứi 9 :Veừ vaứ toõ maứu cho ngoõi nhaứ sau ẹaỷm baỷo khaỷ naờng baọt taột ủieọn cho ngoõi nhaứ Neỏu goừ phớm + thỡ ủeứn saựng ( cửỷa soồ coự maứu traộng ) , goừ phớm – thỡ ủeứn taột ( cửỷa soỏ coự maứu ủen )

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

Writeln (' Thoa man : Day la 3

canh cua mot tam giac ')

Begin Tong := Tong + So ; Dem := Dem + 1 ; End ;

End ; Writeln (' So cac so >10 va <20

la : ', Dem ) ; Writeln (' Tong cua chung la :', Tong ) ;

Readln ; END

3) Var

Max , a , b , c , d : Real ; BEGIN

Writeln (' Nhap gia tri cua 4 so : ') ;

Write (' a = ') ; Readln ( a ) ; Write (' b = ') ; Readln ( b ) ; Write (' c = ') ; Readln ( c ) ; Write (' d = ') ; Readln ( d ) ; Max := a ;

If Max < b Then Max := b ;

If Max < c Then Max := c ;

If Max < d Then Max := d ; Writeln (' Gia tri lon nhat la : ',Max ) ;

Readln ; END

4) Var

Thu , Ngay , Thang : Byte ;

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG Nam : Integer ;

BEGIN

Write (' Doc Ngay Thang Nam : ') ;

Readln ( Ngay , Thang , Nam ) ;

Nam := 1900 + ( Nam mod 1900 ) ;

0 : Writeln (' Chu Nhat ') ;

1 : Writeln (' Thu Hai ') ;

2 : Writeln (' Thu Ba ') ;

3 : Writeln (' Thu Tu ') ;

4 : Writeln (' Thu Nam ') ;

5 : Writeln (' Thu Sau ') ;

6 : Writeln (' Thu Bay ') ;

Writeln (' Phieu Bao Diem ') ;

Writeln (' So bao danh : ',

6) Uses Crt ;

Var

a , b , T : Real ;

Pt : Char ; BEGIN

Clrscr ; Write (' a = ') ; Readln( a ) ; Write (' b = ') ; Readln( b ) ; Write (' Phep tinh thuc hien la (+

- * /) : ') ; Readln( Pt ) ;

If Pt = '+’ Then T := a + b ;

If Pt = '-’ Then T := a - b ;

If Pt = '*’ Then T := a * b ;

If Pt = '/’ Then T := a / b ; Write ( a , pt , b , ' = ', T ) ; Readln ;

END

7) Uses Crt;

Var

m , Delta : Real ;

BEGIN Clrscr;

Write (' m = ') ; Readln( m ) ; Delta := sqr( m-2 ) - 4 ;

If Delta < 0 Then Writeln(' Phuong trinh vo nghiem ') Else

Begin

If Delta = 0 Then Writeln(' Phuong trinh co nghiem kep X= ', -( m - 2 ) / 2 ) Else

Begin Writeln(' Phuong trinh co 2nghiem : ') ;

Writeln (' X1 = ', ( -(m-2)+ sqrt(delta) ) / 2 ) ;

Writeln (' X2 = ', ( -(m-2)

- sqrt(Delta) ) / 2 ) ; End ;

End ; Readln ; END

8) Uses Crt ;

Var

N , M : Integer ; Begin

Clrscr ; Write(' N , M = ') ; Readln( N ,

M ) ;

If ( (N + M) mod 2 = 0 ) Then Writeln(' Dung ! ')

Else Writeln(' Sai ! ') ;

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG Readln ;

Var a : Array[ 'A' 'Z' ] of

integer; (* maỷng boọ ủeỏm *)

For ch :='A' to 'Z' Do a[ch] := 0 ;

(* xaỷ boọ ủeỏm *)

Writeln (' Go phim 50 lan ') ;

For ch :='A' to 'Z' do (* Kieồm

tra boọ ủeỏm tửứ 'A' tụựi 'Z' *)

If a[ch] > 0 Then (*

Neỏu Ch coự xuaỏt hieọn *)

Writeln (ch , a[ch] : 4 , ' lan

') ; (* Vieỏt ra maứn hỡnh kớ tửù vaứ

soỏ laàn xuaỏthieọn *)

S := S + 1 / sqr(i) ; Writeln (' S = ', S:0:2) ; Readln ;

END b) Var n , i , j , p : Word ;

S : Real ; BEGIN

Write (' Nhap n : ') ; Readln(n) ;

p := 1 ;

s := 0 ; For i :=1 To n Do Begin

p := p * i ; (* tớnh i *)

S := S + 1 / p ; End ;

Writeln (' S = ', S:0:2) ; Readln ;

END

4)Var i , n : Byte ;

p : Real ; Begin

Write(' Nhap n : ') ; Readln (n) ;

p := 1 ; For i := 1 To n Do p := p * ( 1 + 1/sqr(i) ) ;

Writeln(' p = ', p:10:5 ) ; Readln ;

End

5) Uses Crt ;

Var i , n : Integer ; tong: Real ; BEGIN

Clrscr ; Write (' Cho so tu nhien n : ') ; Readln (n) ;

tong :=0 ;

i :=1 ; While i <= n Do Begin

tong := tong + 1/i ;

i := i + 1 ; End ;

Writeln (' Tong can tim la : ', tong:12:6 ) ;

Readln ; END

6) Uses Crt ;

Var i , n : Integer ;

a , giatri : Real ; BEGIN

Clrscr ; Write (' Cho so a : ') ; Readln(a)

; Write (' Cho so mu n : ') ; Readln(n) ;

i := 1 ; giatri := 1 ;

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG While i <= n Do

; For i := 1 To N Do Write(A[i] : 4)

; Readln ; END

9) Uses Crt ;

Var b : Array[1 100] Of Real;

a : Real ;

n , i : Byte ; BEGIN

Clrscr ; Write ('Nhap do dai cua day so : ') ; Readln(n) ;

Writeln (' Nhap cac phan tu cua day : ') ;

For i := 1 To n Do Begin

Write (' b[', i ,'] = ') ; Readln( b[i] ) ;

End ; Write (' Nhap so thuc a : ') ; Readln(a) ;

Writeln (' Cac phan tu lon hon a cua day : ') ;

10) Uses crt ;

Var a , b : Array[1 50] Of Integer

;

n , m , i , j , k : Byte ; trung : Boolean ;

BEGIN Clrscr ; Write (' Nhap do dai cua day so nguyen : ') ; Readln(n) ;

Writeln (' Nhap cac phan tu cua day : ') ;

For i := 1 To N do Begin

Write (' a[', i ,'] = ') ; Readln( a[i] ) ;

End ;

i := 1 ; m := 0 ; Repeat

trung := false ;

j := i + 1;

Repeat

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG

writeln (' Chuong trinh tinh thoi

gian rut tien lai ') ;

write (' So tien lai muon rut ra :

writeln (' Ban phai gui tien trong

', thang div 12 , ' nam ',

thang mod 12 ,' thang ') ;

writeln (' Khi do so tien ban rut

ra duoc la ', tien:12:2 ,' dong ') ; readln ;

Clrscr ; Writeln (' Tim USCLN cua N so :') ; Write (' Nhap so N : ') ;

Readln(n) ; Writeln ('Nhap ', N ,' so : ') ; For i := 1 To n Do

Begin Write(' So thu ', i ,' = ') ; Readln( a[i] ) ;

End ; For i := 1 To n-1 Do Repeat

d := a[i] ; a[i] := a[ i+1 ] mod a[i] ; a[i+1] := d ;

Until a[i] = 0 ; Writeln (' USCLN cua ', N ,' so la :', a[n] ) ;

Readln ; END

CHƯƠNG TRìNH CON

1) Procedure Change ( n : integer ; Var

St : String ) ; (* thuỷ tuùc chuyeồn soỏ tửù nhieõn ncho trửụực sang

heọ cụ soỏ 2 vaứ ủửụùc lửu ụỷ trong xaõu St *)

Type

b : Array[0 1] Of Char = ('0' ,'1') ;

Var

du , So : Integer ;

S : String ; Begin

S := '' ; (* xaõu roóng *)

So := n ; Repeat

Du := So mod 2 ;

So :=So div 2 ;

S := b[du] + s ; Until So = 0 ;

St := S ; End ;

2) Uses Crt ;

Var a, b, c, x1, x2: real;

(*================================*) Procedure Nhapabc(var aa,bb,cc: real);

Begin

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG Write('a='); Readln(aa);

Else Writeln(' Khong phai phuong

trinh bac hai ');

Procedure Nhap(Var a, b, c: real);

Procedure input (Var a: real;

Else Writeln('Khong lap thanh ba canh cua tam giac') ;

End;

(*===============================*) Procedure Trung_tuyen (a, b, c: Real);

Var ma, mb, mc: real;

Begin ma:=sqrt((2*sqr(b)+2*sqr(c)-sqr(a))/4);

sqr(b))/4);

sqr(c))/4);

Writeln('Cac trung tuyen cua tam giac la : ') ;

Writeln('ma=', ma:0:2, ' mb=', mb:0:2, ' mc=', mc:0:2);

End;

(*================================*) Procedure Dientich (a, b, c: real); Var p, S: real;

Begin p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Dien tich =', S:0:2); End;

(*================================*) BEGIN (* Chửụng trỡnh chớnh *) Clrscr;

Begin Repeat Write('Nhap ' + tenbien+' = '); Readln(a);

Until (a>=0);

End;

Begin (* baột ủaàu thuỷ tuùc nhaọp

*) Input(a, 'a');

Input(b, 'b');

Input(c, 'c');

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG End; (* keỏt thuực thuỷ tuùc

canh cua tam giac ')

Else Writeln('Khong lap

thanh ba canh cua tam giac') ;

Writeln('Giai phuong trinh

X+Y+Z=12 trong pham vi '

+ 'so nguyen khong

am voi dieu kien x<4');

Clrscr;

Write(' N, a, b, c = '); Readln(N,

a, b,c);

If (a+b+c-3<N) then Begin

Writeln('Phuong trinh vo nghiem'); Readln;

Exit;

End Else Begin Writeln('Phuong trinh co nghiem la:');

Writeln('x': 10, 'y': 10, 'z':10);

i:=4;

For X:=0 to (a-1) do For Y:=0 to (b-1) do For Z:=0 to (c-1) do

If (X+Y+Z=N) then Begin

Writeln(x: 10, y:

10, z: 10);

inc(i);

If i=24 then Begin Write('Nhan Enter de tiep tuc '); Readln;

i :=0;

End;

End ; End ;

Write('Nhan Enter de ket thuc '); Readln;

Var i: byte;

(*===============================*) Function kt(ch: char; st: string): boolean;

(* Kieồm tra xem kớ tửù Ch coự trong xaõu St khoõng Neỏu coự thỡ

haứm traỷ veà giaự trũ True Neỏu khoõng thỡ haứm traỷ veà giaự trũ False

*) Begin kt:=pos(ch,st)<>0;

End;

(*================================*)

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG Begin (* Thaõn cuỷa thuỷ tuùc

Compare*)

kq:=''; (* Xaõu roóng *)

For i:=1 to length(s1) do

If (not kt(s1[i],kq)) and

Compare(xau1, xau2, xau);

If xau<>'' then Writeln('Xau

chung la: ',xau)

Else Writeln('Khong co ki tu nao

trong ca hai xau ');

Write('Nhan ENTER de ket

Var S: array[1 M] of string;

max, min, i, j, n: byte;

(*===============================*)

Function D(U,V: string): byte;

(*Traỷ veà toồng soỏ loaùi kớ tửù

khoõng gioỏng nhau

trong 2 xaõu U vaứ V *)

Var k, id: byte;

s, luu: string;

Begin

luu:=''; (* Xaõu roóng *)

For id:=1 to length(U) do

Readln(S[i]);

End;

End ; (*===============================*) BEGIN (* Chửụng trỡnh chớnh *)

If max<d(S[i],S[j]) then max:=d(S[i],S[j]);

If min>d(S[i],S[j]) then min:=d(S[i],S[j]);

End;

Write('Max(d(Si,Sj)=',max,' Min(d(Si,Sj)=',min);

Repeat Write('Nhap N='); Readln(NN); Until NN>=0;

End;

(*=================================*) Procedure viet;

Begin

If dem=0 then Writeln('So ',N,' khong the phan tich thanh '

+ 'tich cua cac so nguyen to')

Else

If dem=1 then Writeln(N, '=', a[dem])

Else Begin Write(N,'=');

For i:=1 to dem-1 do Write(a[i],'*');

Writeln(a[dem]);

End;

End;

(*================================*) Procedure phantich(N1:longint); Begin

If N1>1 then

Ước mơ + Tự tin + Quyết tâm + Kiên trì + Bền bỉ + Kiên định – Chủ quan = THàNH CôNG Begin

Writeln('Phan tich so N thanh tich

cua cac so nguyen to :');

Writeln('Giai he phuong tring

tuyen tinh hai an:');

End ; Readln;

END

2)Uses Crt ;

Var a : Array[1 10, 2 9] Of Byte ;

i, j : Byte ; BEGIN

Clrscr ; For i := 1 To 10 Do For j := 2 To 9 Do a[i, j] := i*j ;

Writeln(' Bang cuu chuong : ') ; Writeln ;

For i := 1 To 10 Do For j := 2 to 9 do Write ( j:4 , 'x' , i:2 , '=' , a[i , j]:2)

; (* heỏt 80 coọt tửù ủoọng xuoỏng haứng *)

Readln ; END

3)Var m , n , k , s : Word ;

tb : real ; BEGIN

Writeln('Nhap 2 so nguyen duong m,

n :') ; Write (' m = ') ; Readln(m) ; Write (' n = ') ; Readln(n);

If m > n Then (* ủoói choóủeồ m <= n *)

Begin

k := m ; m := n ; n := k ; End ;

s := 0 ; For k := m To n do s := s + sqr(k)

;

tb := s / (n - m + 1) ; Writeln ('Trung binh cong bimh phuong cac so '

+ 'nguyen tu m den nla: ', tb:12:2);

Readln ; END

4) Var m , n , i , j : Byte ;

a : Array[1 100, 1 100] Of Real;

BEGIN Write ('Nhap cac kich thuoc cua mang hai chieu : ') ;

Write (' So hang m = ') ; Readln(m) ;

Write (' So cot n = ') ; Readln(n) ;

Writeln (' Nhap cac phan tu cua mang : ') ;

For i := 1 To m Do For j := 1 To n Do