Case..of Опции

[romych]

хех)) всем привет, я новенький=)
помогите пожалуйста задачу передлать... может похожая была в 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.

чес слово не знаю как ее делать =/
заранее благодарен))

[volvo]

Меня терзает смутное сомнение, что переопределение функции Trunc осталось незамеченным. Это так?

Выдает

vvedi abc
0.9 0 0.9
reshenii net

[Lapp]

Меня терзает смутное сомнение, что переопределение функции Trunc осталось незамеченным. Это так?

Так
Ладно, точность повышена с целых до тсячных. Пример тогда такой:
a = 1e-10
b = 0
c = 1e-10

Хотя, с переопределением все же можно выкрутиться, согласен. Например, если следовать авторскому сравнению чисел, то можно сделать, наверное, так:

function trunc(X: real): integer;
begin
  trunc := Byte(x<>0)
end;

Короче, в целом все получается . Беру свои слова обратно.

Сообщение отредактировано: volvo - 3.11.2006 22:39