የዝግጅት አቀራረብ ቅድመ እይታዎችን ለመጠቀም ለራስህ መለያ ፍጠር ( መለያ) ጎግል እና ግባ፡ https://accounts.google.com

የስላይድ መግለጫ ጽሑፎች፡-

የጽሑፍ እና የቁምፊ መረጃ ዓይነቶች ፓስካል ዝግጅቱ የተዘጋጀው በኮምፒዩተር ሳይንስ መምህር ታቲያና ፔትሮቭና ካሬቫ MBOU ጂምናዚየም ቁጥር 6 በ Mezhdurechensk ፣ Kemerovo ክልል

የኮምፒዩተር ማሽኖች ከቁጥሮች በላይ ያካሂዳሉ. ጽሑፍን በማስኬድ የበለጠ ጊዜ ያጠፋሉ ማለት ይቻላል። ፓስካል ለዚህ ልዩ የውሂብ አይነት አለው CHAR (ከቃላት ቁምፊ) ይባላል. CHAR ይተይቡ (ቁምፊ ወይም ሕብረቁምፊ ወይም ቃል በቃል)። የእሱ ትርጉሞች የግለሰብ ቁምፊዎች ናቸው-ፊደሎች, ቁጥሮች, ምልክቶች. የቁምፊ ቋሚዎች በትዕምርተ ጥቅስ ውስጥ ተዘግተዋል፣ ለምሳሌ 'A'፣ 'B'፣ 'C'፣ '4'፣'7'፣ ' '(space)። የቁምፊ ተለዋዋጮች በአንቀጽ ተገልጸዋል Var ተለዋዋጭ ስም: ቻር;

የቁምፊ እሴቶች ሊገቡ እና ሊወጡ, ሊመደቡ እና ሊነፃፀሩ ይችላሉ. ከታች እነዚህ ሁሉ እርምጃዎች የሚከናወኑበት ምሳሌ ነው. Var x, y: char; ጀምር ፃፍ('ቁምፊ አስገባ'); readln (x); ዋይ፡='A'; x ከሆነ

ቁምፊዎች በኮምፒዩተር ማህደረ ትውስታ ውስጥ እንደ ኢንቲጀር (የቁምፊ ኮዶች) ስለሚቀመጡ ሊነፃፀሩ ይችላሉ. ከሁለቱ ምልክቶች, ኮዱ ትልቅ የሆነው ትልቅ ነው ተብሎ ይታሰባል. ቁምፊዎቹ እንደሚከተለው ተደርገዋል፡- ‘A’=,.

መደበኛ ተምሳሌታዊ ተግባራት. ፓስካል መደበኛ ተምሳሌታዊ ተግባራት አሉት፡ CHR (N) - ምልክቱን በኮድ N ወደ ፕሮግራሙ ይመልሳል፣ ORD (S) - የምልክቱን ኮድ S ፣ PRED (S) - የቀደመውን ምልክት SUCC (S) ይመልሳል - ቀጣይ ምልክት ምሳሌዎች፡ CHR (128) = B ORD (':') = 58 PRED('B') = A SUCC('G') = D

እያንዳንዱ ቁምፊ የራሱ ልዩ ሁለትዮሽ ኮድ አለው. የሁሉም ምልክቶች ኮዶች በሰንጠረዥ ውስጥ ተጠቃለዋል። የሠንጠረዡ የመጀመሪያ አጋማሽ ዓለም አቀፍ ደረጃ ሆኗል, እሱም ASCII - የአሜሪካ መደበኛ ኮድ መረጃ ልውውጥ ("አስኪ ኮድ ያንብቡ"), ከሌሎች ነገሮች መካከል የላቲን ፊደላትን ይይዛል, ሁለተኛው ደግሞ ለተለያዩ ቋንቋዎች የተለያዩ አማራጮች አሉት. የሲሪሊክ ፊደል (የሩሲያ ፊደል) በርካታ ደረጃዎች አሉት። ፓስካል የ KOI-8 መስፈርት ይጠቀማል።

