Операции со строками Паскаль 9 класс. S1:=ABCDEFGH; S2:=Мама мыла раму; k1:=length(s1); k2:=length(s2); Что получим в результате? S1:=ABCDEFGH; S2:=abcdefgh; - презентация

1 Операции со строками Паскаль 9 класс

2 S1:=ABCDEFGH; S2:=Мама мыла раму; k1:=length(s1); k2:=length(s2); Что получим в результате? S1:=ABCDEFGH; S2:=abcdefgh; S3:=copy(s1,4,3); Writeln(s3); Writeln(copy(s2,4,3)); S1:=ABCDEFGH; Delete(s1,3,4); Writeln(s1); S1:=ABCDEFGH; S2:=abcdefgh; Insert(s1,s2,3); S1:=cde; S2:=ABCDEFGH; K1:=pos(s1,s2); K2:=pos(s2,s1);

3 program z1; var a,b:string; i,k,r:integer; begin readln(a); readln(b); k:=0; r:=length(a); for i:=1 to r do if a[i]=b then k:=k+1; {if copy(a,i,1)=b then k:=k+1; - можно и так} writeln(k); Readln; end.

4 program z2; var a,b:string; i,k,r:integer; Begin writeln(введите слово); readln(a); for i:=1 to length(a) do if a[i]='m' then a[i]:='p'; writeln(a); Readln; end.

5 program z3; var st:string; I,k:integer; begin writeln(введите несколько слов); readln(st); for i:=1 to length(st) do if st[i]:= then k:=k+1; writeln(k); Readln; end.

6 program z4; var st:string; I:integer; begin writeln(введите строку); readln(st); for i:=1 to length(st) do begin writeln(st[i]); delay(10000); end; readln; end.

7 program z5; var st:string; Begin writeln(введите строку); readln(st); while (pos(,st)=1) and (length(st)>0) do delete(st,1,1); writeln(st); Readln; end.

8 program z6; var st:string; I,k:integer; begin writeln(введите строку); readln(st); for i:=1 to length(st) do writeln(copy(st,I,1)); readln; end.

9 program z7; var st:string; I,k:integer; begin repeat writeln(st=); readln(st); until length(st)>5; writeln(copy(st,1,2),,copy(a,3,length(st)-4),,copy(a,length(st)-1, 2)) ; readln; end.

10 program z8; var st:string; I,k:integer; begin readln(st); for i:=1 to length(st) do begin if copy(st,I,1)=a then k:=k+1; end; writeln(k); Readln; end.

11 program z9; var st,st1, St2:string; I,k:integer; begin readln(st); st1:= ; for i:=1 to length(st) do begin st2:=copy(st,I,1); if pos(st2, st1)=0 then st1:=st1+st2; end; writeln(st2); readln; end.