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

Program So‘z_yasash;

Const a='mustaqil '; b='O‘zbekiston '; c='davlat';

Var d : String;

Begin

d:=Concat(b,'–'a,c); WriteLn(d);

End.
2-misol. Kiritilgan so‘zni teskarisiga o‘girib beruvchi dastur tuzing. Masalan, 'ota' so‘zidan 'ato' so‘zi hosil bo‘lishi kerak.
Yechish. Kiritilgan so‘zni a, hosil bo‘ladigan so‘zni b bilan belgilana-di. b ning qiymatini bo‘sh satrga tenglanadi (b:= ''). a ning uzunligi aniqlanadi va uning chap tomonidan boshlab bittadan belgisini olib b ga chap tomondan birlashtirib boriladi.
Program Teskari;

Var a, b, belgi: String; i, len : Integer;

Begin

Write('So‘z kiriting : '); ReadLn(a); Len:=Length(a); b:=''; For i:=1 To len Do begin

belgi:=Copy(a,i,1);{a ning i-belgisining nusxasi olindi}

b:=belgi+b; {a dan nusxasi olingan belgi b ning chap tomoniga qo‘shildi}