ተለዋዋጭ የቁምፊ አይነት የመጠቀም ምሳሌ። ለተለያዩ የ A እና B እሴቶች ኮምፒዩተሩ A + Bን ደጋግሞ የሚያሰላበት ፕሮግራም ይፍጠሩ ። በእያንዳንዱ ደረጃ መጨረሻ ላይ ስሌቶቹን ለመቀጠል ወይም ለማቆም ጥያቄ ይመጣል: - “ፕሮግራሙ ይቁም? )” Var A, B: እውነተኛ; ሐ፡ ቻር; ድገም ጀምር ጻፍ ('ሁለት ቁጥሮች አስገባ'); Readln (a,b); የተፃፈ(a + b:0:2); ተፃፈ('ፕሮግራም ጨርስ?(Y/N)'); Readln (ሐ); እስከ c='D'; (ፕሮግራሙ D ከገባ ይወጣል) Readln End.

የስልጠና ተግባራት. 1. CHR(ORD(X)) ተግባር ምን ይመለሳል? 2. የሚከተሉትን ተግባራት ዋጋ ይወስኑ፡- CHR(68) ORD('d') PRED(1) SUCC('I') 3. ኮምፒዩተሩ ያልተለመዱ ቁጥሮችን የሚያገኝበትን ፕሮግራም ይፍጠሩ፣ ከ ጀምሮ አንድ, እና ከእያንዳንዱ ስሌት ደረጃ በኋላ ለሚጠየቀው ጥያቄ: "ስሌቶችን ይቀጥሉ? (Y/N)”፣ ‘Y’ ብለው ይመልሱ።

ትላልቅ የጽሑፍ አሃዶችን - strings - ለማስተናገድ STRING የሚባል የውሂብ አይነት ገብቷል። የዚህ አይነት እሴቶች እስከ 255 የሚደርሱ የቁምፊዎች ሕብረቁምፊዎች በአንቀጽ መገለጽ አለባቸው: VAR ስም: STRING ሕብረቁምፊዎች ሊመደቡ, ሊነፃፀሩ, ሊገቡ, ሊወጡ እና ሊጣመሩ ይችላሉ. ግንኙነቱ በ"+" ምልክት ይገለጻል። በሕብረቁምፊዎች ላይ ያሉ አንዳንድ የንፅፅር ስራዎች ምሳሌዎች እዚህ አሉ፡ "ጠረጴዛ"

ከሁሉም ሊሆኑ ከሚችሉ የሕብረቁምፊ እሴቶች መካከል ባዶ ሕብረቁምፊ አለ። በመካከላቸው ምንም በሌለበት በሁለት ሐዋርያት (በነጠላ ጥቅስ ምልክቶች) ተመስሏል። ይህን ቁምፊ ወደ ሕብረቁምፊ ለማስገባት ሁለት ጊዜ መድገም አለብህ። ለምሳሌ, የጽሑፍ ኦፕሬተር ("ob"" ክስተት") ያሳያል: መግለጫ በመስመሩ ላይ ያለው ምልክት ለምሳሌ ተለዋዋጭ X:STRING ከተገለጸ, X የቁምፊው የመጀመሪያው ቁምፊ ነው, X ሁለተኛው ነው, ወዘተ የ X እሴት በሕብረቁምፊው ውስጥ ካሉት የቁምፊዎች ብዛት ጋር እኩል የሆነ ቁምፊ ነው። (x); - N በመስመሩ ውስጥ ካሉት የቁምፊዎች ብዛት ጋር እኩል የሆነ እሴት ይመደባል.

የሕብረቁምፊ ተለዋዋጭን ስንገልጽ የሕብረ ቁምፊውን ከፍተኛ መጠን በመግለጽ የሕብረቁምፊውን ርዝመት ልንገድበው እንችላለን፣ ከዚያ የተገለጸው የቁምፊዎች ብዛት ብቻ በሕብረቁምፊው ውስጥ ይከማቻል። Var a,b:string; መጻፍ ይጀምሩ ("አንድ ቃል ያስገቡ"); readln (ሀ); ጻፍ (ሀ); readlnend. ይህንን ፕሮግራም በሚፈጽሙበት ጊዜ CORN የሚለውን ቃል ካስገቡ, ፕሮግራሙ COOK ያትማል.

