14-tema. Paskalda qatarıy shamalar menen islew

Program sqatar2; var s1,s2:string[25]; begin s1:='Operalar';

s2:='tor'; insert(s2,s1,6); Write('s1=',s1); end. Nátiyje: s1=Operatorlar.

2. 
   str(IR,st). Bul procedura IR – integer yamasa real tipine tiyisli bolǵan ózgeriwshini string tipine ótkeredi hám st qatarlıq ózgeriwshisine menshikleydi. Bul jerde ádettegi write, writeln operatorları sıyaqlı IR operatorı izinde ’:’ belgisi arqalı formatlaw múmkin. Mısal(Example):
   

... k:=1500; str=(k:6,st); operator st:=” 1500”;operatorı menen teń kúshli yamasa

... P:=4.8E+0.3; Str(p:10;st); operator St:=’ 4800’; operatorı menen teń kúshli;

Mısal(Example):

Program sqatar3; var s1,s2,s3,s4:string[20]; v1:integer; v2:real; begin v1:=10; v2:=5.09.13;

s1:='DATA:'; str(v1,s2); str(v2:4:2,s3); s4:=concat(s1,s2,’.’,'0',s3,'ǵ); Write(s4); end. Nátiyje: DATA:10. 05. 09

4) val(st, ir, cod). Bul procedura st string tipine tiyisli mánisti real yamasa integer tipine ótkeredi. Bul jerde cod pútin ózgeriwshi bolıp, ol qáte jazılǵan simvol poziciyasın kórsetedi. Eger simvollardı real yaki integer tipine ótkeriw múmkin bolsa cod:=0 mánisin qabıl etedi. Mısalı:
St:=’12a5’;
Qatarın sanǵa ótkeretuǵın bolsaq, cod:=3 boladı yaǵnıy 3 – poziciyada natuwrı simvoldıń bar ekenligin ańlatadı.
Eger
St:=’2460’; val(st,l,k);
Bolsa onda k:=0, l:=2460 boladı. Bul jerde st string tipine, k hám l bolsa Integer tipine tiyisli yamasa, st:=’24*3A 65’; val (st,l,k); bolsa, onda k:=5, l haqıyqıy ózgeriwshi mánisin qabıl etpeydi.
Mısal(Example):