Берілген текстегі сөздерді көрсетіңіз(сөздердің кестесі нүктемен аяқталады)
ІІІ-кезең
Қате жазылған программа
Program pr13;
Var S:String[15];s2:String[7];
Begin
S:=’temirgolshi’;
S2:=copy(s,1,4);writeln (s2);
S2:=copy(s,1,5)+copy(s,2,3)+copy(s,6,2);
Writeln(s2)
S2:=copy(s,15,1)+copy(s,13,2)+copy(s,12,4)
Writeln (s2)
Readln End.
Қатесіз дұрыс жазылған программа
Program pr13;
Var S:string[15];s2:string[7];
Begin
S:=’temirgolshi’;
S2:=copy(s,1,4);writeln (s2);
S2:=copy(s,1,5)+copy(s,2,3)+copy(s,6,2);
Writeln (s2);
S2:=copy(s,15.1)+copy(s,13.2)+copy(s,12.4);
Writeln (s2);
Readln End.
IV-кезең
Px:=ord(x[0]);py:=length(y);
N:=pos(x,s);
Program pr14;
Var s,x,y:string;px,py,n:integer;
Begin
Writeln (‘tekt engiz’);readln (s);
Writeln (‘berilgen cosdin tekcti’);readln (x);
Writeln (‘ozgertuge tekt engiz’);
Readln (y);
Px:=ord(x[0]);py:=length(y);
N:=pos(x,s);
While n>0 do
Begin
Delete (s,n,px);
Insert (y,s,n);
N:=pos (x,c);
End;
Writeln (s);
Readln End.
V-кезең
Program prl 17;
Var S:String;X,C:Integer;
Begin
Writeln (‘matin engiz’);readln(S);
Val (s,x,c);
If c<>0 then write (‘can bolmaidi’)
Else if x mod 9=0 then write (‘can ,kiska 9’)
Else write (‘san,birak kisca emes 9’);
Readln End.
Достарыңызбен бөлісу: |
