Touchpal-näppäimistösovelluksen versio 5

Lataa tietokoneen puhdistusohjelma

Jbl kannettavan kaiuttimen piirikaavio

Lue lisää

Firmware World Vision T40 Firmware World Vision T40

Lue lisää

Matkailun pääesikunnan kartat

Lue lisää

Linuxin asentaminen iso-kuvasta Windowsissa Onko mahdollista ajaa ubuntua Windowsin alta

Lue lisää

Merkin tietotyyppi Pascal-esityksessä. Esitys aiheesta Strings in Pascal

Syntaksi: var s: merkkijono[n]; var s1: merkkijono; n - suurin mahdollinen merkkijonon pituus - alueella oleva kokonaisluku. Jos tämä parametri jätetään pois, se on oletuksena 255.

Merkkijonovakiot kirjoitetaan heittomerkeillä erotettuina merkkijonoina. S: = "Tekstijono"

Tyhjä merkki on merkitty kahdella peräkkäisellä heittomerkillä. Jos heittomerkki sisältyy riville merkkinä, se kaksinkertaistuu kirjoitettaessa. Muuttujat, jotka on ilmoitettu merkkijonoina, joiden enimmäispituus on erilainen, voidaan määrittää toisilleen, vaikka jos yrität määrittää lyhyen muuttujan pitkälle, ylimääräiset merkit hylätään. char-tyypin lausekkeet voidaan määrittää mille tahansa merkkijonomuuttujalle.

Pascal tarjoaa helpon pääsyn merkkijonomuuttujan yksittäisiin merkkeihin: i:s hahmo muuttuja st kirjoitetaan muodossa st[i]. Jos esimerkiksi st on "merkkijono", st on "C", st on "t", st on "p" ja niin edelleen.

Yhdistäminen (ketjuttaminen) on määritelty merkkijonodatalle, joka on merkitty +-merkillä. Esimerkiksi: a:= "Turbo"; b:= "Pascal"; c:= a + b; Tässä esimerkissä muuttujasta c tulee "TurboPascal".

Toimenpiteet ja funktiot merkkijonojen käsittelyssä 1)n:= pituus("Pascal"); (n on 6) 2) s:= "Turbo Pascal -järjestelmä"; s2:= kopio(t, 1, 7); (s2 on yhtä kuin "Järjestelmä") s3:= kopio(t, 9, 5); (s3 on yhtä kuin "Turbo") s4:= kopio(t, 15, 6); (s4 on yhtä kuin "Pascal")

Esitys aiheesta "Strings in Pascal" tietojenkäsittelytieteessä powerpoint-muodossa. Tämä 10. luokan koululaisille tarkoitettu esitys käsittelee teoreettista materiaalia ja tehtäviä merkkijonodatan aiheesta Pascal-ohjelmointikielellä. Esityksen kirjoittaja: tietojenkäsittelytieteen opettaja, Yudin A.B.

Katkelmia esityksestä

Teoria

Merkkijono on merkkijono, ts. elementtejä tyyppiä char. Pascalissa merkkijonolla on tietotyyppi String.
Jos pituutta ei ole määritetty, muistia varataan enintään 255 merkin pituiselle merkkijonolle.
Tehtävä 1. Luo ohjelma, joka laskee sanan kirjainten määrän.
Tehtävä 2. Vertaa kahden näppäimistöltä syötetyn rivin pituutta.

Soru-toiminto

Copy(S, P, N)-funktio poimii N merkin alijonon merkkijonosta S alkaen kohdasta P. Tässä N ja P ovat kokonaislukulausekkeita.
Tehtävä 3. Luo ohjelma, joka leikkaa sanasta TIETOTIEDE kirjaimia niin, että niistä tulee sana CAKE.
Tehtävä 4. Kirjoita ohjelma, joka tulostaa näppäimistöltä syötetyn luonnollisen luvun ensimmäisen ja viimeisen numeron.

VAL-menettely

Val-menettelyn avulla voit muuntaa digitaaliset merkit (numeron kuva) numeroiksi. SISÄÄN yleisnäkymä menettelyn kutsuminen näyttää tältä:

VAL (merkkijono, numero, koodi) ;
jossa merkkijono on merkkijonovakio tai muuttuja, joka sisältää kuvan luvusta;
Numero – kokonaisluku- tai murtolukutyyppinen muuttuja, jolle on annettava arvo
Koodi – toimenpiteen palauttama virhekoodi (kokonaisluku)

Tyyppi muunnos

PascalABC:llä on kehittyneempi muunnosarsenaali, kuten DELPHI:

S:=IntToStr(N) - muuntaa kokonaisluvun merkkijonoksi;
n:=StrToInt(S) - muuntaa merkkijonon kokonaisluvuksi
S:=FloatToStr(r) - muuntaa reaaliluvun merkkijonoksi
R:=StrToFloat(s) muuntaa merkkijonon reaaliluvuksi.

Jos muuntaminen ei ole mahdollista, tapahtuu ajonaikainen virhe

ORD- ja CHR-toiminnot

Funktio Ord(S) – määrittää symbolin järjestysnumeron.
Funktio Chr(i) – määrittää merkin, jonka sarjanumero on i

Tehtävä 6. Luo ohjelma, joka näyttää numeronsa kooditaulukossa näppäimistöltä syötetyn merkin perusteella.

Merkkien laskeminen rivillä

Tehtävä 7. Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä.

Merkkien korvaaminen merkkijonossa

Tehtävä 8. Annettu merkkijono. Korvaa kaikki sen kirjaimet A kirjaimella O.

Merkkien poistaminen merkkijonosta

Tehtävä 9 Poista kaikki R-kirjaimet (latinalaiset, isot) näppäimistöltä syötetystä merkkijonosta.

Sisäkkäiset ehdot

Tehtävä 10. Korvaa annetussa tekstissä kaikkialla annetussa tekstissä kirjain "a" kirjaimella "b" ja kirjain "b" kirjaimella "a".

Sisäkkäiset silmukat

Tehtävä 11. Annettu merkkijono, joka sisältää välimerkkejä. Laske mitä ja kuinka monta välimerkkiä rivi sisältää.

Ota tehosteet käyttöön

1/26

Poista tehosteet käytöstä

Katso samanlaisia

Upota koodi

Yhteydessä

Luokkatoverit

Arvostelut

Lisää arvostelusi

Dia 1

Dia 2

