8.Орыс әріптерін қолдана отырып программа құрыңыз
program palindrom1;
Var a,b,c:string;
I:Integer;
Begin
Writeln (‘255-ke deingi simvoldardi engiz:’);
Readln (a);
B:=’’;
C:=’’;
For I:= 1 to length (a) do
If a[I]<>’’then
Begin
If (a[I]>=’A’) and (a[I]<=’n’);
Then
A[I]:=Chr(ord(a[I])+32)
Else
If (a[I]>=’p’) and(a[I]<=’Men’)
Then
A[I]:=Chr (ord(a[I])+80);
B:=B+A[I];
C:=A[I]+c;
End;
If b=c then Writeln (b’,-‘,’palindrom’)
Else Writeln (b,’-‘,’ palindrom emes’);
Writeln ;
Readln;
End.
9.Мысықтан кит жасайтын программа құрыңыз
program cat kit;
Var S:String;
I,J:Integer;
A,b,c:String;
Begin
A:=’misik muhitta guzip gur,kit kuhnada kaimak gep gatir’;);
B:=Kit pen misikti austiriniz’misikti kitpen auistiriniz’);
C:=a+b;
I:=1;
Repeat
S:=copy(c,I,3);
If s=’misik’ then
Begin
Delete(c,I,Length(‘misik’));
Insert(‘kit’,c,I)
End
Else
If s=’kit’ then
Begin
Delete (c, I,Length(‘Kit’));
Insert (‘misik’,c,I)
End;
I:=O+1
Until I=Length©-2;
Writeln ;
Readln;
End.
10.Күштің бар екенін тексеретін программа жаз.
program sila;
Var
A,b,C:String;
P:Integer;
Begin
A:=’kush bar akil kerek emes’;
P:=Pos(‘-‘,a);
B:=Copy (a,1,p-1);
C:=Copy (a,p+1,Length(a)-1);
A:=B+’-‘+c;
Writeln (a);
Readln End.
Достарыңызбен бөлісу: |
