, . . , .
, . , .
:
Procedure ( ).
var.
:
( ).
: , .
, , .
: - . , , , . , .
: . .
 |
program proc;
var a,b,c:integer;s1,s2,u:real;
procedure tr(x,y,z:integer;var s:real);
begin
read(x,y,z);
s:=sqrt((x+y+z)/2*(9x+y+z)/2-x)*((x+y+z)/2-y)*((x+y+z)/2-z));
end;
begin
tr(a,b,c,s1);
writeln( 1 ,s1:5:2);
u:=s1;
tr(a,b,c,s2);
writeln( 2 ,s2:5:2);
u:=s2;
if s1>s2 then
writeln( 1 >)
else writeln( 2 >);
end.
2. diskrimenant(A, B, C) , A∙x2 + B∙x + C = 0 (A, B, C , 
0). . :D = B2 −4∙A∙C.
program proz;
var a1,b1,c1,s,x1,x2:real;
procedure discrimenant(a,b,c:real;var d:real);
begin
d:=sqr(b)-4*a*c;
writeln('d=',s);
if s<0 then writeln('noy')else
if s=0 then begin x1:=-b/(2*a); writeln('x=',x1); end
else begin
x1:=(-b-sqrt(s))/(2*a);
x1:=(-b+sqrt(s))/(2*a);
writeln('x1=',x1,' x2=',x2)
end;
end;
begin
writeln('vvod a,b,c');
readln(a1,b1,c1);
discrimenant(a1,b1,c1,s);
end.
|
|
|
d=-3
noy
vvod a,b,c
d=0
x=-1
vvod a,b,c
d=1
x1=-1 x2=0
vvod a,b,c
d=5
x1=-0.381966011250105 x2=0
, .
:
Function ( ): .
, result, . , .
:
