: , ,
.
:
1. :
¨ , ;
¨ , ;
¨ ;
¨ , ;
¨ ;
¨ ;
2. :
¨ , ?
¨ ?
¨ , ?
¨ ?
, 䳿 , , . , , , , , : , 䒺, 2 , , , г . 3 , . :
<> <ò 1> <ò>;
, , . ³, £, <, =, >, ¹. : (, ), (, ). , , , .
() ().
Turbo Pascal :
if < > then <1> [ else <2>];
Turbo Pascal ³, £, ¹, , : >=, <=, < >. and(), or(), not().
, Turbo Pascal:
1) xÎ[-2; 5], i x¹0 - Turbo Pascal: (x>=-2) and (x<=5) and (x< >0);
2) z³20 3 - Turbo Pascal: (z>=20) and (z mod 3 = 0);
3) xÏ[-2; 5] - Turbo Pascal: (x>5) or (x<-2).
, . begin..end.
: 2- a b, , , , , . Turbo Pascal:
|
|
program pr1;
uses crt;
var a, b:real;
Begin
write(); readln(a, b);
if a>=b then begin write(a=,a:8;2); a:=a-b; writeln(a=,a:8;2) end
else begin write(b=,b:8;2); b:=b-a; writeln(b=,b:8;2);end;
End.
3, 4 . 2 . 3 2- . .
, 3 , d>0; d=0; d<0. , - 2 3-, 3- ͳ-ͳ.
:
Program kwur;
Uses crt;
Var a, b, c, d, x, x1, x2:real;
Begin
Write( Vvjd koeficientow A, B, C:);
Readln(a, b, c); d:=sqr(b)-4*a*c;
If d>0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1=,x1:6:2, x2=,x2:6:2);
end
else if d=0 then begin
x:=-b/(2*a);
writeln(x1=x2=,x:6:2); end
else writeln( Net kornej);
end.
. :
- , .
:
(0; ∞), , : >5, <0, , .
:
ճ :
, . . , , , . , .
, , . . . - : I , ;
N ;
K ;
H .
, , , N H.
, , . , , , , . . , . 225 180:
|
|
, :
o- . : M=N.
Turbo Pascal :
1. :
For I: = N to K do <>;
1, . 1, : For I: = N downto K do <>;
2. :
While <> do <>;
3. :
Repeat < > until <>;
, begin end.
Turbo Pascal :
8