Блок-схема по программе
- 24.12.12, 16:24
Помогите составить плз блок-схему по коду программы:
program zhka;
uses crt;
var i, n:integer;
s:real;
begin
n:=4;
s:=-exp(n*ln(n))+3*sqr(n)-1;
if s<0 then
begin
while s<0 do
begin
n:=n-1;
s:=-exp(n*ln(n))+3*sqr(n)-1;
end;
writeln(n);
end
else
begin
while s>0 do
begin
n:=n+1;
s:=-exp(n*ln(n))+3*sqr(n)-1;
end;
writeln(n-1);
end;
end.
program zhka;
uses crt;
var i, n:integer;
s:real;
begin
n:=4;
s:=-exp(n*ln(n))+3*sqr(n)-1;
if s<0 then
begin
while s<0 do
begin
n:=n-1;
s:=-exp(n*ln(n))+3*sqr(n)-1;
end;
writeln(n);
end
else
begin
while s>0 do
begin
n:=n+1;
s:=-exp(n*ln(n))+3*sqr(n)-1;
end;
writeln(n-1);
end;
end.
Питання закрите
0
Відповіді