አስታውስ። በፕሮግራሙ አፈፃፀም ወቅት ለብዙ የሕብረቁምፊ ተለዋዋጮች እሴት ማስገባት ካለብዎት እያንዳንዳቸው የራሳቸው READLN ግቤት መግለጫ ሊኖራቸው ይገባል። ለምሳሌ Var a,b,c:string; ጀምር readln (a); readln (ለ); readln (ሐ); ጻፍ (a+b+c); readlnend. READLN(a,b,c) ከጻፉ ምን እንደሚፈጠር ያረጋግጡ; ወይም አንብብ(a,b,c)።

ምሳሌ 1. ከሁለቱ የአያት ስሞች የትኛው እንደሚረዝም የሚወስን ፕሮግራም ይፍጠሩ። የአያት ስሞች የተለያየ ርዝመት አላቸው. Var a,b:string; ጀምር readln (a); readln (ለ); ርዝመት (ሀ)> ርዝመት (ለ) ከሆነ ከዚያ ይፃፉ (a) ሌላ ይፃፉ (b); readlnend.

ምሳሌ 2. ሁለት ቃላት ተሰጥተዋል. የመጀመሪያው ቃል ሁለተኛው ቃል ሲያልቅ በተመሳሳይ ፊደል መጀመሩ እውነት መሆኑን ለመወሰን ፕሮግራም ጻፍ። Var x,y:ባይት; a,b:string; ጀምር readln (a); readln (ለ); x: = ርዝመት (ለ); (የመጨረሻውን ቁምፊ ቁጥር ለማወቅ የቃሉን ርዝመት እንወስናለን) a=b[x] ከዚያም ይፃፉ ("እውነት") ሌላ ይፃፉ ("ትክክል ያልሆነ"); readln መጨረሻ .

የስልጠና ተግባራት. 1. የከተማዋ ስም ተሰጥቷል. በውስጡ ያሉት የቁምፊዎች ብዛት እኩል ወይም ያልተለመደ መሆኑን ይወስኑ። 2. ቃሉ ተሰጥቷል. ሶስተኛውን ባህሪ እና የመጨረሻውን ባህሪ ሁለት ጊዜ አሳይ። 3. ቃሉ ተሰጥቷል. እውነት ነው የሚጀምረው እና የሚጨርሰው በተመሳሳይ ፊደል ነው? 4. ቃሉ ተሰጥቷል. ሶስተኛውን እና የመጨረሻውን ባህሪ የያዘውን የፊደል ጥምር ይቀበሉ እና ያሳዩ። 5. የእግር ኳስ ቡድን ስም የሚጠይቅ ፕሮግራም ይፍጠሩ እና በስክሪኑ ላይ “ይህ ሻምፒዮን ነው!” በሚሉ ቃላት ይድገሙት።

በፓስካል ውስጥ ከሕብረቁምፊ ተለዋዋጮች ጋር ለመስራት ፣የመደበኛ ሂደቶች እና ተግባራት ስብስብ አለ። የእነሱ አጠቃቀም ችግር መፍታትን ቀላል ያደርገዋል. አንድን ተግባር የማስፈጸም ውጤት በተገቢው ዓይነት ተለዋዋጭ ውስጥ መቀመጥ እንዳለበት ላስታውሳችሁ እወዳለሁ፣ በእርግጥ ተግባሩ፣ የገለጻው አካል ካልሆነ በስተቀር። ሕብረቁምፊውን ወይም ከፊሉን የመቅዳት ተግባር። S:= COPY (ሕብረቁምፊ, አቀማመጥ, N); የቅጂው ተግባር "መቁረጥ" ተብሎም ይጠራል. ተግባሩን የማስፈጸም ውጤት ከተጠቀሰው የርዝመት አቀማመጥ ጀምሮ የሕብረቁምፊው አካል ይሆናል።

ምሳሌ፡- ፕሮፖዛል ተሰጥቷል። ያጋጠመውን የመጀመሪያ ፊደል "k" የመለያ ቁጥር ይወስኑ። እንደዚህ አይነት ደብዳቤ ከሌለ, እባክዎን ሪፖርት ያድርጉ. Var x: ኢንቲጀር; a:string; መጻፍ ይጀምሩ ("አረፍተ ነገር አስገባ"); readln (ሀ); x:=pos("እስከ"፣a); x=0 ከሆነ ከዚያም writeln ("እንደዚህ ያለ ፊደል የለም") ሌላ writeln (x); readlnend.

