Array hauv "Pascal". Cov kev pab cuam rau arrays hauv Pascal

Cov txheej txheem:

Array hauv "Pascal". Cov kev pab cuam rau arrays hauv Pascal
Array hauv "Pascal". Cov kev pab cuam rau arrays hauv Pascal
Anonim

Txhua xyoo kev txaus siab rau kev ua haujlwm nce. Thiab yog tias hauv cov tsev kawm tshwj xeeb hauv kev sau ntawv lawv cia siab rau cov lus programming xws li C ++, tom qab ntawd hauv cov tsev kawm ntawv thiab cov tsev kawm txuj ci cov tub ntxhais kawm tau paub txog "Pascal". Thiab twb ua raws li cov lus no, lawv pib nkag siab txog kev ua haujlwm los ntawm kev siv Delphi software. Nws yuav tsum raug sau tseg tam sim ntawd tias cov lus programming no muab qhov chaw loj rau qhov tshwm sim ntawm lawv txoj kev xav. Thiab yog tias nrog kev pab ntawm cov lus Pascal koj tuaj yeem paub txog cov ntsiab lus tseem ceeb ntawm kev ua haujlwm, tom qab ntawd hauv Delphi koj tuaj yeem sau qhov kev pabcuam puv ntoob. Thiab qee qhov chaw tseem ceeb hauv kev sau ntawv yog qee zaum nyob los ntawm kev daws cov arrays hauv "Pascal".

Muaj ntau tus lej sib txawv heev

array hauv Pascal
array hauv Pascal

Muaj ntau ntau yam sib txawv hauv ib hom lus programming, uas yog tus cwj pwm los ntawm qhov muaj tus nqi nkaus xwb. Lawv muaj peev xwm khaws tau ib tus nqi uas muaj ib hom. Cov kab sib txawv yog qhov zam. Lawv yogyog ib phau ntawm cov ntaub ntawv uas tus cwj pwm yam ntxwv. Tab sis txawm tias qhov kev hloov pauv no feem ntau yog txiav txim siab los ntawm txoj haujlwm ntawm tus nqi sib cais.

Nws tsis muaj qhov zais cia tias nrog kev pab ntawm lub khoos phis tawj koj tuaj yeem txo lub sijhawm los ua qee yam haujlwm ntsig txog cov ntaub ntawv loj. Tab sis yuav ua li cas, thaum siv tsuas yog cov kev hloov pauv uas muaj hom paub rau tib neeg, nws puas tuaj yeem khaws cov txiaj ntsig ntawm kev ua haujlwm hauv kev nco, thiab tseem ua cov ntaub ntawv uas muaj cov kab ntau? Cov dej num zoo li no feem ntau tshwm sim hauv txhua qhov haujlwm.

Tau kawg, koj tuaj yeem nkag mus rau ntau qhov sib txawv raws li koj xav tau kom ua tiav koj lub hom phiaj. Koj tuaj yeem txhais qee qhov txiaj ntsig rau lawv. Tab sis cov cai ntawm qhov kev zov me nyuam tsuas yog nce los ntawm qhov no. Nws yog qhov nyuaj rau kev nyeem cov lej uas muaj cov kab ntau. Tshwj xeeb tshaj yog thaum tsim nyog los nrhiav qhov yuam kev.

Raws li, cov programmers xav txog cov lus nug no. Tias yog vim li cas cov lus uas tau tsim los txog tam sim no muaj cov kev hloov pauv zoo li no uas ua rau nws tuaj yeem khaws cov ntaub ntawv ntau hauv lawv tus kheej. Cov array hauv "Pascal" tau hloov pauv ntau hauv txoj hauv kev rau kev ua haujlwm. Yog li ntawd, nws yog suav hais tias yog ib qho tseem ceeb sib txawv hauv ib hom lus programming.

Siv arrays tuaj yeem txo cov lej loj heev

Nyob rau hauv lo lus no tau muab zais ib ntus ntawm cov ntaub ntawv, uas yog tus yam ntxwv los ntawm ib hom. Tsis tas li ntawd, tag nrho cov ntaub ntawv no tau txais tib lub npe. Nws kuj yuav tsumNws yuav tsum raug sau tseg tias ntau yam khoom ntawm lub ntiaj teb tiag tiag tuaj yeem ua tau raws li cov ntsiab lus no: phau ntawv txhais lus, cartoons, thiab ntau ntxiv. Txawm li cas los xij, txoj hauv kev yooj yim tshaj plaws los nthuav tawm ib qho array hauv "Pascal" yog nyob rau hauv daim ntawv ntawm ib hom lus. Txhua lub cell muaj ib qho txawv txav. Siv cov kev tswj xyuas, koj tuaj yeem txiav txim siab txoj haujlwm ntawm qhov sib txawv uas nws yuav nyob hauv cov lus dav dav.

