function pos(BilatzenDenKatea: StringDatuMota; KateNagusia: StringDatuMota): integer;
|
Helburua: azpikate bat beste kate baten barruan dagoen ala ez jakitea.
Emaitza: zenbaki bat, azpikateari dagokion lehen agerpenaren posizioa katean. 0 azpikatea ez dagoenean.
program PosAdibidea;
{ Pos funtzioa erakusten duen programa }
{ bilatzen den azpikatea kate nagusian badago Pos funtzioak azpikatearen lehen }
{ agerpenaren posizioa kate nagusian itzuliko dio modulu deitzaileari, eta }
{ bilatzen den azpikatea ez badago kate nagusian Pos funtzioak 0 itzuliko dio } var
sEsaldia: string;
begin
sEsaldia := 'The first space in this sentence is at position: ';
writeln(sEsaldia, pos(' ', sEsaldia));
sEsaldia := 'The last letter of the alphabet doesn''t appear in this sentence ';
if (Pos('Z', sEsaldia)=0) and (Pos('z', sEsaldia)=0) then
writeln(sEsaldia);
readln; |
iruzkinik ez:
Argitaratu iruzkina
Iruzkinen bat idazteko Google-ko kontu bat behar duzu. Iruzkin guztien moderazio-ardura blogeko administratzaileari dagokio.