.
( , ). .
.
1. WHILE , .
2. (Y / N)? REPEAT, , N.
, p , 
.
Lab3.
. .
1. Loop "".
2. Loop "", :
. : "1
2
3 ".
. " ".
. n.
. n:
1. n =1, :
. :
1. " ".
2. a, b.
3. a ≤0, b ≤0,
. " ".
. " ", ab.
4. " (Y / N)?".
5. ot.
. ot = 'N'.
2. n =2, :
. :
1. " ".
2. a, b, c.
3. a ≤0, b ≤0, ≤0,
. " ".
. :
1. a + b ≤ c, a + c ≤ b, b + c ≤ a,
. " ".
. :
1. .
2. " ", 
.
4. " (Y / N)?".
5. ot.
. ot = 'N'.
3. n =3, :
. :
1. " ".
2. r.
3. r ≤0,
. " ".
. " ", πr2.
4. " (Y / N)?".
5. ot.
. ot = 'N'.
4. n =4, Loop "".
3. .
. .
program Lab3;
{$APPTYPE CONSOLE}
uses SysUtils;
var
Loop:Boolean;
n:Integer;
a,b,c,p,r:Real;
ch:Char;
begin
Loop:=True;
while Loop do
begin
Writeln(' :');
Writeln('1. ');
Writeln('2. ');
Writeln('3. ');
Writeln('4. ');
|
|
|
Write(' : ');
Readln(n);
case n of
1:begin
repeat
Write(' : ');
Readln(a,b);
if (a<=0) or (b<=0) then
Writeln(' ')
else
Writeln(' ',
a*b);
Write(' (Y/N)? ');
Readln(ch);
until UpCase(ch)='N';
end;
2:begin
repeat
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;
Write(' (Y/N)? ');
Readln(ch);
until UpCase(ch)='N';
end;
3:begin
repeat
Write(' : ');
Readln(r);
if r<=0 then
Writeln(' ')
else
Writeln(' ',Pi*Sqr(r));
Write(' (Y/N)? ');
Readln(ch);
until UpCase(ch)='N';
end;
4:Loop:=False;
end;
end;
end.
, .. .
1
| a | b | ||
| -3 | |||
2
| a | b | c | ||
| -1 | ||||
3
| r | ||
| -2 | ||
| 314.1592653 | ||