Ib qho kev sib txuas txhais li cas?

arrays hauv pascal
arrays hauv pascal

Lub rooj yooj yim tshaj plaws yog ib qho uas yog linear. Hauv qhov array no, txhawm rau txiav txim siab qhov chaw ntawm qhov ntsuas, nws txaus los qhia tsuas yog ib tus lej xwb. Ntau cov arrays yog tsim raws li lawv.

Hais piav qhia txog ib-seem arrays hauv "Pascal", tsuas yog sau cov lej hauv qab no: Hom Array ntawm.

Cov lej yog cov hloov pauv uas tuaj yeem muaj hom kab ke. Thaum qhia txog qhov ntau, nws tsim nyog nkag siab tias tus lej pib tsis tuaj yeem siab dua qhov kawg. Hom uas cov ntsiab lus array muaj tuaj yeem yog txhua yam - tus qauv lossis twb tau piav qhia dhau los. Qhov kev xaiv yuav nyob ntawm qhov xav tau los daws qhov teeb meem tshwj xeeb.

Ib txoj kab array piav qhia li cas?

Nws muaj peev xwm piav qhia txog ib qho ntawm ib sab hauv "Pascal". Qhov no yuav tsum tau ua nyob rau hauv ib qho tshwj xeeb, uas yog tsim nyog rau cov txheej txheem tshwj xeeb no. Koj yuav tsum nkag mus rau cov cai hauv qab no: Var: Array Ntawm.

Yuav kom nkag siab tias koj tuaj yeem piav qhia txog qhov array hauv Pascal li cas, koj yuav tsum nkag mus rau cov cai hauv qab no:

- Var

- S, VV: Array[5..50] Of Real;

- K: Array['C'.. 'R'] Ntawm Cov lej;

- Z: Array [-10..10] Lo lus;

- E: Array [3..30] Ntawm Tiag.

Hauv qhov piv txwv no, qhov sib txawv S, VV thiab T yog ib qho ntawm cov lej uas muaj tiag. Qhov sib txawv K hides hom cim thiab cov ntsiab lus. Qhov twg yog cov lej. Z array khaws cov lej uas nws hom yog Lo Lus.

Ntawm txhua qhov kev ua uas tuaj yeem siv tau thaum ua haujlwm nrog ib qho array, kev ua haujlwm tuaj yeem paub qhov txawv. Tag nrho lub rooj tuaj yeem raug rau nws. Piv txwv li, S:=VV. Tab sis nws yuav tsum to taub tias kev ua haujlwm tsuas tuaj yeem raug rau ib qho array hauv "Pascal" uas muaj qee yam.

Tsis muaj kev ua haujlwm ntxiv uas tuaj yeem ua tiav ntawm tag nrho cov array ib zaug. Txawm li cas los xij, koj tuaj yeem ua haujlwm nrog cov ntsiab lus tib yam li nrog rau lwm tus lej tseem ceeb uas muaj qee yam. Txhawm rau xa mus rau tus kheej qhov ntsuas, koj yuav tsum qhia lub npe ntawm cov array. Los ntawm kev siv cov square brackets, koj yuav tsum txiav txim siab qhov Performance index uas yog yam ntxwv ntawm cov khoom xav tau. Piv txwv li: K[12].

Qhov sib txawv tseem ceeb ntawm arrays thiab lwm yam hloov pauv

ua hauj lwm pascal arrays
ua hauj lwm pascal arrays

Qhov sib txawv ntawm cov khoom sib txawv ntawm cov lus thiab cov kev sib txawv yooj yim yog tias nws tuaj yeem muab tso rau hauv cov khoom lag luam tsis yog tus nqi ntsuas nkaus xwb, tab sis kuj yog cov lus qhia uas tuaj yeem ua rau tus nqi xav tau. Ib qho piv txwv ntawm kev hais tsis ncaj yuav yog: V[K]. Nyob rau hauv cov ntaub ntawv no, qhov sib txawv K yuav siv sij hawm rau ib tug tej yam nqi. Los ntawm nonws ua raws li koj tuaj yeem siv lub voj thaum sau, ua thiab luam tawm ib qho array.

