Жолдық қатарлар

 C—'PENTIUM-ІІГ;

{3 қатарды салыстырып  үлкенін табу:}

If A>B

Then D:=A

Else D:=B;

IFD>C

Then Writeln('max=',D)

Else

Writeln('max=',C);

K:=X+' '+Y; {қатарларды біріктіру}

{2 қатарды салыстыру:}

If K=Concat(X,Y)

Then Writeln('K=X+Y1)

Else

Begin 
Writeln('K ten ernes X+Y');

Writeln('k=',K) End; 
Delete(A,8,2); {қатардан фрагмент алып тастау}

Writeln('A=',A);

Delete(B,2,6); {қатардан фрагмент алып тастау}

Writeln('B=',B);

lnsert('entium',B,2); {қатарға фрагмент қою}

Writeln('B1=',B);

К:=Сору(Ү,1,4);         {қатардан фрагмент көшіріп алу} Writeln('K1=',K);

l:=Pos(K,Y); {ү қатарында К фрагментінің орнын анықтау}

Writeln('l=',l);

N:=Length(X+Y);    {қатар узындығын анықтау} 
Writeln('N=',N); 
Writeln(Concat(x,'   ',y)); {қатарларды біріктіріп шығару}

Writeln('a-max=',Upcase('a')); {бас әріп етіп шығару}

Readln

END.

      [,1 17. Кез-келген жолдық қатардың  латын алфавитінің кіші әріптерін  бас әріпке айналдыру программасын  қүру.

/PROGRAM Kat3;

VAR

X:String;

K:Byte;

BEGIN

WriteC Қатардың  мәнін енгіз:  ');

Readln(X);

For K:=1 To Length(X) Do

X[K]:=Upcase(X[K]);

\Л/ггг.еІп('К,атардың  жаңа мәні Х= ', X);

Readln END.

118. X жолдық қатарында  кездесетін 'a' символдарын санап,  оларды 'Ь символымен ауыстыру  программасын құру.

PROGRAM Kat4;

VAR

X:String; K,N:Byte;

BEGIN \Л/ггІе('Қатардың  мәнін енгіз:  '); Readln(X);

For K: = 1 To Length(X) Do If X[K]='a' Then

Begin N:=N+1; X[K]:='b' End;

\Л/ггг.еІп('Қатардың  жаңа мәні Х= ', X,' қатарда ', N , ' "a" символы болды');

Readln END.

/119.X қатарындағы  фигуралық жақшалар ішінде түрған  фрагменттерді алып тастап шығару  программасы.

PROGRAM Katar6;

Type Katar=String;

VARX:Katar;  K, I: Byte;

Readln(X);

BEGIN \Л/гі1е('К,атардың  мәнін енгіз:

Repeat

K:=Pos('{',X); If K>OThen Begin l:=Pos('}',X);

If ІЖ Then Delete(X,K,l-K+1 ) End;

Until K=0;

\Л/ггІеІп('К,атардың  жаңа мәні Х=',Х);   Readln

120. Берілген  сөздің екі жаққа да бірдей  жазылып оқылатынын анықтау программасын  құру.

(мысалға: қызық,  қырық, қазак,, ана, ата, ара,  нан, шаш т.с.с. сөздер)

а) 1 түрі

PROGRAM Kat7;

VARX,Y:String, K:Byte;

BEGIN \Л/гКе('Қатардың  мәнін енгіз: '); Readln(X); Y:=";

ForK:=Length(X) Downto 1 Do Y:=Y+Copy(X,K,1);

If X=YThen \Л/ггг.еІп('Екіжаққа  да бірдей') Else \Л/ггіеІп('Бірдей емес'); Readln END.

ә) 2 түрі

PROGRAM Kat7;

VARX:String; K,N:Byte;

BEGIN  \Л/ггІе('К,атардың  мәнін енгіз:  ');  Readln(X); N:=0;

For K: = 1 To Length(X) Div 2 Do

If X[K]=X[(l_ength(X)+1 )-K] Then N:=N + 1 ;

If N=Length(X) Div 2 Then \Л/гН:еІп('Қатар  екі жаққа да бірдей оқылады')

Else Writeln('Oқылмaйды');

Readln End.

121. Берілген  футбол командалары тізімінен  Т әрпінен

басталатын футбол командаларын алыптастап, қайта

шығару программасы.

PROGRAM KatarS;

CONST T:Array[1..5] of String=(Tobol', 'Kaisar1, 'Irtysh', Taraz', Tor');

VARK,N,l:Byte;

BEGIN    For K: = 1 To 5 Do Write(T[K]:7); Writeln;

N:=5; K:=0;  Repeat K:=K+1;

While Copy(T[K],1,1)='T' Do Begin I:=K;

Repeat T[I]:=T[I + 1]; l:=l+1; Until I>=N;

T[N]:="; N:=N-1; End;

Until K>=N;

For K:=1 To N Do Write(T[K]:7); Readln END.

122. Берілген  футбол командалары аттарын кері  шығару

программасы(мысалға: Tobol сөзі ІоЬоТ болып шығу керек).

а) 1 түрі:

PROGRAM Katar9;

CONSTT:Array[1..5] Of String=(Tobor, 'Kaisar', ' Irtysh ', Taraz1   'Kairat')-

VAR K,l:Byte; S:Char; P:Array[1 ..5] Of String;

BEGIN ForK: = 1To5 Do Write(T[K]:7); Writeln;

For K: = 1 To 5 Do Begin   P[K]:=";

For l:=l_ength(T[K]) Downto 1 Do P[K]:=P[K]+Copy(T[K],l,1) End;

Writeln('Xana массив: ');

For K: = 1 To 5 Do Write(P[K]:7);   Readln END

ә)2түрі:

PROGRAM Katar9;

CONST T:Array[1..5] Of String=(Tobol-, 'Kaisar1, 'Irtysh1, Taraz', 'Kairaf); "VARK,l:Byte;S:Char;

BEGIN     For K: = 1 To 5 Do Write(T[K]:7); Writeln; ForK: = 1To5Do

For l:=1 To Trunc(Length(T[K])/2) Do Begin S:=T[K][I]; T[K][l]:=T[K][Length(T[K])-l+1]; T[K][Length(T[K])-l+1]:=SEnd;

Writeln('XaH,a массив  футбол командаларының кері аттарынан  түрады:'); For K: = 1 To 5 Do Write(T[K]:7);   Readln END.