24 (18) - 1,3 .-. .
1,45 . . .
004432.2 (076)
: ..
., - . ..
: / .. . : -, 2002. 24 .
Delphi, , .
.: 10 . . __. . __.
.
, 2002
. 5
1. .. 5
. 5
. 5
. 5
.. 6
. 6
2. .. 6
. 6
. 6
. 7
.. 7
. 8
3. .. 8
. 8
. 9
. 9
.. 10
. 12
4. . 13
. 13
. 14
. 15
.. 17
. 19
5. . 20
. 20
. 22
. 22
.. 24
. 28
6. . 31
. 31
. 31
.. 32
.. 34
. 37
: , , , , .
, .
, , .
1.
.
Lab1.
. .
1. " ".
|
|
2. a, b.
3. " ", ab;
. .
program Lab1;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b:Real;
begin
Write(' : ');
ReadLn(a,b);
WriteLn(' ',a*b);
ReadLn; { }
end.
a | b | ||
2.
( " " " ", ).
: , p , .
Lab2.
. .
1. " ".
2. a, b, c.
3. a ≤0, b ≤0, ≤0,
. " ".
. :
1. a + b ≤ c, a + c ≤ b, b + c ≤ a,
. " ".
. :
1. .
2. " ", .
. .
program Lab2;
{$APPTYPE CONSOLE}
uses SysUtils;
var
a,b,c,p:Real;
begin
Write(' : ');
ReadLn(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
WriteLn(' ')
else
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
WriteLn(' ')
else
begin
p:=(a+b+c)/2;
WriteLn(' ',
Sqrt(p*(p-a)*(p-b)*(p-c)));
end;
ReadLn; { }
end.
, . .
a | b | c | |||