Daim ntawv no tuaj yeem tshwm sim nyob rau hauv rooj plaub ntawm txoj hlua sib txawv uas nyob ze txaus hauv lawv cov khoom rau arrays ntawm hom Char. Tab sis kuj muaj qhov sib txawv. Lawv yog cov hauv qab no:

  1. Txoj hlua sib txawv tuaj yeem nkag los ntawm cov keyboard thiab luam tawm ntawm qhov screen.
  2. Txoj hlua hloov pauv tau txwv ntev. Koj tuaj yeem sau ntau tshaj 255 tus cim. Qhov loj loj ntawm cov array yog 64 kb.

Yuav ua li cas siv tau los tso saib cov ntaub ntawv array ntawm lub vijtsam?

Koj yuav tsum xyuam xim rau txoj kev cov ntsiab lus ntawm cov array tshwm sim. Muaj ntau yam.

  1. Writeln (A[1], A[2], A[3]). Xws li ib qho piv txwv, txawm tias thaum xub thawj, muaj peev xwm qhia tau tias koj tuaj yeem nkag ncaj qha rau txhua tus neeg lub hauv paus hauv lub rooj. Txawm li cas los xij, qee qhov zoo uas Pascal arrays muaj tshaj qhov sib txawv yooj yim tsis pom ntawm no.
  2. Program A1;

    Var B: Array [1..10] Of Integer;

    K: Integer;

    Begin

    For K:=1 Txog 10 Ua {Qhov lus txib no txuas nrog qhov ntsuas }

    Readln(A[K]); {A[I] tab tom nkag mus siv cov keyboard }

    For K:=10 Downto 1 Ua {Lub rooj tau luam tawm rov qab txiav txim}

    Sau(A[K], 'VVV')

    End.

Ib tus lej zoo sib xws ntawm qhov kev pab cuam rau arrays hauv "Pascal" qhia tau tias koj tuaj yeem sau 10 tus lej siv cov keyboard, luam tawm lawv li cas, rov txhim kho cov txiaj ntsig rov qab. Yog hais tias tib qhov kev pab cuam yog rewritten los ntawmsiv ib tug loj tus naj npawb ntawm cov variables es tsis txhob ntawm ib tug array, ces cov code yuav ho nce. Thiab qhov no nyuaj heev rau cov txheej txheem ntawm kev nyeem ntawv.

nce ntxiv los ntawm kev siv arrays

array program hauv pascal
array program hauv pascal

Nws tseem tuaj yeem sau cov ntxhuav nrog cov txiaj ntsig uas sib npaug rau cov square ntawm cov cim ntsuas. Nws kuj tseem tuaj yeem tsim cov array ntawm cov hlua hauv "Pascal", uas yuav tso cai rau txhua tus lej nkag mus tau. Raws li koj tuaj yeem pom, siv cov array zoo heev txhim kho lub peev xwm ntawm Pascal programming lus.

Kev ua tiav ntawm cov kab arrays muaj ntau heev hauv ntau yam haujlwm. Yog li ntawd, tsis muaj dab tsi coj txawv txawv nyob rau hauv qhov tseeb tias lawv tau kawm nyob rau hauv lub koom haum thiab tsev kawm ntawv. Tsis tas li ntawd, cov possibilities uas arrays nqa yog qhov dav heev.

Dab tsi yog zais hauv ob sab arrays?

Koj tuaj yeem xav txog lub rooj uas muaj ob peb kab ib zaug. Txhua kab ib leeg muaj ob peb lub hlwb. Nyob rau hauv cov xwm txheej zoo li no, txhawm rau txiav txim siab txoj haujlwm ntawm cov hlwb, nws yog ib qho tsim nyog yuav tsum tau kos tsis yog ib qho kev ntsuas, raws li cov ntaub ntawv nrog cov kab arrays, tab sis ob - tus lej uas yog tus yam ntxwv ntawm kab thiab kab. Ob-dimensional arrays hauv "Pascal" yog tus cwj pwm los ntawm tus sawv cev zoo sib xws.

Yuav ua li cas piav cov rooj zoo li no?

ua hauj lwm pascal arrays
ua hauj lwm pascal arrays

