Basic Pascal Tutorial/Chapter 3/IF/bg: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Обратно в [[Reserved words\|Резервирани думи]].
2	2
3	3		## IF
4	4
5	5		(author: Tao Yue, state: changed)
6	6
7	7		Операторът `IF` ви позволява да разклонявате програмата въз основа на резултата от булева операция. Простото разклоняване изглежда така:
8	8
9	9		``` pascal
10	10		if BooleanExpression then
11	11		StatementIfTrue;
12	12		```
13	13
14	14		Ако булевия израз BooleanExpression се изчисли като `true`, операторът StatementIfTrue ще се изпълни. В противен случай ще се пропусне.
15	15
16	16		Операторът `IF` приема само един оператор. Ако искате да се разклоните към поредица от оператори, трябва да ги заградите в `begin-end` [[Frame\|блок]], за да изпълните всички оператори:
17	17
18	18		``` pascal
19	19		if BooleanExpression then
20	20		begin
21	21		Statement1;
22	22		Statement2;
23	23		end;
24	24		```
25	25
26	26		Двойното разклонение изглежда така:
27	27
28	28		``` pascal
29	29		if BooleanExpression then
30	30		StatementIfTrue
31	31		else
32	32		StatementIfFalse;
33	33		```
34	34
35	35		Забележете, че няма `;` преди `else`, дори и в случая на съставен оператор `begin-end`.
36	36
37	37		``` pascal
38	38		if BooleanExpression then
39	39		begin
40	40		Statement1;
41	41		Statement2;
42	42		end
43	43		else
44	44		begin
45	45		Statement3;
46	46		Statement4;
47	47		end;
48	48		```
49	49
50		-	Ако BooleanExpression се пресметне като `FALSE`, тогава ще се изпълни операторът след `else`. Не <u>трябва</u> да използвате `;` след оператора, който е предшества `else`. Това кара компилатора да си мисли, че това е оператор само с едно разклонение, и да се чуди откъде се е взело следващото `else`. A когато компилаторът се чуди, той обикновено извежда съобщение за грешка.
	50	+	Ако BooleanExpression се пресметне като `FALSE`, тогава ще се изпълни операторът след `else`. Не трябва да използвате `;` след оператора, който е предшества `else`. Това кара компилатора да си мисли, че това е оператор само с едно разклонение, и да се чуди откъде се е взело следващото `else`. A когато компилаторът се чуди, той обикновено извежда съобщение за грешка.
51	51
52	52		Ако имате нужда от повече разклонения, можете да вложите няколко `if` оператора:
53	53
54	54		``` pascal
55	55		if Condition1 then
56	56		Statement1
57	57		else
58	58		if Condition2 then
59	59		Statement2
60	60		else
61	61		Statement3;
62	62		```
63	63
64	64		Бъдете внимателни с влагането. Понякога компилатора няма да направи това, което си мислите:
65	65
66	66		``` pascal
67	67		if Condition1 then
68	68		if Condition2 then
69	69		Statement2
70	70		else
71	71		Statement1;
72	72		```
73	73
74	74		Приема се, че `else` винаги се отнася за последния `if`, така че компилатора интерпретира предишните редове като:
75	75
76	76		``` pascal
77	77		if Condition1 then
78	78		if Condition2 then
79	79		Statement2
80	80		else
81	81		Statement1;
82	82		```
83	83
84	84		Може да коригирате с празен оператор:
85	85
86	86		``` pascal
87	87		if Condition1 then
88	88		if Condition2 then
89	89		Statement2
90	90		else
91	91		else
92	92		Statement1;
93	93		```
94	94
95	95		Или може да използвате `begin-end` блок.
96	96
97	97		Следващото доказва как `;` е абсолютно забранено преди else:
98	98
99	99		``` pascal
100	100		// Paul Robinson 2020-12-16
101	101
102	102		// Compiler test program Err03.pas
103	103		// tests the proposition that ; is
104	104		// never legal before ELSE
105	105
106	106		program err03;
107	107		Var
108	108		Test,test2: Boolean;
109	109		Begin
110	110		Test := True;
111	111		Test2 := true;
112	112		if test then
113	113		if test2 then
114	114		Writeln('Reached Part 1'); // semi-colon here should be illegal
115	115		else
116	116		Writeln('Reached Part 2');
117	117		end.
118	118		```
119	119
120	120		Най-добрия начин да се изчисти проблема е да се пренапише условието.
121	121
122	122		``` pascal
123	123		if not Condition1 then
124	124		Statement1
125	125		else
126	126		if Condition2 then
127	127		Statement2;
128	128		```
129	129
130	130		Този пример илюстрира как оператора not може да е много полезен. Ако Condition1 е булев израз като: `(not(a < b) or (c + 3 > 6)) and g`, "обръщането" на израза е доста по-сложно от отрицанието му с `NOT`.
131	131
132	132		Също така забележете колко е важен отстъпът отляво когато човек чете логиката на програмния код, но пък компилатора не се интересува от празните символи.
133	133
134	134		---
135	135		From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 3/IF/bg", as it stood on 2022-08-20 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history