Práce s textem

Август 9, 2022

Содержание

2. Základní operace nad řetězci Function Pos(X,Z:S) : byte; Procedure Insert(Y:S; var Z:S;IP:byte); Function Concat(Z1,Z2:S):S; Function Copy(Z:S;
3. Algoritmus nalezení podřetězce VZ v retězci RAD postihuje následující podprogram: Procedure NAJDI(VZ,RAD:RET; var POZ:byte); var I,J,K,N
5. Скачать презентацию

Слайд 2

Základní operace nad řetězci
Function Pos(X,Z:S) : byte;
Procedure Insert(Y:S; var Z:S;IP:byte);
Function

Concat(Z1,Z2:S):S;
Function Copy(Z:S; OD,KOLIK:byte):S;
Procedure Delete(var Z:S; OD,KOLIK:byte);
Procedure Val(Z:S; var CIS:CT; R:integer);
Procedure Str(CIS:CT; var Z:S);
Př.: Val(Copy(PES,3,2),CMES,R);

Слайд 3

Algoritmus nalezení podřetězce VZ v retězci RAD postihuje následující podprogram:
Procedure NAJDI(VZ,RAD:RET;

var POZ:byte);
var I,J,K,N : byte;
T : Boolean;
begin K:= length(VZ);
N:= length(RAD);
I:=POZ;
repeat J:=1;
repeat T:=(VZ[J]=Z[J+I-1]);
J:=J+1
until (not T) or (J>K);
I:=I+1
until T or (I>N);
if T then POZ:=I-1 {nalezen na pozici POZ}
else POZ:=0; {nenalezen}
end;