1. Берілген А= «кітапхана», B= «компьютер» жолдық шамаларын пайдалана отырып кітап, ана, танк, парта, сөздерін құрайтын программа құру .
PROGRAM Katar1;
VAR A,B:string;
BEGIN
A:=’кітапхана’;
B:=’компьютер’;
Writeln(Copy(A,1,5));
Writeln(Copy(A,7,3));
Writeln(Copy(A,3,2)+ Copy(A,8,1)+ Copy(A,1,1));
Writeln(Copy(A,5,1)+ Copy(A,4,1)+ Copy(В,9,1)+ Copy(A,3,2));
END.
2. Кез келген жолдық қатарда кездесетін "а" символдарын "о" символдарымен ауыстыратын программасын құру.
PROGRAM Katar2;
VAR X:String; K,N:Byte;
BEGIN Write('Қатардың мәнің енгіз'); Readln(X);
For K:=1 to Length(X) do if X[K]='a' then X[K]='o' ;
Writeln ('Қатардың жаңа мәні-', X, 'қатарда',N,'а символы болды');
Readln END.
3. Берілген сөзде қанша «а» әрібі бар екенін анықтайтын программа құру.
PROGRAM Katar3;
VAR X:String; K:Byte;
BEGIN Write('Қатардың мәнің енгіз'); Readln(X);
For K:=1 to Length(X) do
If X[K]:='a' then N:=N+1;
Writeln (N,' ''а" әріпі бар ' );
Readln END.
4. Кез келген жолдық қатардың латын алфавитінің кіші әріптерін бас әріпке айналдыру программассын құру.
PROGRAM Katar4;
VAR X:String; K:Byte;
BEGIN Write('Қатардың мәнің енгіз'); Readln(X);
For K:=1 to Length(X) do if X[K]:=Upcase(X[K]);
Writeln ('Қатардың жаңа мәні-', X);
Readln END.
5. Берілген сөздің екі жаққа да бірдей жазылып оқылатының анықтау программасын құру
(мысалы: қазақ, қырық, қызық, ата, ана нан т.с.с сөздер)
PROGRAM Katar5;
VAR X:String; K,N:Byte;
BEGIN Write('Қатардың мәнің енгіз'); Readln(X);
N:=0;
For K:=1 to Length(X) div 2 do
If X[K]= X[(Length(X)+1)- K] then N:=N+1;
If N= Length(X) div 2 then Writeln ('Қатар екі жаққа бірдей оқылады') Else
Writeln ('Оқылмайды');
Readln END.
6. Берілген сөзді кері шығару программасы. (Мысалы мектеп сөзі петкем болып шығу керек).
PROGRAM Katar6;
VAR X,Y:String; K:Byte;
BEGIN Write('Қатардың мәнің енгіз'); Readln(X);
For K:=Length(X) downto 1 do Y:=Y+Copy(X,K,1);
Writeln (Y);
Readln END.
7. Берілген сөздегі дауысты және дауыссыз әріптер саның анықтау программасын құру
PROGRAM Katar7;
VAR A:Set of char; X:String; K,N,M:Byte;
BEGIN
A:=['A','Ә','E','И','І','О','Ө','Ы','Ү','Ұ','У','Э', 'a','ә','e','и','і','о','ө','ы','ү','ұ','у','э',];
Write('Қатардың мәнің енгіз'); Readln(X);
N:=0; K:=0;
For K:=1 to Length(X) do
If X[K] In A then N:=N+1;
M:= Length(X)-N;
Writeln (N,'дауысты және', М, 'дауыссыз әріптер бар' );
Readln END.
8. Берілген футбол командалары тізімінен Т әрпінен басталатын футбол командаларын алып тастап, қайта шығару программасы.
PROGRAM Katar8;
CONST N:Array [1…5] of String=(‘Tobol’, ‘Kaisar’, ‘Irtysh’, ‘Taraz’, ‘Tor’);
VAR K,N,I: Byte;
BEGIN For K:=1 To 5 Do Write (T[K]:7); Writeln;
N:=5; K:=0; Repeat K:=K+1;
Writeln Copy (T[K],1,1)=’T’ Do Begin I:=K;
Repeat T [I]:=T [I+1]; I:=I+1; Until I>=N;
T[N]:=”; N:=N-1; End;
Until K>=N;
Writeln (‘Жаңа тізім:’);
For K:=1 To N Do Write(T[K]:7);
Readln END.