.


:

:



,



( , )

:

































 

 

 

 
FAQ

P:Array Of Array Of Integer;

⇐ 123456 ⇒



//

i,j:Integer;

Begin

//

WriteLn('Array a:'); // Array a:

For i:=1 To 4 Do // 0 3 86 20 27 67 31 16

Begin // 37 42 8 47 7 84 5 29

For j:=1 To 8 Do // 91 36 77 32 69 84 71 30

Begin // 16 32 46 24 82 27 48 14

a[i,j]:=Random(100);

Write(a[i,j]:5);

End;

WriteLn;

End;

//----------------------------

//

b:=a; // , ..

WriteLn('Array b:'); // Array b:

For i:=1 To 4 Do // | 87| 28| 77| 97| 49| 88| 82| 2|

Begin // | 14| 14| 50| 2| 59| 0| 77| 65|

Write('|'); // | 77| 70| 55| 20| 68| 59| 95| 64|

For j:=1 To 8 Do // | 99| 24| 67| 29| 8| 77| 49| 88|

Begin

b[i,j]:=Random(100);

Write(a[i,j]:4,'|');

End;

WriteLn;

End;

//----------------------------

//

WriteLn('Arrays m,n,k:');

For i:=1 To 2 Do

Begin

For j:=1 To 2 Do

Begin

m[i,j]:=Random(10); // Arrays m,n,k:

n[i,j]:=Random(10); // | 5 9| | 5 6| | 10 15|

k[i,j]:=m[i,j]+n[i,j]; // | 3 7| | 0 9| | 3 16|

End;

Write('|');

For j:=1 To 2 Do

Write(m[i,j]:2);

Write('| |');

For j:=1 To 2 Do

Write(n[i,j]:2);

Write('| |');

For j:=1 To 2 Do

Write(k[i,j]:3);

WriteLn('|');

End;

//----------------------------

//

SetLength(d,3,4);

WriteLn('Array d:'); // Array d:

For i:=0 To 2 Do // N O Y R

Begin // I A S Z

For j:=0 To 3 Do // U T F D

Begin //

d[i,j]:=Char(Ord('A')+Random(26));

Write(d[i,j]:4);

End;

WriteLn;

End;

//----------------------------

// ( )

SetLength(p,5); //

For i:=0 To 4 Do //

Begin

SetLength(p[i],i+2); // i-

p[i,0]:=1; p[i,i+1]:=1; //

For j:=1 To i Do //

p[i,j]:=p[i-1,j-1]+p[i-1,j];

End;

WriteLn('Array p:'); // Array p:

For i:=0 To 4 Do // 1 1

Begin // 1 2 1

Write('':8-i*2); // 1 3 3 1

For j:=0 To i+1 Do // 1 4 6 4 1

Write(p[i,j]:4); // 1 5 10 10 5 1

WriteLn;

End;

//----------------------------

WriteLn('Len p = ',Length(p));// Len p = 5

WriteLn('Low p = ',Low(p)); // Low p = 0

WriteLn('Hig p = ',High(p)); // Hig p = 4

//----------------------------

ReadLn;

End.

 

{---------------------}

{ }

{---------------------}

Var { } s:Array['A'..'C'] Of Boolean; // c:Array[1..5] Of Char= // 'ABCDE'; // a:Array[5..10] Of Integer= // (3,5,4,2,6,7); // { } d:Array Of Integer; //

I:Integer;

Begin

SetLength(d,10); // .

{--------------------}

d[1]:=100; s['A']:=True; //

a[7]:=Random(100); //

{--------------------}

WriteLn(SizeOf(a)); //

WriteLn(SizeOf(d[0])*Length(d));//

{--------------------}

FillChar(a,SizeOf(a),0); //

FillChar(d[0],SizeOf(d[0])*Length(d),0);

{--------------------}

WriteLn(Low(d),'-',High(d)); //

WriteLn(Length(d)); //

{--------------------}

For i:=Low(a) To High(a) Do //

a[i]:=10+Random(90); //

// // FOR: // For a[1]:=1 To 10 Do; - !

ReadLn;

End.

 

{---------------------}

{ }

{---------------------}

Var

a:Array[0..9] Of Integer; { }

IMax,IMin:Integer; { }

c:Array[1..11] Of Char= { }

'ABRACADABRA';

S:Char;

I:Integer;

Begin

//-------------------------------------------------

// 1.

// .

//

//)

//)

//-------------------------------------------------

Randomize;

For i:=Low(a) To High(a) Do //

Begin

a[i]:=10+Random(90); //

Write(a[i],' '); //

End;

WriteLn;

IMax:=Low(a); IMin:=Low(a); //

For i:=Low(a)+1 To High(a) Do

Begin

If a[i]<a[IMin] Then IMin:=i; //

If a[i]>a[IMax] Then IMax:=i; //

End;

WriteLn('Min: a[',IMin,'] = ',a[IMin],' Max: a[',IMax,

'] = ',a[IMax]);

//-------------------------------------------------

// 2.

//

//

//-------------------------------------------------

For i:=Low(c) To High(c) Do //

Write(c[i]);

WriteLn;

Write('Symbol: '); ReadLn(s);

For i:=Low(c) To High(c) Do //

If c[i]=s Then Break;

If i<=High(c) Then WriteLn('Result: ',i)

Else WriteLn('No Result');