የሕብረቁምፊውን ክፍል የመሰረዝ ሂደት ሰርዝ(ሕብረቁምፊ፣ የመነሻ ቁጥር፣ የቁምፊዎች ብዛት) የተገለጹትን የቁምፊዎች ብዛት ከምንጩ ሕብረቁምፊ ያስወግዳል። ምሳሌ፡ እኩል የሆኑ ፊደሎችን የያዘ ቃል ተሰጥቷል። የመጀመሪያውን አጋማሽ አሳይ። Var i,x:ባይት; a,p:string; መድገም ጀምር ("ከቁጥር ፊደላት ጋር አንድ ቃል አስገባ"); readln (ሀ); x: = ርዝመት (ሀ); (የቃሉን ርዝመት እንወስናለን) እስከ (x mod 2 = 0); x:= x div 2; (ኢንቲጀር ክፍፍልን ተጠቀም) ሰርዝ (a,x+1,x); ጻፍ (ሀ); readln መጨረሻ .

ንኡስ ሕብረቁምፊን ወደ ሕብረቁምፊ የማስገባት ሂደት INSERT (መስመር1 ፣ መስመር2 ፣ አቀማመጥ); Line1 ከተጠቀሰው ቦታ ጀምሮ በመስመር2 ውስጥ ገብቷል። የስልጠና ተግባራት. 1. ፕሮፖዛል ተሰጥቷል. የአንድ የተወሰነ ምልክት ክስተት ብዛት ይወስኑ። 2. ፕሮፖዛል ተሰጥቷል. የ"አህ" ፊደል ጥምረት ሁሉንም ክስተቶች በ"ኡህ" ይተኩ። 3. ቃሉ ተሰጥቷል. “ተገላቢጦሽ” መሆኑን ያረጋግጡ፣ ማለትም ከመጀመሪያው እስከ መጨረሻው በተመሳሳይ መንገድ ያነባል። 4. ቃሉ ተሰጥቷል፡- ሀ. የመጀመሪያውን ፊደል "o" ከእሱ ያስወግዱ, እንደዚህ አይነት ፊደል ካለ; ለ. የመጨረሻውን ፊደል "t" ከእሱ ያስወግዱት, እንደዚህ አይነት ፊደል ካለ. 5. ፕሮፖዛል ተሰጥቷል. ሁሉንም "ዎች" ፊደሎች ከእሱ ያስወግዱ.

በኮምፒተር ሳይንስ በኃይል ነጥብ ቅርጸት "strings in Pascal" በሚለው ርዕስ ላይ አቀራረብ. ይህ የ10ኛ ክፍል ትምህርት ቤት ልጆች የዝግጅት አቀራረብ በቋንቋው ውስጥ ባለው የርዕስ ሕብረቁምፊ ውሂብ ላይ ስለ ንድፈ ሐሳቦች እና ተግባሮች ያብራራል። ፓስካል ፕሮግራሚንግ. የዝግጅቱ ደራሲ፡ የኮምፒውተር ሳይንስ መምህር ዩዲን ኤ.ቢ.

ከዝግጅት አቀራረቡ ቁርጥራጮች

ቲዎሪ

• ሕብረቁምፊ የቁምፊዎች ድርድር ነው፣ ማለትም. የቻር ዓይነት አባሎች. በፓስካል ውስጥ አንድ ሕብረቁምፊ የ String ውሂብ አይነት አለው።
• ርዝመቱ ካልተገለጸ ማህደረ ትውስታ እስከ 255 ቁምፊዎች ሕብረቁምፊዎች ይመደባል.
• ተግባር 1. በአንድ ቃል ውስጥ ያሉትን ፊደሎች ቁጥር የሚቆጥር ፕሮግራም ይፍጠሩ.
• ተግባር 2. ከቁልፍ ሰሌዳው የገቡትን ሁለት መስመሮች ርዝመት ያወዳድሩ.

Soru ተግባር

