2023(e)ko martxoaren 10(a), ostirala

Insert prozedura






procedure insert(SartukoDenKatea: StringDatuMota; var KateNagusia: StringDatuMota; Non: integer);










Helburua: bere barnean azpikate bat duen katea lortzea, hots, kate bati hainbat karaktere txertatzea.



Emaitza: kate bat, hasierako katean azpikate bat txertatzen da toki batean.






program InsertAdibidea;





{ Insert prozedura erakusten duen programa }




var sEsaldia: string;





begin


  sEsaldia := 'Pascal is difficult to use!';


  insert('Free ', sEsaldia, 1);


  writeln(sEsaldia);

end.



Irteera honako hau izango litzateke: Free Pascal is difficult to use!








program InsertAdibidea;





{ Insert prozedura erakusten duen programa }




var sEsaldia: string;





begin


  sEsaldia := 'Free Pascal is difficult to use!';


  insert('NOT ', sEsaldia, pos('difficult', sEsaldia));


  writeln(sEsaldia);

end.



Irteera honako hau izango litzateke: Free Pascal is NOT difficult to use!



 
ordua:
Etiketak: ,

iruzkinik ez:

Argitaratu iruzkina

Harpidetu honetara: Argitaratu iruzkinak (Atom)