, . , : Integer () Real ().
, var a: integer; b: real;
string (var s: string). , , , . .
- . , . :
For <>:=<. > to <. > do < >;
For <>:=<. > downto <. > do < >;
. ( ) . .
( - 1). . ( - ).
: for i:=1 to length(s) do ( s). , :
1. length (s) . - 0..255
: , .
var s: string; k: integer;
k:=length(s);
2. Delete (s,pos,n) - . s n- pos.
: s:=''; Delete(s,5,3) =>
3. Insert (s1,s2,pos). .
S1-, S2-, Pos-
: S1:=''; Insert(s1,'o',2) => ''
4. Copy (s,pos,n) - s n, pos.
: S:=''; t:=copy(s,1,3) => ''
5. - Concat (s1,s2,s3,,sn)
: Concat ('','','') => ''
6. Pos (s1,s2) - . , s1 s2.
: pos ('cd','abcdf') => 3
9
, . TEdit TMemo .
Var s: string;
i, k: integer;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
|
|
s:=edit1.text; //
For i:=1 to length(s) do //
If s[i]=a then k:=k+1; { i- , k}
Memo1.text:=IntToStr(k) //
End;
:
:
1. s: a,c,d .
2. .
3. .
4. .
5. , .
6. .
7. .
8. .
9. .
10. : , , , , .
.
, . . :
-
-
.
1. (-) - . While. :
While < > do < >
(true), , .
2. (-)
Repeat < > until < >
. , . . .
:
Break
Continue .
10
: 5 :
i , OnClick Button1. :
procedure TForm1.Button1Click(Sender: TObject);
begin
for i:=1 to 5 do
Memo1.Lines.Add(' ')
end;
: s=1+1/2+1/3++1/k.
. : s=1/1+1/2+1/3++1/k.
, 1. 1 1 k. , = 1/i, i . , :
Var k,i: integer; s: real;
Begin
k:=StrToInt(Edit1.Text); s:=0;
For i:=1 to k do s:=s+1/i; {i 1 k (1, 2, 3, , k) s=0, k=1 s=0+1/1, s 1; k=2 s=1+1/2, s 1,5 ..}
Memo1.Text:=FloatToStr(s);
End;
:
|
|
1. , .
2. y=sin(x) 0..1
3. 4 : n , 1£n£4.
4. [0,20] , 3.
5. 1 n.
6. s=1/(p+2)+2(p+2)+3/(p+2)++p/(p+2).
7. 5 1 n.
8*. s=(1+3+5++2*n-1)3-(2+4+6++2*n)2.
9*. : 2++17 0≤≤15 . ( ).
10*. s . 1, 2, 5, 10, 50, 100, 500, 1000- . , ? ( Continue).
11*. , . . a b. :
1.
2.
3.
4.
5.