Merkkijono on merkkijono, ts. elementtejä tyyppiä char. Pascalissa merkkijonolla on tietotyyppi String. varName: merkkijono [Length]; Jos pituutta ei ole määritetty, muistia varataan enintään 255 merkin pituiselle merkkijonolle. Teoria 1 var s1:string; merkkijono 255 merkkiä var s2:string; merkkijono 20 merkkiä

Dia 3

Säännöt: merkkijonot ovat samanarvoisia vain, jos niillä on sama merkkijoukko ja sama pituus; Esimerkiksi: "ABC"="ABC" ja "ABC"≠"abc" muuten tapahtuu merkkien elementtikohtainen vertailu koodien mukaan: "0"

Dia 4

Teoria 3 Kahden kielen yhdistäminen. s1:="2011" + "vuosi"; Writeln(s1); s1:="10"; s2:="luokka"; s3:=s1+" "+s2; Writeln(s3);

Dia 5

Funktio pituus Pituus(S)-funktio määrittää merkkijonon S nykyisen pituuden. Tuloksena on kokonaislukuarvo. Teoria 4 OHJELMAN pituus_1; VAR S: STRING; n:INTEGER; BEGIN Writeln('enterword "); Readln(S); n:= pituus (S) ; Writeln('enterword ", n:5, " kirjaimet.."); LOPPU. Kirjoitamme merkkijonon pituuden muuttujaan, jonka tyyppi on kokonaisluku PROGRAM Dlina_2; VAR S: STRING; BEGIN Writeln('kirjoita sana'); Readln(S); Writeln('sana koostuu ', pituus (S),'kirjaimista. '); LOPPU. Näytämme merkkijonon pituuden funktion suorittamisen tuloksena Tehtävä 1. Luo ohjelma, joka laskee sanan kirjainten lukumäärän.

Dia 6

Usescrt; var a,b:string; m,n: Kokonaisluku; Aloita Clrscr; Writeln("Syötä ensimmäinen rivi");Readln(a); Writeln("Syötä toinen rivi"); Readln(b); m:=Pituus(a); n:=Pituus(b); if (m=n) then writeln("Merkkijonot ovat yhtä suuret"); if (m>n) then writeln("Ensimmäinen on suurempi"); jos (m

Dia 7

Soru-funktio Soru-funktio (S, P, N) poimii merkkijonosta S N merkin pituisen osamerkkijonon, joka alkaa paikasta P. Tässä N ja P ovat kokonaislukulausekkeita. Teoria 6 Lauseessa MOTHER SOAPED RAMU sana RAMU alkaa 11. kirjaimella ja koostuu 4 kirjaimesta COPY(s1,11,4)

Dia 8

Tehtävä 3. Ohjelma n3_1; Usescrt; var a,b,c,d:string; Aloita Clrscr; a:="tietotekniikka"; b:=""; c:=kopio(a,8,1); d:=kopio(a,4,2); b:=c+d+c; writeln(b); Loppu. Tehtävä merkkijonojen muodostamiseksi 7 Käytämme symbolisten muuttujien kanssa työskentelytoimintoa COPY Toinen vaihtoehto: Ohjelma n3_2; Usescrt; var a,b:string; Aloita Clrscr; a:='tietotekniikka"; b:=a+a+a+a; writeln(b); End. Käytämme merkkijonon määritelmää merkkijonona

Dia 9

Tyypin muunnos 8 STR Str(x, S)-funktio muuntaa luvun x merkkijonomuotoon. Kun x on mikä tahansa numeerinen lauseke, S on merkkijonomuuttuja. Tehtävä 4. Kirjoita ohjelma, joka tulostaa näppäimistöltä syötetyn luonnollisen luvun ensimmäisen ja viimeisen numeron. OHJELMA Primer; käyttää Crt; VAR S: STRING; n:INTEGER; BEGIN Write("Anna numero");readln(n); Str(n,S); Writeln("Ensimmäinen numero -",S); Writeln("Viimeinen numero on ",S); LOPPU. Muunna luonnollinen luku merkkijonoksi

Dia 10

Val-menettelyn avulla voit muuntaa digitaaliset merkit (numeron kuva) numeroiksi. Yleensä kutsu proseduuriin näyttää tältä: VAL (merkkijono, numero, koodi) ; jossa merkkijono on merkkijonovakio tai muuttuja, joka sisältää kuvan luvusta; Numero – kokonaisluku- tai murtolukutyyppinen muuttuja, jolle on annettava arvo Koodi – menettelyn palauttama virhekoodi (kokonaisluku) Tyypin muunnos 9 VAL-menettely

Dia 11

Tyyppimuunnos 10 BEGIN s1:="123456789"; val(s1,n,koodi); Writeln(n); LOPPU. BEGIN s1:="123456789ABCDE"; val(s1,n,koodi); Writeln(n); LOPPU.

Dia 12

s1:="ABCDE123456789"; val(s1,n,koodi); Writeln(n); PascalABC:llä on kehittyneempi muunnosarsenaali, kuten DELPHI: S:=IntToStr(N) - muuntaa kokonaisluvun merkkijonoksi; n:=StrToInt(S) - muuntaa merkkijonon kokonaisluvuksi S:=FloatToStr(r) - muuntaa reaaliluvun merkkijonoksi R:=StrToFloat(s) muuntaa merkkijonon reaaliluvuksi. Jos muuntaminen ei ole mahdollista, tapahtuu ajonaikainen virhe Type Conversion 11

Dia 13

Tyyppimuunnos 12 Tehtävä 5.

Dia 14

Symbolit ja niiden koodit 13 Toiminnot ORD ja CHR Funktio Ord(S) – määrittää symbolin sarjanumeron. Funktio Chr(i) – määrittää merkin, jonka sarjanumero on i. Käyttämällä numeroa 255 johdetaan merkki kooditaulukosta I

Dia 15

Symbolit ja niiden koodit 14 Tehtävä 6. Luo ohjelma, joka näppäimistöltä syötetyn symbolin perusteella näyttää numeronsa kooditaulukossa. OHJELMA Primer; käyttää Crt; VAR S: char; n,koodi:INTEGER; BEGIN Write("Anna merkki");readln(s); Writeln("Symbolilla ", s," on koodi -",ord(s)); LOPPU. ORD-toiminto toimii vain merkkitietotyypin kanssa

Dia 16

Tehtävä 7. Ohjelma n5; UsesCrt; Var s:string; i,k:kokonaisluku; beginClrScr; Write("IntoLine"); readln(s); k:=0; i:=1 pituuteen, tee jos (s[i]="A"), sitten k:=k+1; writeln("Kirjain A esiintyy = ", k:8," kertaa"); loppu. Toista 1:stä viimeiseen kirjaimeen Jos A on i:nnellä paikalla, lisää K:tä 1:llä Merkkien laskeminen rivillä 15

Dia 17

Huomautus 16 for i:=1 to long(s) dobegin if (s[i]=…… if (s[i]=…… end; Huomautus: Jos sinun täytyy etsiä useita merkkejä riviltä, liitämme ehdot ohjelman suluissa ALKAA ...END

Dia 18

Merkkien laskenta rivillä 17 Alkusyöttö S i,1,length(s) Si ="A" K=K+1 Tulos K Loppu Kyllä Ei Vuokaavio kirjainten A laskemiseen rivillä K=0

Dia 19

Merkkien korvaaminen rivillä 18 Tehtävä 8.Ohjelma n6; UsesCrt; Var s:string; i:kokonaisluku; beginClrScr; Write("IntoLine"); readln(s); i:=1:lle pituus(t)do jos (s[i]="A") sitten s[i]:="O"; kirjoitus(t); loppu. Käymme läpi 1:stä viimeiseen kirjaimeen. Jos i:nnessä paikassa on A, laitamme sen päälle i-sijalla NOIN.

Dia 20

Merkkien korvaaminen rivillä 19 Alkusyöttö S i,1,length(s) Si ="A" Si ="O" Tulos S Loppu Kyllä Ei Vuokaavio ongelmaan A-kirjaimen korvaamisesta O:lla

Dia 21

Tehtävä 9 Poista kaikki R-kirjaimet (latinalaiset, isot) näppäimistöltä syötetystä merkkijonosta. Ohjelma n7; UsesCrt; var a,b:String; i:kokonaisluku; beginClrScr; Write("InLine = ");readln(a); b:=""; jos i:=1 pituuteen(a), tee, jos (a[i]'R") sitten b:=b+a[i]; a:=b; kirjoitusn(a); loppu. Toista 1:stä viimeiseen kirjaimeen Valmistele lisämuuttuja Jos i:nnessä paikassa ei ole R-kirjainta, lisätään tämä kirjain B:ssä olevaan kirjaimeen. B:ssä tapahtuva siirretään takaisin A:een. Merkkien poistaminen merkkijonosta 20

Dia 22

Merkkien poistaminen merkkijonosta 21 Alkusyöttö A i,1,length(A) Ai "R" B=B+ Ai Tulos A Loppu Kyllä Ei Vuokaavio ongelmaan poistaa kirjaimet R merkkijonosta B="" A=B

Dia 23

Sisäkkäiset ehdot. 22 alkaa clRscr; Readln(s); i:=1 pituuteen (pituuksiin) tee if (s[i]="a") tai (s[i]="b"), sitten jos (s[i]="a") sitten s[i] :="b" else s[i]:="a"; kirjoitus(t); loppu. Tehtävä 10. Koko merkkijonosta täytyy valita vain A ja B ja vasta sitten tehdä vaihto

Dia 24

Sisäkkäiset ehdot 23 Alkusyöttö S i, 1, pituus(S) Si ="a" Si ="b" Si ="a" Lähtö S Loppu Si ="a" tai Si ="b" Kyllä Ei Kyllä Ei Lohkokaavio ongelma A:n korvaamisesta B:llä ja päinvastoin

Dia 25

Sisäkkäiset silmukat 24 alkavat ClrScr; Write("IntoLine"); readln(s); s1:=",.;:"!?-"; jos i:=1 pituuteen (s1) alkaa k:=0; j:=1 pituuteen (pituuteen) tee jos (s[j]=s1 [i]) sitten k:=k+1; jos (k0) sitten writeln(s1[i]," - ",k:5," kertaa"); end; end. Tehtävä 11. Ulompi silmukka, jossa luetellaan merkkejä S1 Ulkosilmukan runko sisältää silmukan, joka vastaa syötetyn merkkijonon merkkien luettelemisesta

Dia 26

Sisäkkäiset silmukat 25 aloitustulo S i, 1, pituus(S1) s1=",.;:"!?-" K=0 j, 1, pituus(S) Sj = S1i Kyllä Ei K=K+1 K0 Lähtö S1i ,K Ei Kyllä Lopetusvuokaavio välimerkkien laskentaongelmaan

Näytä kaikki diat

Abstrakti

SIVU � SIVU �1�

Lohko 1.

Teoria.

Dia 1

Dia 2

Dia 3.

Dia 4

Dia 5. Ongelman ratkaisua on analysoitu:

Dia 6.

Dia 7.

Luo ohjelma, joka leikkaa sanasta TIETOTIEDE kirjaimia niin, että niistä tulee sana CAKE.

Lohko 2.

Annettu merkkijono a1+a2=. Missä 1<=а1 и а2<=9. Составить программу, вычисляющую это выражение. Измените программу так, что бы вместо знака «+» можно было писать « - », « * », « / ».

Lisäratkaisun ongelmat:

<=аi<=9). Составить программу, вычисляющую эту сумму.

<=аi<=9). Составить программу, вычисляющую эту алгебраическую сумму.

Lohko 3.

Lohko 4.

Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä.

Lisäratkaisun ongelmat:

Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä.

Lohko 5.

Annettu merkkijono. Korvaa kaikki sen kirjaimet A kirjaimella O.

Lisäratkaisun ongelmat:

Lohko 6.

Lisäratkaisun ongelmat:

Lohko 7.

Korvaa annetussa tekstissä kirjain "a" kirjaimella "b" kaikkialla ja kirjain "b" kirjaimella "a".

Annettu merkkijono, joka sisältää välimerkkejä. Laske mitä ja kuinka monta välimerkkiä rivi sisältää.

Lisäratkaisun ongelmat:

SIVU � SIVU �1�

Esityksen "Strings in Pascal" kuvaus

Tätä esitystä voidaan käyttää opiskellessaan aihetta "Jotut Pascal-ohjelmointikielellä" opetettaessa ohjelmointia Pascal-kielellä. Siinä käsitellään merkkijonomuuttujan määrittelyä ja kuvausta, merkkijonojen kanssa työskentelyn toimintoja ja tarkastellaan myös useita tyypillisiä merkkijonojen kanssa työskentelyn tehtäviä. Esitys sisältää 24 diaa, jotka on yhdistetty 7 lohkoon.

Lyhyt navigointi diojen läpi ja lisätehtävät opiskelijoille itsenäisesti ratkaistaviksi:

Lohko 1.

Teoria.

Dia 1 . Merkkijonomuuttujan määritelmä ja kuvaustapa on annettu muuttujan kuvaus -osiossa.

Dia 2 . Säännöt merkkijonojen vertailuun Pascal-kielellä näytetään ja kaksi esimerkkiä, jotka havainnollistavat näitä sääntöjä.

Dia 3. Esimerkkejä useiden rivien yhdistämisestä yhdeksi näytetään.

Dia 4 . Length()-funktion määritelmä on annettu. Ja kaksi ratkaisua ongelmaan analysoidaan:

Kirjoita ohjelma, joka laskee sanan kirjainten määrän.

Ensimmäinen menetelmä, joka käyttää määritystoimintoa, määrittää merkkijonon merkkien määrän kokonaislukutyyppiselle muuttujalle ja näyttää sen näytöllä. Toisessa menetelmässä Length()-funktio lisätään suoraan Writeln-käskyyn.

Dia 5. Ongelman ratkaisua on analysoitu:

Vertaa kahden näppäimistöltä syötetyn merkkijonon pituutta.

Siinä sinun on määritettävä kahden merkkijonon pituus ja verrattava näiden merkkijonojen pituuksia haara-operaattorilla.

Dia 6. Copy()-funktion määritelmä on annettu. Kuvakaappaus näyttää esimerkin tämän toiminnon toiminnasta tarvittavilla kommenteilla.

Dia 7. Kaksi tapaa ratkaista ongelma esitetään:

Luo ohjelma, joka leikkaa sanasta TIETOTIEDE kirjaimia niin, että niistä tulee sana CAKE.

Ensimmäisessä tapauksessa leikkaus tehdään Copy-toiminnolla ja toisessa käyttämällä merkkijonon esitystapaa merkkijonona.

Lisäratkaisun ongelmat:

Kirjoita ohjelma, joka kysyy henkilön nimeä ja näyttää sen näytöllä tervehdyksen kera.

Kirjoita ohjelma, joka pyytää henkilön etu- ja sukunimen ja näyttää ne yhdellä rivillä tervehdyksen kanssa.

Näppäimistöstä syötetään kaksi riviä, määritetään kumpi on pidempi ja kuinka paljon, ja näytetään vastaava viesti näytöllä.

Merkkijono syötetään näppäimistöltä, näytä merkki k:nnella paikalla. k – kirjoitettu näppäimistöltä.

Sana syötetään näppäimistöltä, onko oikein, että se alkaa ja päättyy samalla kirjaimella?

Kaksi sanaa annetaan. Onko totta, että ensimmäinen sana päättyy samaan kirjaimeen kuin toinen?

Hanki sanasta "INTEGRAAL" sanat "DUMBELLS", "X-RAY", "TIGER", "AGENT".

Luo ohjelma, joka tarkistaa näppäimistöltä syötetyn sanan etuliitteiden raz- ja ras- oikeinkirjoituksen ja tarvittaessa korjaa virheen.

Lohko 2.

Tyyppimuunnosfunktiot.

Dia 8. Srt()-proseduurin kuvaus annetaan. Ongelman ratkaisu analysoidaan:

Kirjoita ohjelma, joka tulostaa näppäimistöltä syötetyn luonnollisen luvun ensimmäisen ja viimeisen numeron.

Siinä luonnollinen luku muunnetaan merkkijonoksi Str()-proseduurilla, jonka jälkeen ensimmäinen ja viimeinen merkki näytetään näytöllä. Tässä on ehdottomasti kerrottava opiskelijoille, että tämä menetelmä ei sovellu jokaiseen tapaukseen, esimerkiksi olympiatehtävissä usein asetetaan ehto, että merkkitietotyyppiä ei voi käyttää ja/tai luonnollinen luku sisältää yli 255 numeroa jne. .

Dia 9. Val()-proseduurin määritelmä on annettu.

Dia 10. Näyttää esimerkkejä lukuja sisältävien merkkijonojen muuntamisesta luonnolliseksi luvuksi.

Dia 11. Näyttää funktiot numero- ja merkkityyppien muuntamiseen PascalABC-ohjelmointijärjestelmässä. Tämä voi olla erittäin hyödyllistä, jos aiot vaihtaa Lazaruksen tai Delphin oppimiseen tulevaisuudessa.

Dia 12. Ongelman ratkaisu näytetään:

Se tarkastelee yksinkertaisinta tapausta, kun toiminnot suoritetaan kahdella luonnollisella yksinumeroisella numerolla. Tulevaisuudessa opiskelijoiden tasosta riippuen tätä tehtävää voidaan tehdä entistä vaikeammaksi. Moninumeroisten lukujen, negatiivisten lukujen, eksponentioinnin, sulkeiden ja päättäminen esimerkiksi puolalaisen merkinnän laskemiseen tai muuntamiseen.

Lisäratkaisun ongelmat:

Annettu merkkijono, joka edustaa positiivisen kokonaisluvun desimaalilukua. Tulosta merkkijono, joka edustaa saman luvun binääriesitystä.

Annettu merkkijono, joka edustaa positiivista kokonaislukua. Etsi tämän luvun numeroiden summa.

Annettu teksti muotoa a1+a2 +a3+…+ai. Missä аi ovat kokonaislukuja (0<=аi<=9). Составить программу, вычисляющую эту сумму.

Annettu teksti, jonka muoto on a1 - a2 + a3 - ... + ai. Missä аi ovat kokonaislukuja (0<=аi<=9). Составить программу, вычисляющую эту алгебраическую сумму.

Numero annetaan heksadesimaalilukujärjestelmässä. Tulosta rivi, joka edustaa saman luvun desimaalilukua.

Annettu merkkijono, joka edustaa positiivisen kokonaisluvun binaariesitystä. Tulosta rivi, joka edustaa saman luvun desimaalilukua.

Lohko 3.

Toiminnot merkkikoodien kanssa työskentelemiseen.

Dia 13. ORD- ja CHR-funktiot on määritelty. Näyttöön tulee kuvakaappaus ohjelmasta, joka havainnollistaa Chr-toiminnon toimintaa.

Dia 14. Ongelman ratkaisu näytetään:

Kirjoita ohjelma, joka näppäimistöltä syötetyn merkin perusteella näyttää numeronsa kooditaulukossa.

Tässä on huomioitava, että Ord-funktio toimii vain merkkitietotyypin (char) kanssa. Koska hyvin usein opiskelijat eivät ymmärrä eroa merkki- ja merkkijonotyyppien välillä.

Lohko 4.

Ongelmia, jotka liittyvät jonkin riviin laskemiseen.

Dia 15. Ongelman ratkaisu näytetään:

Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä.

Tämä ongelma kuvaa tapaa etsiä merkkejä merkkijonosta. On huomattava, että jos haluat etsiä merkkijonoa merkkijonosta, on tarkoituksenmukaisempaa käyttää Kopioi-toimintoa.

Dia 16. Sisältää muistutuksen, että jos joudut etsimään useita merkkejä riviltä, kirjoitamme ehdot ohjelman sulkeisiin BEGIN ... END

Dia 17. Näytössä on tehtävän vuokaavio diasta 15.

Lisäratkaisun ongelmat:

Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä.

Kun annetaan algebrallista lauseketta edustava merkkijono, tarkista sulujen pariliitos siinä. Näytä tulos näytöllä.

Teksti on annettu. Selvitä kuinka monta identtistä naapurikirjainta se sisältää.

Teksti on annettu. Määritä sanojen määrä lauseessa.

Teksti on annettu. Selvitä, mitä kirjaimia M tai N siinä on enemmän.

Teksti on annettu. Määritä kuinka monta sanaa tässä tekstissä alkaa kirjaimella A.

Annettu merkkijono, joka sisältää kaksoispisteen (:). Määritä, kuinka monta merkkiä sitä edeltää.

Annettu merkkijono. Määritä, kuinka monta kertaa kirjainryhmä ABC sisältyy siihen.

Teksti on annettu. Siinä on vähintään kaksi K-kirjainta. Määritä ensimmäisen ja viimeisen K-kirjaimen sarjanumerot.

Teksti on annettu. Määritä, kumpi kirjaimista C tai T näkyy ensin.

Teksti on annettu. Määritä lauseen ensimmäistä pilkkua edeltävien kirjainten lukumäärä N.

Annettu teksti, joka sisältää kaksi pilkkua. Laske näiden pilkkujen välissä olevien merkkien määrä.

Lohko 5.

Tehtävät merkkijonon merkkien muuttamiseen muuttamatta sen pituutta.

Dia 18. Ongelman ratkaisu näytetään:

Annettu merkkijono. Korvaa kaikki sen kirjaimet A kirjaimella O.

Tämä ongelma osoittaa, kuinka voit muuttaa merkkijonoa muuttamatta sen pituutta.

Dia 19. Näytössä on tehtävän vuokaavio diasta 18.

Lisäratkaisun ongelmat:

Annettu merkkijono. Korvaa kaikki parillisissa kohdissa olevat kirjaimet O-kirjaimella.

Annettu merkkijono. Korvaa kirjainyhdistelmä "min" kirjaimella "max" annetussa tekstissä.

Annettu merkkijono. Korvaa kaikki välilyönnit _-merkillä.

Etsi ensimmäinen ja viimeinen kirjain K näppäimistöllä syötetystä tekstistä. Ja korvaa ne "*":lla.

Luo ohjelma, joka korjaa näppäimistöltä syötetyn sanan "ZHI" ja "SHI" oikeinkirjoituksen.

Lohko 6.

Rivin pituuden muuttamiseen liittyvät tehtävät.

Dia 20. Ongelman ratkaisu näytetään:

Poista kaikki kirjaimet R (latinalainen, iso) näppäimistöllä syötetystä merkkijonosta.

Tämä tehtävä näyttää, kuinka merkkijono muuttuu sen pituuden muuttuessa.

Dia 21. Näytössä on tehtävän vuokaavio diasta 20.

Lisäratkaisun ongelmat:

Poista kaikki kirjaimet A (latinalainen, iso) näppäimistöllä syötetystä merkkijonosta.

Sana on annettu. Tarkista onko se vaihteisto. Eli se lukee saman lopusta ja alusta. (Esimerkiksi: ANNA, SHALASH.)

Korvaa tietyn sanan jokainen kirjain "b" kirjainyhdistelmällä "ku".

Kirjoita ohjelma, joka poistaa kirjaimet annetusta tekstistä. (Syötä teksti ja kirjain näppäimistöltä).

Otsikkojen ja loogisesti tärkeiden sanojen suunnittelua varten tekstin merkit vaihdetaan välilyöntien kanssa. Kirjoita ohjelma, joka suorittaa tällaisen toiminnon.

Poista tästä tekstistä kaikki kirjaimet "C", jotka edeltävät kirjainta "T".

Lisää jokaisen P-kirjaimen jälkeen kolme huutomerkkiä "!!!".

Lohko 7.

Ongelmia sisäkkäisten oksien ja silmukoiden kanssa.

Dia 22. Ongelman ratkaisu näytetään:

Korvaa annetussa tekstissä kirjain "a" kirjaimella "b" kaikkialla ja kirjain "b" kirjaimella "a".

Suora ratkaisu tähän ongelmaan "päässä" ei tuota tuloksia. Täällä sinun on valittava vain tarvittavat kirjaimet, jotta loput eivät muutu. Ja sitten, riippuen siitä, mikä kirjain löytyy, tee vaihto käyttämällä täydellistä ehtoa.

Dia 23. Dian 22 tehtävän vuokaavio näytetään.

Dia 24. Ongelman ratkaisu näytetään:

Annettu merkkijono, joka sisältää välimerkkejä. Laske mitä ja kuinka monta välimerkkiä rivi sisältää.

Tämä ongelma näyttää esimerkin sisäkkäisten silmukoiden käyttämisestä kahden merkkijonon vertaamiseen. Tämä ongelma on mahdollista ratkaista useilla ehdoilla, mutta sellainen ratkaisu ei mielestäni ole järkevä.

Lisäratkaisun ongelmat:

Annettu merkkijono (venäjä). Määritä vokaalien määrä tällä rivillä.

Annettu merkkijono (englanniksi). Selvitä, mitä ja kuinka monta vokaalia rivi sisältää.

Annettu merkkijono. Selvitä, millä hahmoilla on enemmän vokaaleja tai konsonantteja.

Annettu kaksi merkkijonoa A ja B. Selvitä, onko mahdollista muodostaa merkkijono B merkkijonon A kirjaimista. Lisäksi jokaista kirjainta voidaan käyttää kerran. Kirjeet voidaan järjestää uudelleen. (Esimerkiksi: voit saada AGENTin INTEGRALista, mutta et GRAPHia).

Teksti on annettu. Selvitä, kummassa on enemmän numeroita tai kirjaimia.

Kaksi riviä annetaan. Laske ja näytä yleisten kirjainten määrä. (Ensimmäisellä ja toisella rivillä näkyvät kirjaimet).

Valitse ja näytä annetusta tekstistä ne merkit, jotka esiintyvät siinä tarkalleen kerran.

Varoittaakseen toiminnan epäonnistumisesta Eustace keksi seuraavan ilmoitustavan. Hän lähettää sähkeen, jonka tekstissä on merkit "b", "e", "d", "a", välttämättä tässä järjestyksessä, mutta ei välttämättä peräkkäin. Luo ohjelma, jonka avulla voit määrittää, onko lähetetty teksti virheilmoitus vai ei.

Aiheen lujittamiseksi sinun on ratkaistava mahdollisimman monta ongelmaa. Niiden lukumäärä riippuu suoraan tietyn aiheen opiskeluun varatusta tuntimäärästä ja ohjelmointikurssista kokonaisuudessaan.

Mielestäni menestyneimmät ohjelmoinnin ongelmakirjat ovat:

Ohjelmointiongelmien kokoelma. 2. painos. Kirjailija D.M. Zlatopolsky. Julkaistu Pietarissa "BHV-Petersburg" vuonna 2007.

Elektroninen versio Ohjelmointitehtäväkirjan versiosta 4.6. Kirjailija M.E.Abramyan. Jaettu Pascal ABC -ohjelmointijärjestelmän kanssa.

He esittävät ongelmia kaikista ohjelmointikurssin aiheista.

Näiden ongelmakirjojen ja joidenkin muiden lähteiden pohjalta tein oman minitehtäväkirjani, jossa jaettiin tehtävät kolmeen vaikeusluokkaan A, B ja C.

http://privples.iv-edu.ru/informatica/1/Mater/SBORNIK_ZADAS.doc

Lataa abstrakti

Jos haluat käyttää esityksen esikatselua, luo Google-tili ja kirjaudu sisään siihen: https://accounts.google.com

Dian kuvatekstit:

Teksti- ja merkkitietotyypit Pascal Esityksen on laatinut tietojenkäsittelytieteen opettaja Tatjana Petrovna Kareva MBOU Gymnasium No. 6 of Mezhdurechensk, Kemerovo Region

Tietokoneet käsittelevät muutakin kuin vain numeroita. He viettävät melkein enemmän aikaa tekstin käsittelyyn. Pascalilla on tätä varten erityinen tietotyyppi, nimeltään CHAR (sanasta merkki). Kirjoita CHAR (merkki tai merkkijono tai literaali). Sen merkitykset ovat yksittäisiä merkkejä: kirjaimia, numeroita, merkkejä. Merkkivakiot ovat lainausmerkeissä, esimerkiksi 'A', 'B', 'C', '4', '7', ' ' (välilyönti). Merkkimuuttujat kuvataan lauseella Muuttujan nimi: char ;

Merkkiarvoja voidaan syöttää ja tulostaa, määrittää ja verrata. Alla on esimerkki, jossa kaikki nämä vaiheet suoritetaan. Var x, y: char; Begin Write(' Anna merkki'); readln(x); Y:='A'; Jos x

Symboleja on mahdollista verrata, koska ne on tallennettu tietokoneen muistiin kokonaislukuina (merkkikoodeina). Kahdesta symbolista sitä, jonka koodi on suurempi, pidetään suurempana. Merkit on järjestetty seuraavasti: ‘ A ’=,.

Tavalliset symboliset toiminnot. Pascalilla on vakiomuotoiset symbolifunktiot: CHR (N) – palauttaa koodin N ohjelmaan, ORD (S) – palauttaa symbolin S koodin, PRED (S) – palauttaa edellisen symbolin SUCC (S) – palauttaa seuraava symboli ESIMERKKEJÄ: CHR ( 128) = B ORD (':') = 58 PRED(' B') = A SUCC(' G') = D

Jokaisella merkillä on oma ainutlaatuinen binaarikoodinsa. Kaikkien symbolien koodit on koottu taulukkoon. Taulukon ensimmäisestä puoliskosta on tullut kansainvälinen standardi nimeltä ASCII - American Standard Code Information Interchange (luetaan "kysykoodina"), se sisältää muun muassa latinalaiset aakkoset, toisessa on eri vaihtoehdot eri kielille. Kyrillisillä aakkosilla (venäjän aakkosilla) on useita standardeja. Pascal käyttää KOI-8-standardia.

ESIMERKKI merkkityyppisen muuttujan käytöstä. Luo ohjelma, jossa tietokone laskee toistuvasti summan A + B A:n ja B:n eri arvoille. Jokaisen vaiheen lopussa ilmestyy pyyntö jatkaa tai lopettaa laskelmat: "Lopetetaanko ohjelma? (K/E) ).” Var A, B: todellinen; C: hiilty; Aloita toisto Write('Syötä kaksi numeroa'); Readln(a,b); Writeln(a + b:0:2); Writeln('Lopeta ohjelma?(K/E)'); Readln(c); Kunnes c='D'; (ohjelma sulkeutuu, jos syötetään D) Readln End.

Koulutustehtävät. 1 . Mitä funktio CHR(ORD(X)) palauttaa? 2. Määritä seuraavien funktioiden arvot: CHR(68) ORD('d') PRED(1) SUCC(' I ') 3. Luo ohjelma, jossa tietokone löytää parittomien lukujen tulon alkaen yksi, ja kunnes kunkin laskentavaiheen jälkeen esitettyyn kysymykseen: "Jatketaanko laskemista? (K/E)", vastaa "K".

Suurempien tekstiyksiköiden - merkkijonojen - käsittelemiseksi on otettu käyttöön tietotyyppi nimeltä STRING. Tämän tyyppiset arvot ovat merkkijonoja, joiden pituus on enintään 255. Merkkijonomuuttujat on kuvattava lauseella: VAR name: STRING Merkkijonoja voidaan määrittää, verrata, syöttää, tulostaa ja ketjuttaa. Yhteys ilmaistaan "+"-merkillä. Tässä on esimerkkejä joistakin merkkijonojen vertailuoperaatioista: "taulukko"

Kaikkien mahdollisten merkkijonoarvojen joukossa on tyhjä merkkijono. Sitä edustaa kaksi heittomerkkiä (yksittäinen lainausmerkki), joiden välissä ei ole mitään. Syöttääksesi tämän merkin merkkijonoon, sinun on toistettava se kahdesti. Esimerkiksi kirjoitusoperaattori ("about""fenomenon") näyttää: "declaration". Ohjelmoijalla on pääsy merkkijonomuuttujan yksittäisiin merkkeihin, tätä varten on muuttujan nimen lisäksi ilmoitettava sarjanumero Jos esimerkiksi muuttuja X:STRING on kuvattu, niin X on merkkijonon ensimmäinen merkki, X on toinen jne. X:llä on erityinen rooli - merkkijonon pituuden tallentamiseen X:n arvo on merkki, jonka koodi on yhtä suuri kuin merkkijonon merkkien määrä. Mutta merkkijonomuuttujan pituuden määrittämiseen käytetään yleensä LENGTH(merkkijonomuuttuja) -funktiota. Esimerkiksi jos N:=LENGTH( x); - N:lle annetaan arvo, joka on yhtä suuri kuin rivin merkkien määrä.

Merkkijonomuuttujaa kuvattaessa voimme rajoittaa merkkijonon pituutta määrittämällä sen suurimman mahdollisen koon, jolloin merkkijonoon tallennetaan vain määritetty määrä merkkejä. Muutt a,b:merkkijono ; begin write("kirjoita sana"); readln(a); Kirjoittaa); readlnend. Jos syötät sanan MAISSI suorittaessasi tätä ohjelmaa, ohjelma tulostaa COOK.

MUISTAA. Jos ohjelman suorituksen aikana joudut syöttämään arvot useille merkkijonomuuttujille, jokaisella niistä on oltava oma READLN-syötelause. Esimerkiksi Var a,b,c:string ; alkaa readln(a); readln(b); readln(c); kirjoittaa(a+b+c); readlnend. Tarkista mitä tapahtuu, jos kirjoitat READLN(a,b,c); tai LUE(a,b,c).

Esimerkki 1. Luo ohjelma, joka määrittää kumpi kahdesta sukunimestä on pidempi. Sukunimet ovat eripituisia. Muutt a,b:merkkijono ; alkaa readln(a); readln(b); jos pituus(a)>pituus(b) niin kirjoita(a) muuten kirjoita(b); readlnend.

Esimerkki 2. Annetaan kaksi sanaa. Kirjoita ohjelma sen määrittämiseksi, onko totta, että ensimmäinen sana alkaa samalla kirjaimella kuin toinen sana päättyy. Muut x,y:tavu ; a,b:merkkijono ; alkaa readln(a); readln(b); x:=pituus(b); (määritämme sanan b pituuden saadaksemme selville viimeisen merkin numeron) jos a=b[x] niin kirjoita ("tosi") muuten kirjoita ("väärä"); lue loppu.

Koulutustehtävät. 1. Kaupungin nimi annetaan. Määritä, onko siinä olevien merkkien määrä parillinen vai pariton. 2. Sana on annettu. Näytä sen kolmas merkki ja viimeinen merkki kahdesti. 3. Sana on annettu. Onko totta, että se alkaa ja päättyy samalla kirjaimella? 4. Sana on annettu. Vastaanota ja näytä kirjainyhdistelmä, joka koostuu sen kolmannesta ja viimeisestä merkistä. 5. Luo ohjelma, joka pyytää jalkapallojoukkueen nimeä ja toistaa sen näytöllä sanoilla: "Tämä on mestari!"

Pascalin merkkijonomuuttujien kanssa työskentelemiseen on olemassa joukko vakiomenettelyjä ja -funktioita. Niiden käyttö yksinkertaistaa ongelmanratkaisua. Haluan muistuttaa, että funktion suorituksen tulos on tallennettava sopivan tyyppiseen muuttujaan, ellei se, funktio, ole tietysti lausekkeen elementti. Toiminto merkkijonon tai sen osan kopioimiseen. S:=KOPIO(merkkijono, sijainti, N); Kopiointitoimintoa kutsutaan myös "leikkaukseksi". Toiminnon suorittamisen tulos on osa merkkijonoa, joka alkaa määritetystä kohdasta, jonka pituus on N.

Esimerkki: Ehdotus annetaan. Määritä ensimmäisen havaitsemasi kirjaimen "k" sarjanumero. Jos tällaista kirjettä ei ole, ilmoita siitä. Muutt x: kokonaisluku; nauha; begin write("Syötä lause"); readln(a); x:=pos(" - ",a); jos x=0, niin writeln ("Tällaista kirjainta ei ole") else writeln (x); readlnend.

Toimenpide merkkijonon osan poistamiseksi DELETE(rivi, aloitusnumero, merkkien määrä) Poistaa määritetyn määrän merkkejä lähdemerkkijonosta. Esimerkki: Annettu sana, joka koostuu parillisesta määrästä kirjaimia. Näytä sen ensimmäinen puolisko. Muutt i,x:tavu ; a,p:merkkijono ; Aloita toista kirjoitus ("Syötä sana, jossa on parillinen määrä kirjaimia"); readln(a); x:=pituus(a); (määritämme sanan pituuden) asti (x mod 2 = 0); x:= x div 2; (käytä kokonaislukujakoa) poista (a,x+1,x); Kirjoittaa); lue loppu.

Toimenpide alimerkkijonon lisäämiseksi merkkijonoon INSERT(rivi1, rivi2, sijainti); Rivi1 lisätään riville 2 alkaen määritetystä kohdasta. Koulutustehtävät. 1. Ehdotus annetaan. Määritä, kuinka monta tiettyä symbolia esiintyy. 2. Ehdotus annetaan. Korvaa kaikki kirjainyhdistelmän "ah" esiintymät sanalla "uh". 3. Sana on annettu. Tarkista, onko kyseessä "käännös", ts. lukee samalla tavalla alusta loppuun. 4. Sana annetaan: a. poista siitä ensimmäinen kirjain "o", jos sellainen on olemassa; b. poista siitä viimeinen kirjain "t", jos sellainen on olemassa. 5. Ehdotus annetaan. Poista siitä kaikki kirjaimet "s".

Dia 1

Dia 2

Merkkijono on merkkijono, ts. elementtejä tyyppiä char. Pascalissa merkkijonolla on tietotyyppi String. var Nimi: merkkijono [Pituus]; Jos pituutta ei ole määritetty, muistia varataan enintään 255 merkin pituiselle merkkijonolle. Teoria 1 var s1:string; merkkijono 255 merkkiä var s2:string; merkkijono 20 merkkiä

Dia 3

Säännöt: merkkijonot ovat samanarvoisia vain, jos niillä on sama merkkijoukko ja sama pituus; Esimerkiksi: "ABC"="ABC" ja "ABC"≠"abc", muuten merkkejä vertaillaan elementtikohtaisesti niiden koodien mukaan: "0"

Dia 4

Teoria 3 Kahden kielen yhdistäminen. s1:="2011" + "vuosi"; Writeln(s1); s1:="10"; s2:="luokka"; s3:=s1+" "+s2; Writeln(s3);

Dia 5

Pituusfunktio Pituus(S)-funktio määrittää merkkijonon S nykyisen pituuden. Tuloksena on kokonaisluku. Teoria 4 OHJELMAN pituus_1; VAR S: STRING; n:INTEGER; BEGIN Writeln('kirjoita sana "); Readln(S); n:= pituus (S) ; Writeln('kirjoita sana ", n:5, " lit.."); LOPPU. Kirjoitamme merkkijonon pituuden muuttujaan, jonka tyyppi on kokonaisluku PROGRAM Dlina_2; VAR S: STRING; BEGIN Writeln('kirjoita sana') ; Readln(S); Writeln('sana koostuu ', pituus (S) ,'kirjaimista.'); LOPPU. Näytämme merkkijonon pituuden funktion suorittamisen tuloksena Tehtävä 1. Luo ohjelma, joka laskee sanan kirjainten lukumäärän.

Dia 6

Usescrt; var a,b:string; m,n: Kokonaisluku; Aloita Clrscr; Writeln("Syötä ensimmäinen rivi");Readln(a); Writeln("Syötä toinen rivi"); Readln(b); m:=Pituus(a); n:=Pituus(b); if (m=n) then writeln("Rivit ovat yhtä suuret"); if (m>n) then writeln("Ensimmäinen on suurempi"); jos (m

Dia 7

Dia 8

Tehtävä 3. Luo ohjelma, joka leikkaa sanasta TIETOTIEDE kirjaimia niin, että niistä tulee sana CAKE. Ohjelma n3_1; Usescrt; var a,b,c,d:string; Aloita Clrscr; a:="tietotekniikka"; b:=""; c:=kopio(a,8,1); d:=kopio(a,4,2); b:=c+d+c; writeln(b); Loppu. Tehtävä merkkijonojen muodostamiseksi 7 Käytämme symbolisten muuttujien kanssa työskentelytoimintoa COPY Toinen vaihtoehto: Ohjelma n3_2; Usescrt; var a,b:string; Aloita Clrscr; a:='tietotekniikka"; b:=a+a+a+a; writeln(b); End. Käytämme merkkijonon määritelmää merkkijonona

Dia 9

Dia 10

Dia 11

Tyyppimuunnos 10 BEGIN s1:="123456789"; val(s1,n,koodi); Writeln(n); LOPPU. BEGIN s1:="123456789ABCDE"; val(s1,n,koodi); Writeln(n); LOPPU.

Dia 12

Dia 13

Dia 14

Dia 15

Dia 16

Tehtävä 7. Annettu merkkijono. Määritä, kuinka monta kertaa kirjain A (venäjä) esiintyy siinä. Ohjelma n5; UsesCrt; Var s:string; i,k:kokonaisluku; beginClrScr; Write("Syötä merkkijono"); readln(s); k:=0; i:=1 pituuteen, tee jos (s[i]="A"), sitten k:=k+1; writeln("Kirjain A esiintyy = ", k:8," kertaa"); loppu. Toista 1:stä viimeiseen kirjaimeen Jos A on i:nnellä paikalla, lisää K:tä 1:llä Merkkien laskeminen rivillä 15

Dia 17

Huomautus 16 kohteelle i:=1 pituuteen (pituuteen) ei aloita if (s[i]=…… if (s[i]=…… loppu; Huomautus: Jos sinun täytyy etsiä useita merkkejä riviltä, niin laita ehdot ohjelman hakasulkeisiin BEGIN...END

Dia 18

Merkkien laskenta rivillä 17 Alkusyöttö S i,1,length(s) Si ="A" K=K+1 Tulos K Loppu Kyllä Ei Vuokaavio kirjainten A laskemiseen rivillä K=0

Dia 19

Merkkien korvaaminen rivillä 18 Tehtävä 8. Annettu merkkijono. Korvaa kaikki sen kirjaimet A kirjaimella O. Ohjelma n6; UsesCrt; Var s:string; i:kokonaisluku; beginClrScr; Write("Syötä merkkijono"); readln(s); i:=1 pituuteen, tee jos (s[i]="A") sitten s[i]:="O"; kirjoitus(t); loppu. Käymme läpi 1:stä viimeiseen kirjaimeen. Jos A on i:nnellä paikalla, laita O i:nnelle kirjaimelle.

Dia 20

Merkkien korvaaminen rivillä 19 Alkusyöttö S i,1,length(s) Si ="A" Si ="O" Tulos S Loppu Kyllä Ei Vuokaavio ongelmaan A-kirjaimen korvaamisesta O:lla

Dia 21

Tehtävä 9 Poista kaikki R-kirjaimet (latinalaiset, isot) näppäimistöltä syötetystä merkkijonosta. Ohjelma n7; UsesCrt; var a,b:String; i:kokonaisluku; beginClrScr; Write("Syötä merkkijono = "); readln(a); b:=""; jos i:=1 pituuteen (a), tee jos (a[i]'R"), sitten b:=b+a[i]; a:=b; kirjoitusn(a); loppu. Toista 1:stä viimeiseen kirjain Valmistelemme lisämuuttujan. Jos i:nnessä paikassa ei ole R, lisäämme tämän kirjaimen siihen, mikä on B:ssä. Siirrämme B:ssä tapahtuneen takaisin A. Merkkien poistaminen riviltä 20

Aiheeseen liittyviä julkaisuja

Nopea tapa asentaa Windows ilman levyä tai flash-asemaa

Windows 7:n uudelleenasentaminen. Yksityiskohtainen kuvaus Windows 7:n uudelleenasennuksesta alusta loppuun. Voit asentaa Windows 7 for dummy-käyttöjärjestelmän uudelleen...
Rambler mail (sisäänkirjautuminen, asennus, postilaatikoiden kanssa työskentely) ja sen paikka muiden ilmaisten sähköpostipalvelujen joukossa Rambler mail ram

Hei, rakkaat blogisivuston lukijat. Kerran kirjoitin useita arvosteluja henkilökohtaisista kokemuksistani ja vaikutelmistani työskentelystä...