• የቅጂ(S፣ P፣ N) ተግባር የኤን ቁምፊዎችን ከሕብረቁምፊ S ንኡስ ሕብረቁምፊ ያወጣል፣ ከቦታው ይጀምራል። እዚህ N እና P የኢንቲጀር መግለጫዎች ናቸው።
• ተግባር 3. COMPUTER SCIENCE ከሚለው ቃል ፊደላትን የሚቆርጥ ፕሮግራም ፍጠር እና ኬኬ የሚለውን ቃል እንዲሰሩ ማድረግ።
• ተግባር 4. ከቁልፍ ሰሌዳው ላይ የገባውን የተፈጥሮ ቁጥር የመጀመሪያ እና የመጨረሻ አሃዝ የሚታተም ፕሮግራም ይፃፉ።

VAL ሂደት

የቫል አሠራር ዲጂታል ቁምፊዎችን (የቁጥር ምስል) ወደ ቁጥር እንዲቀይሩ ያስችልዎታል. በአጠቃላይ የሂደቱ ጥሪ ይህን ይመስላል።

• VAL (ሕብረቁምፊ, ቁጥር, ኮድ);
• ሕብረቁምፊ የቁጥር ምስል የያዘ ቋሚ ወይም ተለዋዋጭ የሆነበት;
• ቁጥር - እሴት መመደብ ያለበት የኢንቲጀር ወይም ክፍልፋይ ዓይነት ተለዋዋጭ
• ኮድ - በሂደቱ የተመለሰ የስህተት ኮድ (ኢንቲጀር)

ልወጣ ይተይቡ

ፓስካልኤቢሲ እንደ DELPHI ያሉ በጣም የላቀ የለውጥ መሳሪያ አለው፡-

• S:=IntToStr(N) - ኢንቲጀር ወደ ሕብረቁምፊ ይቀይራል;
• n:=StrToInt(S) - ሕብረቁምፊን ወደ ኢንቲጀር ይቀይራል።
• S:=FloatToStr(r) - እውነተኛ ቁጥርን ወደ ሕብረቁምፊ ይቀይራል።
• R:=StrToFloat(ዎች) ሕብረቁምፊን ወደ እውነተኛ ቁጥር ይቀይራል።

ልወጣው የማይቻል ከሆነ የአሂድ ጊዜ ስህተት ይከሰታል

ORD እና CHR ተግባራት

• ተግባር Ord (S) - የምልክቱን መደበኛ ቁጥር ይወስናል.
• ተግባር Chr(i) - መለያ ቁጥር ያለው ቁምፊ ይወስናል i

ተግባር 6. ከቁልፍ ሰሌዳው በገባው ቁምፊ ላይ በመመስረት ቁጥሩን በኮድ ሠንጠረዥ ውስጥ የሚያሳይ ፕሮግራም ይፍጠሩ.

በሕብረቁምፊ ውስጥ ቁምፊዎችን መቁጠር

ችግር 7. የቁምፊዎች ሕብረቁምፊ ተሰጥቷል። በውስጡ ምን ያህል ጊዜ A (ሩሲያኛ) ፊደል እንደሚታይ ይወስኑ.

በሕብረቁምፊ ውስጥ ቁምፊዎችን መተካት

ችግር 8. የቁምፊዎች ሕብረቁምፊ ተሰጥቷል። በውስጡ ያሉትን ሁሉንም ፊደሎች A በ O ፊደል ይተኩ.

ቁምፊዎችን ከአንድ ሕብረቁምፊ በማስወገድ ላይ

ተግባር 9 ሁሉንም ፊደሎች R (ላቲን፣ ካፒታል) ከቁልፍ ሰሌዳው ከገባው ሕብረቁምፊ ያስወግዱ።

የተቀመጡ ሁኔታዎች

ተግባር 10. በተሰጠው ጽሑፍ ውስጥ "a" የሚለውን ፊደል በሁሉም ቦታ በ "b" ፊደል ይተኩ, እና "b" በ "ሀ" ፊደል ይተኩ.

የጎጆ ቀለበቶች

ችግር 11. ሥርዓተ ነጥብ የያዙ የቁምፊዎች ሕብረቁምፊ ተሰጥቷል። አንድ መስመር ምን እና ምን ያህል ሥርዓተ-ነጥብ እንደሚይዝ ይቁጠሩ።

ስላይድ 1

2012 ሕብረቁምፊዎች በፓስካል

ስላይድ 2

