, . :
Program Decision_of_quadratic_equalation;
var
a, b, c, D : integer;
x1, x2 : real;
begin
writeLn (' : 3*^2 + 8*x + 5 = 0');
{ }
a := 3;
b := 8;
c := 5;
{ }
D := sqr (b) - 4 * a * c;
{ }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);
{ }
writeLn (' :');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end.
, : ? , ?
! ?
. :
if then
1
else
2
, :)
if - then - else - - :
1
()
2
.. , 1, , 2. ? :
= . : =
, .
, . :
- ?
- , , .
- ?
- , , : 22=4?
, 2*2=4, ?
'=' - . 22 . 2*2 =4, - 4. . 4 = 4 , ! := = !!!!!! : ORD (X) - . . :
var
a : integer;
begin
a := ord (2*2 = 4);
wirteLn (a)
end.
? : 1, .. 2*2=4 - , 1, . :
a := ord (2*2 = 5);
, 0.
<>
<>
,
,
.
>,< - /
A > B
,
A < B
,
>=, <= - /
A >= B
,
A <= B
,
0:
if D>0 then
else
( else) . :
a := 2; if a<3 then
a := a + 3; { !}
writeLn (a);
:
a := 2;
if a<3 then
a := a + 3 { !}
else
a := 4; { !}
writeLn (a);
, (a := a + 3), 5??? , begin, end. .. :
if D >= 0 then
begin
{ }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);
{ }
writeLn (' :');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end
else
begin
{ }
writeLn (' !');
writeLn (' !')
end;
. :
if a<3 then
if b>3 then c := 4
else c := 5;
: if else?? :)) : !
-: else if, else, .. :
if a<3 then
if b>3 then c := 4
else c := 5
else c := 6;
else if :))) :((( - :
if then - else ";" .. else , else ";"
: if else ";" , ";" , else:
if then
1 { 1 ";" ! }
else
2 ;{ }
!
. - .. " !" - :)
, :
x1,2 = - b (b2 - 4ac)1/2
2a
, :
, 0 ( , )
( )
, (*) .
, = 0, .. . : b 0.
: b = 0, . = 0, . (0 = 0). 0, ( = 0) .
, - ! , ! :
Program Decision_of_quadratic_equalation_Release;
uses CRT;
var
a, b, c, D, x1, x2 : real;
begin
ClrScr;
writeLn (' : a*x^2 + b*x + c = 0');
{ }
Write (' a: ');
ReadLn (a);
Write (' b: ');
ReadLn (b);
Write (' c: ');
ReadLn (c);
{ , }
ClrScr;
writeLn (' :');
writeLn (a, '*x^2 + ', b, '*x + ', c, ' = 0');
if a = 0 then
begin
{ :))) }
Sound (220);
Delay (2000);
NoSound;
writeLn (' ! (a = 0) ');
{ ... }
{ b 0 }
if b = 0 then
begin
{ = 0, 0 = 0 ! }
if c = 0 then
writeLn (' !')
else
writeLn (' !')
end
else
begin
x1 := - c / b; { ! }
writeLn (' :');
writeLn ('X = ', x1)
end
end
else
begin
{ }
D := sqr (b) - 4 * a * c;
if D>0 then
writeLn (' ! = ', D)
else
begin
{ }
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);
{ }
writeLn (' :');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
end
end;
ReadLn
end.
, !
, : uses CRT; - ?? (uses - ) - .. CRT - - , , ( BP), ( ). - "" , , , . CRT : Shift+F1 - CRT Unit - . - . , uses! , . ClrScr; - (CLeaR SCReen - ), ! , ! CRT (!)
ReadLn (a) - . writeLn :) - !
{ :))) }
Sound (220);
Delay (2000);
NoSound;
Sound (HZ) - HZ . , help'e , help'a : , 7 . 7 - :(( ( - ) : 7 , , ! , !
220 , - NoSound - . NoSound !!! Sound NoSound. "" - Delay (MilliSeconds) - , , 2000 , "", Sound! ! , NoSound! ReadLn . ? , , - , ENTER!!! . - :)
( - debug) - . . !
BP, exe (Ctrl+F9 Alt+F9 ( ) F9 ( )). If - else, ?? ! F8 ( ) - begin ( )! F8 ClrScr; .. ! , Alt+F5 ( (begin - ClrScr;) - , (ClrScr; - writeLn) - , .. ). , , - , .. . F8 , if. 0, , else, = 0, else ! ! , , Ctrl+F2. . . , .
?
, , . , , :
. , .
- .
, .
, .
, , . :
Program Decision_of_quadratic_equalation_Release;
: ", ! , !"
uses CRT;
" - , , . "
var
a, b, c, D, x1, x2 : real;
"! !"
begin
ClrScr;
" -, , ." .....................
if a = 0 then begin
{ :))) }
Sound (220);
Delay (2000);
NoSound;
" - , " ..............
end
end
else
begin
" ! ."
{ }
D := sqr (b) - 4 * a * c;
", !" ..................
end.
" :( ... , ! " , - . - . , . .
, ?
, , , . 18 , . [13.12.02] : BP. :
( 11 ) "Error 202: Stack overflow error." , . 200, .
, , , , . , . :) - , "Error 200". , . :) , .
, , , , . , , "". , , , . . Runtime error 200 (Division by zero) - delay. , , CRT. , , .
