IV-кезең
For G:=I+1 To N Do;
Begin C:=I+1 To N Do;
Begin C:=F[I]
Program kat8;
Const N=10;
Var F:Array[1..N] of String[20];
I,K,G:Integer;
C,B:String[20];
Begin For I to N do
Begin Writeln (‘familialardi engiz:’);
Readln (F[I]);
End;
For I 1 to N-1 Do
Begin B:=F[I];
K:=I;
For G:=I+1 To N Do;
Begin C:=F[I];
If CK:=I End;End;
C:=F[I];F[I]:=F[K] End;
Writeln ;
For I:=1 To N Do Writeln (F[I]);
Readln End.
V-кезең
Program kat18;
Var X:String;K:Byte;
Begin X:=’Internet’;For K:=1 To Length(X) Do X[K]:=Upcase (X[K]);
Writeln (‘X=’,X);
Readln End.
І-кезең
Берілген сөйлемнен барлық t әрпінен кейін тұрған h әрпін алып тастап,өңделген сөйлемді қайта шығаратын
Turbo Pascal тілінде программа құр
Program ovr;
Label m1;
Type ft=String[125];
Var
Str:ft;
I,n:Integer;
Begin
Writeln (‘berilgen soilemdi engiziniz…’);
Read (str);
M1:if pos(‘th’,str)<>0 then
Begin
Delete (Str,pos(‘th’,str)+1.1);
Goto m1;
End;
Writeln (str);
Readln End.
ІІ-кезең
Program prl2;
Var c,s:string;k:integer;
Begin
Writeln(‘matin engiz’);readln(s);
Writeln (‘1-sozdi engiz’);readln(c);
While c<>’.’do
Begin
K:=pos(c,s);
Writeln (‘soz’,’c’,k’, pozic.kiredi’);
Writeln (‘kadimgi sozdi engiz’);Readln (C);
End;
Readln End.
Достарыңызбен бөлісу: |
