, , ; , ,

> > 6.

6.

1. .

2. .

3. ( F10),   RUN ( Run).

4. ( Alt-F5).

5. ( ).

6.   :

Program reset (Ctrl-F2);      Go to cursor (F4);

Trace into (F7);                      Step over (F8).

7. ( Alt-X).

 

 

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

2

3

3

2

4

2

3

3

4

2

2

3

3

3

4

2

2

3

3

3

4

4

2

3

2

2

5

6

6

5

4

3

2

5

7

6

6

4

3

2

5

7

8

6

6

4

4

3

2

3

2

4

4

2

2

4

3

3

4

4

3

5

5

6

6

4

5

2

4

4

5

5

2

2

3

4

5

3

6

7

6

6

7

5

8

6

5

8

6

6

5

5

7

7

4

6

8

7

5

5

7

6

8

6

2

3

3

2

4

1

3

2

1

4

2

2

2

2

3

4

1

2

2

3

2

3

4

3

5

4

4

5

3

6

4

3

2

5

6

7

6

5

4

3

4

2

4

4

3

3

2

4

3

5

4

5

True

False

True

True

False

True

True

False

False

True

True

False

False

True

True

False

True

False

False

True

False

True

False

False

True

True

 

 

PROGRAM lab4;

USES CRT;    {    CRT  }

CONST

     LOG=TRUE;

VAR  K,M,N    :INTEGER;

     X,Y      :REAL;

     S1,S2,S3 :CHAR;

BEGIN

   CLRSCR;   { }

   WRITELN (\'   K, M, N  .\');

   WRITELN (\' "ENTER" \');

   READLN  (K, M, N);

   WRITELN;

   WRITELN (\' \':20,\'  \');

   WRITELN (\' \':5,\' \',\' \':10,\' \');

   WRITELN (\' \':10,\'K=\',K:5,\' \':20,\'K=\',K);

   WRITELN (\' \':10,\'M=\',M:5,\' \':20,\'M=\',M);

   WRITELN (\' \':10,\'N=\',N:5,\' \':20,\'N=\',N);

   WRITELN;

   WRITELN (\'   X, Y .\');

   WRITELN (\' "ENTER" \');

   READLN  (X,Y);

   WRITELN ;

   WRITELN (\' \':20,\'  \');

   WRITELN (\' \':5,\' \',\' \':10,\' \');

   WRITELN (\' \':10,\'X=\',X:8:4,\' \':15,\'X=\',X);

   WRITELN (\' \':10,\'Y=\',Y:8:4,\' \':15,\'Y=\',Y);

   WRITELN;

   WRITELN (\'   S1, S2, S3.\');

   WRITELN (\'   "ENTER" \');

   WRITE (\' s1=\');  READLN(S1);

   WRITE (\' s2=\');  READLN(S2);

   WRITE (\' s3=\');  READLN(S3);

   WRITELN ;

   WRITELN (\' \':20,\'  \');

   WRITELN (\' \':5,\' \',\' \':10,\' \');

   WRITELN (\' \':10,\'S1=\',S1:3,\' \':20,\'S1=\',S1);

   WRITELN (\' \':10,\'S2=\',S2:3,\' \':20,\'S2=\',S2);

   WRITELN (\' \':10,\'S3=\',S3:3,\' \':20,\'S3=\',S3);

   WRITELN ;

   WRITELN (\' \':20,\'  \');

   WRITELN (\' \':5,\' \',\' \':10,\' \');

   WRITELN (\' \':10,\'LOG=\',LOG:7,\' \':15,\'LOG=\',LOG);

   WRITELN; WRITELN; WRITELN;

   WRITELN (\' "ENTER" \');

   READLN ; { "ENTER"}

END.

 

. 1.1.

 

. 1.1

 

 





<<
5.
>>
7.
 
http://www.introligator.org
.
Rambler's Top100 @Mail.ru