Вместо десятичной представления числа выдает целое. Почему?

@Appolinariya · Регистрация: 09.07.2014

Author24 — интернет-сервис помощи студентам

Написала в делфи программу нахождения корней квадратного уравнения. При тестировке программы и вводе значений а=4, b=4, c=1 вместо должного х1=-0,5 выдает х1=-5.000000000000Е
С чем это может быть связано и как исправить?

@VladWH · 27.09.2015, 23:40

Сообщение от Appolinariya

как исправить?

выводите значение с помощью format

Delphi

1	ShowMessage( format('%.2f',[0.550002]) ); // <-- выведет 0,55

@Appolinariya · 28.09.2015, 01:22 **[ТС]**

Сообщение от Appolinariya

Написала в делфи программу нахождения корней квадратного уравнения. При тестировке программы и вводе значений а=4, b=4, c=1 вместо должного х1=-0,5 выдает х1=-5.000000000000Е
С чем это может быть связано и как исправить?

Покажите на коде. Может быть где-то найдете ошибку.

Delphi

var
 a,b,c,D,x1,x2: real;
begin
 write('Vvedite koefficient a(a<>0): ');
 readln(a);
 if a=0 then
 begin
  writeln('Введено недопустімое значеніе коэфф. ');
  readln;
  exit;
  end;
 write('Введіте коэфф. b: ');
 readln(b);
 write('Введіте коэфф. c: ');
 readln(c);
 d:=b*b-4*a*c;
 if d<0 then
  writeln('Нет корней')
 else
 begin
  if d=0 then
   writeln('Уравненіе імеет одін корень: х= ',-b/(2*a))
  else
  begin
   writeln('Уравненіе імеет два корня: ');
   writeln('x1= ',(-b-sqrt(d))/(2*a));
   writeln('x2= ',(-b+sqrt(d))/(2*a));
 end;
  end;
 readln;
end.

@VladWH · 28.09.2015, 01:46

Appolinariya, я же вам написал выводите через формат

Delphi

var
a,b,c,D,x1,x2: real;
begin
write('Vvedite koefficient a(a<>0): ');
readln(a);
if a=0 then
begin
writeln('Введено недопустімое значеніе коэфф. ');
readln;
exit;
end;
write('Введіте коэфф. b: ');
readln(b);
write('Введіте коэфф. c: ');
readln(c);
d:=b*b-4*a*c;
if d<0 then
writeln('Нет корней')
else
begin
if d=0 then
writeln('Уравненіе імеет одін корень: х= ',-b/(2*a))
else
begin
writeln('Уравненіе імеет два корня: ');
writeln('x1= ', format('%.2f', [(b-sqrt(d))/(2*a)]);
writeln('x2= ', format('%.2f', [(b+sqrt(d))/(2*a)]);
end;
end;
readln;
end.

@Appolinariya · 28.09.2015, 02:09 **[ТС]**

Выдает ошибку ',' or ')' expected but ',' found на 26 строчке

@VladWH · 28.09.2015, 02:23

Сообщение от Appolinariya

Выдает ошибку ',' or ')' expected but ',' found на 26 строчке

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses SysUtils;
 
var a,b,c,d: extended;
 
begin
 writeln('Vvedite koefficient a(a<>0): ');
 readln(a);
 if a=0 then
  begin
   write('Введено недопустімое значеніе коэфф. ');
   readln; exit;
  end;
 write('Введіте коэфф. b: ');
 readln(b);
 write('Введіте коэфф. c: ');
 readln(c);
 d:=b*b-4*a*c;
 if d<0 then writeln('Нет корней')
 else begin if d=0 then
  writeln('Уравненіе імеет одін корень: х= ', format('%.2f', [b/(2*a)]))
 else begin
  writeln('Уравненіе імеет два корня: ');
  writeln('x1= ', format('%.2f', [(b-sqrt(d))/(2*a)]));
  writeln('x2= ', format('%.2f', [(b+sqrt(d))/(2*a)]));
 end; end; readln;
end.

Добавлено через 44 секунды
вы не добавили format для случая когда 1 корень

@Puporev · 28.09.2015, 06:59

В консоли можно и просто

Delphi

1	writeln('x1= ', (b-sqrt(d))/(2*a):0:2);

@Appolinariya 0 / 0 / 0 Регистрация: 09.07.2014 Сообщений: 62
		1
	Вместо десятичной представления числа выдает целое. Почему? 27.09.2015, 21:33. Показов 557. Ответов 6 Метки нет (Все метки) Написала в делфи программу нахождения корней квадратного уравнения. При тестировке программы и вводе значений а=4, b=4, c=1 вместо должного х1=-0,5 выдает х1=-5.000000000000Е С чем это может быть связано и как исправить? 0

@Appolinariya 0 / 0 / 0 Регистрация: 09.07.2014 Сообщений: 62
	28.09.2015, 02:09 [ТС]	5
	Выдает ошибку ',' or ')' expected but ',' found на 26 строчке 0

	28.09.2015, 06:59