POS


function Pos (BilatzenDenKatea: StringDatuMota; KateNagusia: StringDatuMota): Integer;

Helburua: azpikate bat beste kate baten barruan dagoen ala ez jakitea.
Emaitza: zenbaki bat, azpikateari dagokion lehen agerpenaen posizioa katean.

Program PosAdibidea;

{ Pos funtzioa erakusten duen programa }

 { bilatzen den azpikatea kate nagusian badago Pos funtzioak azpikatearen }
{ lehen agerpenaren posizioa kate nagusian itzuliko du }
{ bilatzen den azpikatea ez badago kate nagusian Pos funtzioak 0 itzultzen du }

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);
end.


COPY


function Copy (Katea: StringDatuMota; Nondik: Integer; Zenbat: Integer): StringDatuMota;

Helburua: azpikate bat lortzea kate batetik.
Emaitza: kate bat, hasierako katearen zenbait karakterez osaturiko azpikatea.

Program CopyAdibidea;

{ Copy funtzioa erakusten duen programa }

Var sEmaitza, sDatua : String;

begin
sDatua := '1234567';
sEmaitza := Copy (sDatua,1,2); { S:='12' }
sEmaitza := Copy (sDatua,4,2); { S:='45' }
sEmaitza := Copy (sDatua,4,8); { S:='4567' }
end.


DELETE

procedure Delete (VAR Katea: StringDatuMota; Nondik: Integer; Zenbat: Integer);

Helburua: kate bati zenbait karaktere kentzea.
Emaitza: kate bat, hasierako kateari zenbait karaktere kendu ondoren.

Program DeleteAdibidea; { Delete prozedura erakusten duen programa } Var sEsaldia : String; begin sEsaldia := 'This is not easy !'; Delete (sEsaldia,9,4); { sEsaldia:='This is easy !' } end.


INSERT


procedure Insert (SartukoDenKatea: StringDatuMota; VAR KateNagusia: StringDatuMota; Non: Integer);

Helburua: azpikate bat bere barnean duen katea lortzea, hots, kate bati zenbait 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 := 'Free Pascal is difficult to use !';
Insert ('NOT ',sEsaldia,pos('difficult',sEsaldia));
writeln (sEsaldia);
end.


STR


procedure Str (Zenbakia: Integer/Real; VAR Katea: StringDatuMota);

Helburua: zenbaki batetik abiatuta dagokion katea lortzea.
Emaitza: kate bat, hasierako zenbakia kate bezala adierazita.

Program StrAdibidea;

{ Str prozedura erakusten duen programa }

Var
rZbk : Real;
iZbk : Integer;
sEsaldia : String;
begin
rZbk := 7.5E-02;
Str (rZbk, sEsaldia); { sEsaldia:='7.5E-02' }

iZbk := -38;
Str (iZbk, sEsaldia); { sEsaldia:='-38' }
end.


VAL


procedure Val (Katea: StringDatuMota; VAR Zenbakia: Integer/Real; VAR Kodea: Integer/Real);

Helburua: kate batetik abiatuta dagokion zenbakia lortzea.
Emaitza: zenbaki bat, katearen zenbaki bihurketa ondo egin den jakiteko errore kode dago.

Program ValAdibidea;

{ Val prozedura erakusten duen programa }

Var
iZbk, iErroreKodea : Integer;
sKatea : String;
begin
sKatea := '-57';
Val (sKatea,iZbk,iErroreKodea);
If iErroreKodea<>0 then
Writeln (iErroreKodea,' posizioan karaktere oker hau dago: ',sKatea[iErroreKodea])
else
Writeln ('Katetik zenbaki hau lortu dugu : ',iZbk);
end.


Última modificación: martes, 25 de junio de 2013, 13:15