хех)) всем привет, я новенький=)
помогите пожалуйста задачу передлать... может похожая была в FAQ, но я не нашел
или можно не переделывать.. вобщем задание решить квадратное уравнение с помощью case..of
вот задача через if..then
uses crt;
var a,b,c,x,x3,x1,x2,d :real;
begin
clrscr;
writeln('vvedi abc'); readln(a,b,c);
d:=b*b-4*a*c;
if ((a<>0)and(d<0))then
writeln('reshenii net')
else if ((a=0)and(b=0)and(c=0)) then
writeln('x-luboe')
else if ((a=0)and(b=0)and(c<>0)) then
writeln('reshenii net')
else if ((a=0)and(b<>0))then begin
x:=-c/b;
writeln('reshenie odno',' ',x:4:4) end
else if ((a<>0)and(d=0)) then begin
x3:=-b/2/a;
writeln('kratnie korni x1=x2=',x3:4:4)end
else if ((a<>0)and(d>0)) then begin
x1:=(-b+d)/2/a;
x2:=(-b-d)/2/a;
writeln('dva kornya: x1=',x1:3:3,' ', 'x2=',x2:4:4); end;
readln;
end.
Полностью от If избавиться не удастся, частично - можно:
uses crt;
function trunc(X: real): integer;
begin
trunc := system.trunc(X) + system.trunc(1000 * frac(X));
end;
function sign(X: real): integer;
begin
if X < 0 then sign := -1
else if X > 0 then sign := 1
else sign := 0;
end;
var
a,b,c,x,x3,x1,x2,d: real;
begin
clrscr;
writeln('vvedi abc'); readln(a,b,c);
d:=b*b-4*a*c;
case trunc( a ) of
0:
case trunc( b ) of
0:
case trunc( c ) of
0: writeln('x-luboe');
else
writeln('reshenii net');
end;
else
begin
x:=-c/b;
writeln('reshenie odno',' ',x:4:4)
end;
end;
else
case sign(d) of
-1: writeln('reshenii net');
0:
begin
x3:=-b/2/a;
writeln('kratnie korni x1=x2=',x3:4:4)
end;
+1:
begin
x1:=(-b+d)/2/a;
x2:=(-b-d)/2/a;
writeln('dva kornya: x1=',x1:3:3,' ', 'x2=',x2:4:4);
end;
end;
end;
readln;
end.
case a=0 of
true: ... ;
false: ... ;
end;
Извини, я НЕ работаю с округленными числами... Все, что мне нужно от округленного - это либо знак, либо порядок числа. Приведи пример разных результатов...
Меня терзает смутное сомнение, что переопределение функции Trunc осталось незамеченным. Это так?
Выдает
function trunc(X: real): integer;
begin
trunc := Byte(x<>0)
end;
я тоже перед вами зивиняюсь, но
1)без функции. функции мы еще по идее не проходили
2) Задание. Изменить приведенную программу, используя оператор варианта CASE.
я не знаю, полностью или частично, просто вот это сказано..
могу если надо блок схему выложить..
var
a,b,c,x,x3,x1,x2,d :real;
begin
writeln('vvedi abc'); readln(a,b,c);
d:=b*b-4*a*c;
case a=0 of
true: case b=0 of
true: case c=0 of
true: WriteLn('x - luboe');
false: WriteLn('reshenii net');
end;
false: begin
x:=-c/b;
writeln('reshenie odno',' ',x:4:4)
end
end;
false: case d<0 of
true: WriteLn('reshenii net');
false: case d=0 of
true: begin
x3:=-b/2/a;
writeln('kratnie korni x1=x2=',x3:4:4)
end;
false: begin
x1:=(-b+d)/2/a;
x2:=(-b-d)/2/a;
writeln('dva kornya: x1=',x1:3:3,' ', 'x2=',x2:4:4);
end;
end;
end;
end;
readln;
end.