ReadLn;

End.

11, 12:

. , , , .

//

Var

S,T,F:String; //

i,c:Integer;

Ch:Char;

Begin

//

T:=''; //

S:='asd'; //

S:=StringOfChar('@', 20); //

S:=S+T; // ()

 

//

i:=Length('qwerty'); // i 'qwerty'

i:=StrToInt('123'); // '123' i

i:=Pos('mid','piramida'); // 'mid' 'piramida'

//i - ( i = 0)

//

S:=AnsiUpperCase('Abc'); // 'Abc'

S:=AnsiLowerCase('Abc'); // 'Abc'

S:=Trim(' qwerty '); // . . 'qwerty'

S:=TrimLeft(' qwerty'); // . ' qwerty'

S:=TrimRight('qwerty '); // . 'qwerty '

S:=Copy('qwerty', 2, 3); // 'qwerty' 'wer'

 

//

S:=IntToStr(123); // 123 '123'

S:=FloatToStr(123.34); //

 

//

Delete(S,2,3); // S

Insert('qwerty',S,4); // 'qwerty' S

Val('123',i,c); // '123' i,

//c - ( c = 0)

 

// 1.

//----------------------------------------------------

S:='123asd123';

For i:=1 To Length(S) Do

If ('a'<=S[i]) And (S[i]<='z') Then S[i]:=' ';

WriteLn('Result ',S);

 

// 2.

//----------------------------------------------------

Write('String: '); ReadLn(S);

 

T:='';

For i:=1 To Length(S) Do

T:=S[i] + T;

WriteLn('Result ',T);

 

// 3.

//----------------------------------------------------

Write('String: '); ReadLn(S);

Write('Symbol: '); ReadLn(Ch);

Write('Text: '); ReadLn(F);

 

T:='';

For i:=1 To Length(S) Do

If S[i]=Ch Then T:=T+F Else T:=T+S[i];

WriteLn('Result ',T);

 

// 4.

//----------------------------------------------------

Write('String: '); ReadLn(S);

c:=0;

For i:=1 To Length(S) Do

If S[i]=' ' Then

Begin

If i>c+1 Then

WriteLn(Copy(S,c+1,i-c-1));

c:=i;

End;

If i>c+1 Then WriteLn(Copy(S,c+1,i-c-1));

 

// 5.

//----------------------------------------------------

SetLength(M,5);

M[0]:='Cat'; M[1]:='Dog';

M[2]:='Horse'; M[3]:='Bird';

M[4]:='Mouse';

 

WriteLn('Strings: ');

For i:=0 To High(M) Do Write(M[i],' ');

WriteLn;

 

For i:=Low(M)+1 To High(M) Do

Begin

S:=M[i]; c:=i;

While (c>0) And (M[c-1]>S) Do

Begin

M[c]:=M[c-1];

c:=c-1;

End;

M[c]:=S;

End;

 

WriteLn('Result: ');

For i:=0 To High(M) Do Write(M[i],' ');

WriteLn;//----------------------------------------------------

ReadLn;

End.

 

13, 14:

2 : Procedure () Function()

ü ,

ü

ü

ü

/

  1. / ,
    Procedure Function
     () ()
  2. /,
  3. ( )
  4. ()
  5. ;
  6. /
  7. End ; ( .)

 

/

 

Program Examp1;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//--------------------------------------

// ,

//--------------------------------------

Procedure MyPause; // MyPause

Begin //

Write('Press ENTER');

ReadLn;

End; //

Begin //

MyPause; //

End.

 

 

/

 

/. .

/. / , Var.

/ .

 

 

Program Examp2;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//------------------------------------

//,

//------------------------------------

Procedure WidthTxt(s:String); // WidthTxt s

Var //

I:Integer;

Begin //

For i:=1 To Length(s) Do

Write(s[i],' ');

End; //

Begin //

WidthTxt('Dog'+'Cat'); //

ReadLn;

End.

/ . / /.

/ . , , Var.

/ ( ).

Program Examp3;

{$APPTYPE CONSOLE}

Uses

SysUtils;

//------------------------------------

//,

//: s -

//: t -

//------------------------------------

Procedure KillSpace(s:String; Var t:String);

Var //

I:Integer;

Begin //

t:=s[1];

For i:=2 To Length(s) Do

If (s[i]<>' ') Or

(s[i-1]<>' ') Then

t:=t+s[i];

t:=Trim(t);

End; //

Var

x:String; //

Begin //

KillSpace(' Dog Cat ',x); //

WriteLn(x); //

ReadLn;

End.

/.

 

, API (Application Programming Interface), DLL.

 

Program Examp4;

{$APPTYPE CONSOLE}

Uses

Windows, SysUtils;

//-----------------------------------------

// X, Y

//-----------------------------------------

procedure GotoXY(X, Y: Word);

Var

Coord: TCoord; // (Windows)

Begin

Coord.X:= X;

Coord.Y:= Y;

SetConsoleCursorPosition(

GetStdHandle(STD_OUTPUT_HANDLE), Coord); //( API)

End;

Begin //

GotoXY(10,20);

WriteLn('1234'); //

ReadLn;

End.

 

 

20:

 

⇐ 123456 ⇒


:

: 2016-10-06; !; : 375 |

:

:

,
==> ...

1656 - | 1532 -


© 2015-2024 lektsii.org - -

: 0.499 .