ሕብረቁምፊ የቁምፊዎች ድርድር ነው፣ ማለትም. የቻር ዓይነት አባሎች. በፓስካል ውስጥ አንድ ሕብረቁምፊ የ String ውሂብ አይነት አለው።

var ስም: ሕብረቁምፊ [ርዝመት];

ርዝመቱ ካልተገለጸ ማህደረ ትውስታ እስከ 255 ቁምፊዎች ሕብረቁምፊዎች ይመደባል.

ቲዎሪ 1 var s1: string;

ሕብረቁምፊ 255 ቁምፊዎች

var s2: ሕብረቁምፊ; ሕብረቁምፊ 20 ቁምፊዎች

ስላይድ 3

ደንቦች: ሕብረቁምፊዎች አንድ አይነት የቁምፊዎች ስብስብ እና ተመሳሳይ ርዝመት ካላቸው ብቻ እኩል ናቸው; ለምሳሌ፡- "ABC"="ABC" እና "ABC"≠"abc" ያለበለዚያ በኮዳቸው የቁምፊዎች ንፅፅር-በአባል ንፅፅር አለ፡ "0"

ሁለት ገመዶችን ማወዳደር

የመስመር ኮዶች ድምር S1

የመስመር ኮዶች ድምር S1>S2፣

ስላይድ 4

የሁለት ሕብረቁምፊዎች ውህደት።

s1: = "2011" + "አመት"; የተፃፈ(s1);

s1: = "10"; s2: = "ክፍል"; s3:=s1+""+s2; የተፃፈ(s3);

ስላይድ 5

የርዝማኔ ተግባር

የርዝመት(ኤስ) ተግባር የሕብረቁምፊውን የአሁኑን ርዝመት ይወስናል S. ውጤቱ የኢንቲጀር ዋጋ ነው።

የፕሮግራሙ ርዝመት_1; VAR S: STRING; n:INTEGER; ጀምር ተፃፈ ('ቃሉን አስገባ"); Readln (S); n:= ርዝመት (ኤስ) ; ተፃፈ ('ቃሉን አስገባ ", n:5, "lit.."); መጨረሻ

የሕብረቁምፊውን ርዝመት ወደ ኢንቲጀር ዓይነት ወደ ተለዋዋጭ እንጽፋለን

የፕሮግራም ርዝመት_2; VAR S: STRING; ጀምር ተፃፈ('አንድ ቃል አስገባ'); Readln (ኤስ); የተፃፈ ('ቃሉ '፣ ርዝመት (ኤስ)፣' ፊደሎችን ያካትታል።') መጨረሻ

ተግባሩን በመፈፀም ምክንያት የሕብረቁምፊውን ርዝመት ያሳዩ

ተግባር 1. በአንድ ቃል ውስጥ ያሉትን ፊደሎች ቁጥር የሚቆጥር ፕሮግራም ይፍጠሩ.

ስላይድ 6

Usescrt; var a,b:string; m,n:ኢንቲጀር; Clrscr ጀምር; ተፃፈ("የመጀመሪያውን መስመር አስገባ");Readln(a); ተፃፈ ("ሁለተኛውን መስመር አስገባ"); m: = ርዝመት (ሀ); n:=ርዝመት(ለ); ከሆነ (m=n) ከዚያም writeln ("መስመሮቹ እኩል ናቸው"); ከሆነ (m>n) ከዚያም writeln ("የመጀመሪያው ይበልጣል"); ከሆነ (ኤም

ተግባር 2. ከቁልፍ ሰሌዳው የገቡትን ሁለት መስመሮች ርዝመት ያወዳድሩ.

የሕብረቁምፊዎችን ርዝመት አስሉ

ርዝመቶችን እናነፃፅራለን እና ተዛማጅ ማብራሪያዎችን እናሳያለን

የሕብረቁምፊ ንጽጽር ችግር 5

ስላይድ 8

ተግባር 3. COMPUTER SCIENCE ከሚለው ቃል ፊደላትን የሚቆርጥ ፕሮግራም ፍጠር እና ኬኬ የሚለውን ቃል እንዲሰሩ ማድረግ።

ፕሮግራም n3_1; Usescrt; var a,b,c,d:string; Clrscr ጀምር; a: = "የኮምፒውተር ሳይንስ"; b:=""; c: = ቅጂ (a,8,1); መ: = ቅጂ (a,4,2); b:=c+d+c; መጻፍ (ለ); መጨረሻ።

የመስመር ተግባር 7

ከምልክታዊ ተለዋዋጮች ጋር ለመስራት የ COPY ተግባርን እንጠቀማለን።

ሁለተኛ አማራጭ፡ ፕሮግራም n3_2; Usescrt; var a,b:string; Clrscr ጀምር; a:='ኮምፒውተር ሳይንስ"፤ b:=a+a+a+a፤ writeln(b)፤ መጨረሻ።

የሕብረቁምፊን ትርጉም እንደ የቁምፊዎች ድርድር እንጠቀማለን።

ስላይድ 9

ለውጥ 8 ይተይቡ

የ STR ተግባር

Str(x፣ S) ቁጥር ​​xን ወደ ሕብረቁምፊ ቅርጸት ይለውጠዋል። x ማንኛውም የቁጥር አገላለጽ ባለበት፣ S የሕብረቁምፊ ተለዋዋጭ ነው።

ተግባር 4. ከቁልፍ ሰሌዳው ላይ የገባውን የተፈጥሮ ቁጥር የመጀመሪያ እና የመጨረሻ አሃዝ የሚታተም ፕሮግራም ይፃፉ።

የፕሮግራም ፕሪመር; Crt ይጠቀማል; VAR S: STRING; n:INTEGER; BEGIN ጻፍ ("ቁጥር አስገባ");readln (n); Str(n,S); የተፃፈ("የመጀመሪያ አሃዝ -"S); ተፃፈ("የመጨረሻው አሃዝ"፣S); መጨረሻ

እንለወጥ የተፈጥሮ ቁጥርወደ መስመር

ስላይድ 10

የቫል አሠራር ዲጂታል ቁምፊዎችን (የቁጥር ምስል) ወደ ቁጥር እንዲቀይሩ ያስችልዎታል. በአጠቃላይ ወደ አንድ አሰራር መደወል ይህን ይመስላል: VAL (ሕብረቁምፊ, ቁጥር, ኮድ); ሕብረቁምፊ የቁጥር ምስል የያዘ ቋሚ ወይም ተለዋዋጭ የሆነበት; ቁጥር - እሴት ኮድ መመደብ ያለበት የኢንቲጀር ወይም ክፍልፋይ ዓይነት ተለዋዋጭ - የስህተት ኮድ በሂደቱ የተመለሰ (ኢንቲጀር)

አይነት ልወጣ 9

VAL ሂደት

ስላይድ 11

ልወጣ ይተይቡ 10

BEGIN s1: = "123456789"; ቫል(s1,n,code); የተፃፈ (n); መጨረሻ

BEGIN s1: = "123456789ABCDE"; ቫል(s1,n,code); የተፃፈ (n); መጨረሻ

ስላይድ 12

s1: = "ABCDE123456789"; ቫል(s1,n,code); የተፃፈ (n);

ፓስካልኤቢሲ እንደ DELPHI: S:=IntToStr(N) - ኢንቲጀርን ወደ ሕብረቁምፊ ይቀይራል; n:=StrToInt(S) - ሕብረቁምፊን ወደ ኢንቲጀር S:=FloatToStr(r) - እውነተኛ ቁጥርን ወደ ሕብረቁምፊ ይቀይራል R:=StrToFloat(ዎች) ሕብረቁምፊን ወደ እውነተኛ ቁጥር ይቀይራል። ልወጣው የማይቻል ከሆነ የአሂድ ጊዜ ስህተት ይከሰታል

ለውጥ 11 ይተይቡ

ስላይድ 13

ልወጣ ይተይቡ 12

ችግር 5. የቁምፊዎች ሕብረቁምፊ የተሰጠው a1+a2=። የት 1

VAR S: STRING; a,b,c:እውነተኛ; ኮድ፡INTEGER; BEGIN ጻፍ ('አገላለጽ አስገባ = ")፤ ማንበብ(ዎች)፤ ቫል(s፣a፣code)፤ val(s፣b፣code)፤ (s="+") ከሆነ c:=a+b፤ ከሆነ (s="-") ከዚያም c: = a-b;

የመጀመሪያውን እና ሦስተኛውን ቁምፊዎች ከሕብረቁምፊው ወስደን ወደ ቁጥር እንለውጣቸዋለን

ስላይድ 14

ምልክቶች እና ኮዶች 13

ORD እና CHR ተግባራት

ተግባር Ord (S) - የምልክቱን መደበኛ ቁጥር ይወስናል.

ተግባር Chr(i) - መለያ ቁጥር ያለው ቁምፊ ይወስናል i

በቁጥር 255 ምልክቱን ከኮድ ሠንጠረዥ I

ስላይድ 15

ምልክቶች እና ኮዶች 14

ተግባር 6. ከቁልፍ ሰሌዳው በገባው ቁምፊ ላይ በመመስረት ቁጥሩን በኮድ ሠንጠረዥ ውስጥ የሚያሳይ ፕሮግራም ይፍጠሩ.

የፕሮግራም ፕሪመር; Crt ይጠቀማል; VAR S: char; n,code:INTEGER; BEGIN ጻፍ ("ቁምፊ አስገባ");readln(ዎች); ተፃፈ("ምልክቱ"፣ s" ኮዱ አለው -"ord(s)); መጨረሻ

የ ORD ተግባር የሚሠራው ከቁምፊ ውሂብ ዓይነት ጋር ብቻ ነው።

ስላይድ 16

ችግር 7. የቁምፊዎች ሕብረቁምፊ ተሰጥቷል። በውስጡ ምን ያህል ጊዜ A (ሩሲያኛ) ፊደል እንደሚታይ ይወስኑ.

ፕሮግራም n5; UsesCrt; Var s: ሕብረቁምፊ; i,k:ኢንቲጀር; startClrScr; ጻፍ ("ሕብረቁምፊ አስገባ"); readln (ዎች); k:=0; ለ i: = 1 እስከ ርዝመት(ዎች) አድርግ (s[i] = "A") ከዚያም k:=k+1; writeln ("ፊደል A ይከሰታል = ", k: 8," ጊዜዎች "); መጨረሻ።

ከ 1 ወደ መጨረሻው ፊደል ይድገሙት

A በ i-th ቦታ ከሆነ K በ 1 ጨምር

በመስመር 15 ውስጥ ቁምፊዎችን መቁጠር

ስላይድ 17

ማስታወሻ 16

ለ i:=1 እስከ ርዝማኔ(ዎች) የሚጀምሩት (s[i]=…… ከሆነ (s[i]=…… መጨረሻ ከሆነ;

አስተያየት. በአንድ መስመር ውስጥ ብዙ ቁምፊዎችን መፈለግ ከፈለጉ በፕሮግራም ቅንፎች ውስጥ ያሉትን ሁኔታዎች እንጨምራለን BEGIN ... END

ስላይድ 18

በመስመር 17 ውስጥ ቁምፊዎችን መቁጠር

የግቤት S i1፣ርዝመት(ዎች) ሲ ="A" K=K+1 ውፅዓት K ጀምር አዎን አይደለም

በአንድ መስመር ውስጥ ሆሄያትን ለመቁጠር ችግር የወራጅ ገበታ

ስላይድ 19

በመስመር 18 ውስጥ ቁምፊዎችን መተካት

ችግር 8. የቁምፊዎች ሕብረቁምፊ ተሰጥቷል። በውስጡ ያሉትን ሁሉንም ፊደሎች A በ O ፊደል ይተኩ.

ፕሮግራም n6; UsesCrt; Var s: ሕብረቁምፊ; እኔ: ኢንቲጀር; startClrScr; ጻፍ ("ሕብረቁምፊ አስገባ"); readln (ዎች); ለ i: = 1 እስከ ርዝማኔ(ዎች) አድርግ (s[i] = "A") ከዚያም s[i]: = "O"; መጻፍln (ዎች); መጨረሻ።

A በ i-th ቦታ ላይ ከሆነ, ያስቀምጡት i-th ቦታስለ.

ስላይድ 20

በመስመር 19 ውስጥ ቁምፊዎችን መተካት

Si = "O" ውፅዓት ኤስ

ፊደል Aን በO የመተካት ችግር ወራጅ ገበታ