Mavzu: O’zgaruvchilarning belgili va matn ko’rinishlari. Amaliy dasturlar va ulardan turli sohalarda foydalanish

end;

Write(b); ReadLn;

End.
3-misol. Berilgan so‘zda berilgan belgi bor yoki yo‘qligini aniqlovchi dastur tuzing.
Program Izlash;

Var suz : String; belgi : Char;

Begin

Write('So‘z kiriting : '); ReadLn(suz); Write('izlanayotgan belgini kiriting : '); ReadLn(belgi); If Pos(belgi,suz)>0 Then WriteLn('BOR') Else WriteLn('YO‘Q');

End.

Dastur bajarilgach kompyuter ekranida 'BOR' yoki 'YO‘Q' so‘zlari-dan biri aks etadi.

4-misol. 'saodat' va 'qadoq' so‘zlaridan 'sadoqat' so‘zini yasovchi dastur tuzing.
Program So‘z_yasash;

Var a,b : String;

Begin

a:='saodat'; b:='qadoq';

Delete(a,3,2); {a='saat' bo‘ldi}

Delete(b,1,2); {b='doq' bo‘ldi}

Insert(b,a,3); {a='sadoqat'}

WriteLn(a);

End.
5-misol. Berilgan 'Buyuk shoir Alisher Navoiy', 'yilda tug‘ilgan' jumlalari va 1441 sondan 'Buyuk shoir Alisher Navoiy 1441-yilda tug‘ilgan' satrni hosil qiluvchi dastur tuzing.