Cov qauv ntaub ntawv uas pom nyob rau hauv cov lus Pascal thiaj li khaws cov txiaj ntsig ntawm lub rooj no yoglub npe ntawm ob-dimensional array. Kev piav qhia ntawm ib qho array yog ua tau tam sim ntawd siv ob txoj kev.

  1. Var B: Array[1..15] Ntawm Array [1..30] Ntawm Cov lej;
  2. Var B: Array [1..15, 1..30] Of Integer.

Nyob rau hauv tag nrho cov xwm txheej no, ib qho kev piav qhia ob sab, uas muaj 15 kab thiab 30 kab. Cov lus piav qhia saum toj no yog qhov sib npaug kiag li. Txhawm rau pib ua haujlwm nrog ib qho ntawm cov ntsiab lus, nws yog qhov tsim nyog los faib ob qhov ntsuas. Piv txwv li, A[6][5] lossis A[6, 5].

Cov zis rau qhov screen yuav luag zoo ib yam li nyob rau hauv cov ntaub ntawv ntawm ib-dimensional array. Koj tsuas yog yuav tsum tau qhia ob qhov ntsuas. Tag nrho lwm yam, tsis muaj qhov sib txawv li ntawd, yog li tsis tas yuav tham txog nws ntev.

thawj txoj hauv kev

ib-dimensional arrays hauv pascal
ib-dimensional arrays hauv pascal

Qee zaum nws yuav tsim nyog los txheeb cov ntaub ntawv. Rau qhov no, hom lus muaj cov lus txib sib xws. Muaj ob lub algorithms uas ib qho array tuaj yeem txheeb tau hauv Pascal. Lub ntsiab lus ntawm txoj kev xaiv ncaj qha nyob rau hauv qhov tseeb hais tias los ntawm nesting lub voj, kiag li txhua lub rooj sib txawv yuav muab piv nrog rau lwm yam nqi. Hauv lwm lo lus, yog tias muaj 15 tus lej, ces thawj tus lej 1 yuav muab piv nrog lwm tus lej. Qhov no yuav tshwm sim kom txog rau thaum, piv txwv li, lub caij uas muaj ntau dua li thawj tus lej pom. Tom qab ntawd, qhov sib piv yuav tshwm sim raws nraim li daim duab no. Qhov no yuav rov qab mus txog thaum pom qhov loj tshaj plaws.lub ntsiab lus los ntawm txhua qhov kev thov. Txoj kev no yooj yim heev rau cov programmers uas nyuam qhuav pib ua haujlwm hom lus.

Second array sorting method

Txoj kev thib ob yog npuas. Lub ntsiab lus ntawm cov txheej txheem no nyob rau hauv qhov tseeb hais tias nyob sib ze cov ntsiab lus raug muab piv rau hauv khub. Piv txwv li, 1 thiab 2, 2 thiab 3, 3 thiab 4, thiab lwm yam. Nyob rau hauv cov kev tshwm sim uas pom tus nqi tag nrho ua raws li cov sorting tej yam kev mob, nws yuav tsum tau tsiv mus rau qhov kawg ntawm tag nrho cov array, i.e. nws yuav pop li ib. "npub". Qhov no algorithm yog qhov nyuaj tshaj plaws kom nco qab. Txawm li cas los xij, koj tsis tas yuav zom nws. Qhov tseem ceeb tshaj plaws yog kom nkag siab tag nrho cov qauv ntawm cov cai. Thiab tsuas yog nyob rau hauv cov ntaub ntawv no tuaj yeem thov kom ua tiav qhov siab zoo hauv kev ua haujlwm.

Zoo kawg

daws arrays hauv pascal
daws arrays hauv pascal

Peb vam tias koj nkag siab tias cov arrays yog dab tsi thiab koj tuaj yeem txheeb xyuas seb tus nqi tshwj xeeb lossis ua tiav lub hom phiaj tshwj xeeb. Yog tias koj tau xaiv "Pascal" los daws qhov teeb meem tshwj xeeb, nyob rau hauv uas arrays nyob ib qho chaw tseem ceeb, ces koj yuav tsum tau mus rau lawv txoj kev kawm kom huv si. Qhov no yog cuam tshuam los ntawm ib qho tseem ceeb xws li muaj nyob rau hauv cov lus ntawm ib tug txaus tus naj npawb ntawm cov variables uas yog siv nyob rau hauv tej lub sij hawm kom yooj yim rau tag nrho cov code raws li ib tug tag nrho. Arrays raug suav hais tias yog qhov tseem ceeb, kev kawm uas yuav tsum tau ua yam tsis poob.

Pom zoo: