Ia9 -fesil-1: 9 qxd

Write ('Tam ədədi daxil edin: '); ReadLn (NumStr); Val (NumStr, IntNum, Error) until Error = 0;

Əgər daxil edilən ədəd sətirdirsə,Valproseduru bu sətriIntNumtam ədədinəmənimsədir. Əgər oxunan sətirdə rəqəmdən başqa ayrı simvollar da olarsa,Errordəyişəninin qiyməti sıfırdan fərqli olacaq və beləliklə də dövr təkrarla-nacaq.

• Str (X,St). Bu prosedurValprosedurunun əksini edir, yəni ədədi sətrə çevirir.Str (123 :5, NumSt)operatoruNumStdəyişəninə ' 123' sətrini yazacaq.Burada 5 sətirdəki simvolların sayını göstərir.

İndi göstərilən prosedurların bəzilərinin tətbiq olunduğu aşağıdakı misalabaxaq. Burada istifadəçinin göstərdiyi sözə sətirdə neçə dəfə rast gəlindiyi he-sablanır.

program P;

var s, s1: string; k, i: Integer;

begin

Write ('İlkin sətri daxil edin: '); ReadLn (s);

Write ('Axtarılan sözü daxil edin: '); ReadLn (s1);

k := 0;

while Pos(s1, s) begin

k := k + 1; Delete(s, Pos end;

WriteLn (k); end.

1. 
   Sətir nədir və onun üzərində hansı əməliyyatlar aparılır?
   
2. 
   Tutaq ki,Templ := 'Abra' və Temp2 := 'kadabra'.Aşağıdakı funksiya və prosedurların nəticəsini müəyyənləşdirin.
   
   1. 
      Magic := Concat(Temp1, Temp2)
      
   2. 
      Length(Magic)
      
   3. 
      HisMagic := Copy(Magic, 1, 8)
      
   4. 
      Delete(HisMagic, 4, 3)
      
   5. 
      Insert(Temp1, HisMagic, 3)
      
   6. 
      Pos(Temp2, Magic)
      
   7. 
      Pos(Temp1, Magic)
      
   8. 
      Val('1.234', RealNum, Error)
      
   9. 
      Str(1.234 :3:1, RealStr)
      
3. 
   Sətrin polindromu onun özündən və tərs yazılışından ibarətdir. İstənilən sətrinpolindromunu yaradan funksiya yazın. Yəni bu funksiyanın girişinə 'abc' ver-dikdə, çıxışda 'abccba' alınmalıdır.
   
4. 
   Sətirdə olan saitlərin sayını hesablayan proqram yazın.
   

ALTPROQRAMLAR.

FUNKSİYALAR VƏ PROSEDURLAR

İnsan həcmi bir neçə yüz sətir olan alqoritmdən "baş çıxara" bilər. Proqramsətirlərinin sayı artdıqca işin ümumi məntiqi itir. Konkret operatorların yerinəyetirdiyi əməliyyatlar elementar olsa da, onların ümumi məqsədini başa düşməkçətinləşir. Proqramın strukturu və onun yerinə yetirilmə ardıcıllığı aydın olmur.Belə alqoritmi dəyişdirmək, yaxud düzəltmək çox çətin olur.

Bu problemi həll etmək üçün alqoritm sadə əməliyyatları yerinə yetirən ayrı-ayrı alqoritmlərə bölünür. Belə ayrıca alqoritmlərə yardımçı alqoritmlər deyilir.Proqramlaşdırma dillərində yardımçı alqoritm termininin yerinə altproqram ter-minindən istifadə olunur. Yardımçı alqoritmə (altproqrama) müraciət etmək üçünonu çağırmaq lazımdır.

Adətən orta ölçülü proqramları hər biri çox da çətin olmayan əməliyyatı ye-rinə yetirən kiçik altproqramlara bölürlər. Yekun alqoritm ayrı-ayrı operatorlar-dan deyil, hər birinin öz adı olan bitkin kod bloklarından ibarət olur. Bu halda alt-proqramlara proqramçıların təyin etdiyi yeni operatorlar kimi baxmaq olar.