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.readln; |
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.readln; |
Irteera honako hau izango litzateke: Free Pascal is NOT difficult to use!
iruzkinik ez:
Argitaratu iruzkina
Iruzkinen bat idazteko Google-ko kontu bat behar duzu. Iruzkin guztien moderazio-ardura blogeko administratzaileari dagokio.