, :
1. .
2. .
3.
:
If Q Then B1 [Else B2];
-:
(Else) - +(Then)
|
|
Q - , ;
B1, B2 , ;
:
1. Q, .
2. True, B1. Q False, B1, .
, B1 B2 , , :
1
If Q Then If Q1 Then B1 Else B2;
2
, Else . :
If Q Then
If Q1 Then
B1
Else
B2;
, 1, :
If Q Then
Begin
If Q1 Then
B1;
End
Else
B2;
1:
2 . .
:
: A=10, C=15
: =15
:
Program Vet1;
Var A,C,Max:Integer;
Begin
Writeln( 2 );
Readln(A,C);
If A>C Then
Max:=A
Else Max:=C;
Write( = ,Max);
End.
:
1. 2 . , , .
2. 2 . C=Max/Min.
3. Y X.
Y= (X+2)2, X>=0
X-2,X<0
4. , B, . Y.
(X+2)2, X<A
Y= X-2,A<=X<=B
2*X,X>B
5. 3 . .
6. 3 . .
7. 3 .
.
, , , , ( ):
Begin
;
End;
If Q Then
Begin
A1;
A2;
:
An;
End
Else
Begin
B1;
B2;
:
Bn;
End;
2:
2 . x=(y+z)2; - y=max*2; z=max/min;
:
Program Vet2;
Var A,C,Max,Y:Integer;
Z,X:Real;
Begin
Writeln( 2 );
Readln(A,C);
If A>C Then
Begin
Y:=A*2;
Z:=A/C;
End
Else
Begin
Y:=C*2;
Z:=C/A;
End;
|
|
X:=SQR(Y+Z);
Write(X = ,X);
End.
3.
A, C. A*X=C .
:
Program Vet3;
Var A,C,X:Real;
Begin
Writeln( 2 );
Readln(A,C);
If A=0 Then
If B=0 Then
Writeln(X -)
Else
Writeln( )
Else
Begin
X:=C/A;
Writeln(X=,X);
End;
End.
:
1. X,Y (<>Y). ,
2. A, B, C. AX2+BX+C=0 .
3. 3 .
4. X,Y,Z , X,Y Y Z, X Y *Y.
6.3. ( ; ).
.
3.
X,Y,Z. , .
:
Program Vet3;
Var X,Y,Z:Integer;
Begin
Writeln( 3 );
Readln(X,Y,Z);
If (X+Y>Z) and (X+Z>Y) and (Y+Z>X) Then
Writeln( .)
Else
Writeln( .);
End.
1. , , . .
2. .
3. , , .
4. , , . .
5. M(X,Y). , D:
a) ) ) ) y=x
2
D 2 -2 2 -3 2
D D -2 D
) =2 ) ) )
2
D 2 -2 2
D D -2 D
Case B of
< 1>:S1;
< 2>:S2;
:
< n>:Sn;
[Else S;]
End;
S1, S2,, Sn ;
B , , ;
< n> - , B. (..).
:
1..50; 1,2,4; a,d;
:
1. B;
2. , ;
3. , a Case, S, .
Else (;) .
4:
.
:
Program Vet4;
Var Z:Integer;
Begin
Writeln( );
Readln(Z);
Case Z of
1:Writeln();
2:Writeln();
3:Writeln();
4:Writeln();
5:Writeln();
6:Writeln();
7:Writeln();
Else
Writeln( .);
End;
End.
5:
|
|
, , .
:
Program Vet5;
Var Z:Char;
Begin
Writeln( );
Readln(Z);
Case Z of
1,2,3,4,5,6,7,8,9,0:Writeln( - );
a..z:Writeln( );
Else
Writeln( .);
End;
End.
:
1. , .
2. , , .
3. .
4. .
:
Goto M;
M- . ;
, . . : , .
Goto Met; Met.
:
X:=2; A:=X; Goto Met;
1:A:=A*2; B:=A; Met:Writeln(B);
X:=2; A:=X; , Met .. Writeln(B);
6.
3 . .
:
Program Vet6;
Label 1;
Var A,B,C:Integer;
Begin
1:Writeln( );
Readln(A,B,C);
If (A>0) or (B>0) or (C>0) Then Goto 1;
{ }
End;