Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Вниз

Ошибка в программе   Найти похожие ветки 

 
Gogi   (2002-11-10 03:31) [0]

Помогите, пожалуйсто, подскажите где ошибка. Программа вычисления корней квадратного уравнения, простая до безобразия!Прблема в том, что она постоянно выдает целые значения и никогда не выдает дробные. Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,d1:variant;
begin
a:= Strtofloat(edit1.Text);
b:= Strtofloat(edit2.Text);
c:= Strtofloat(edit3.Text);
d:=(b*b)-(4*a*c);
IF d<0 then
begin
Showmessage("Уравнение не имеет корней!!!");
edit4.Text:="--------";
edit5.Text:="--------";
end
else
Edit4.Text:= floattostr(((-1)*b+sqrt(d))/2*a);
Edit5.Text:= floattostr(((-1)*b-sqrt(d))/2*a);
end;


Edit1,2,3 - значения a,b и c, соответственно.Edit4 и 5 - значения х1 и х2. С переменными не сложно разобраться.


 
e-mike   (2002-11-10 04:18) [1]

Вместо

a,b,c,d,e,d1:variant;

Нужно

var a,b,c,d,e,d1:real;





Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
8-69450
Извращенец
2002-07-31 20:53
2002.11.21
Привет. Вот плохой вопрос для вас.


14-69513
Дельфист замученный билдером
2002-11-02 12:24
2002.11.21
Проклятый билдер


14-69514
Dimich1978
2002-11-02 09:08
2002.11.21
Где мона взять иконки разрешением 16x16


6-69474
megatrend
2002-08-30 18:37
2002.11.21
need help : Программа, написанная на Delphi5,


14-69565
Cr@sh
2002-11-04 13:54
2002.11.21
Помогите!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский