Проблемы с калькулятором

[puporev]

var znak: string;
a, b, otvet: real;
---------------------------
b := StrToInt(sEdit1.text);???
case znak[1] of
begin ???

[dr.Chas]

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

b := StrToInt(sEdit1.text);???

Это его

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

case znak[1] of
begin ???

прямо здесь писал, ошибся с кем не бывает)

P.S.: В том посте поправил.

[Arigato]

dr.Chas

'/': If (a<>0) or (b<>0) then otvet:= a/b;

Это не верно, т.к. если b = 0, а a <> 0, условие выполняется и получаем деление на 0.

[dr.Chas]

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

dr.Chas

Это не верно, т.к. если b = 0, а a <> 0, условие выполняется и получаем деление на 0.

Хм... Исправил

[Arigato]

Хм... Исправил

А все равно не понятно, почему a не может быть = 0? Достаточно проверки, что бы b <> 0, а если 0, то нужно тоже что-то выдавать.

[dr.Chas]

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

А все равно не понятно, почему a не может быть = 0? Достаточно проверки, что бы b <> 0, а если 0, то нужно тоже что-то выдавать.

Вот не силён в математике. Но всегда думал что под "Делить на нуль нельзя". Подрузамиваеться
2/0
и
0/2
Оказываеться это не так?

P.S.: проверил на стандартном калькуляторе и вправду так можно 0/2, а так нет 2/0.
ППЦ, нету слов.

P.S.S: ну а на счёт выдавать это он и сам допишет. Тем более это у него и было.

[Карась]

Сообщение от dr.Chas

Вот не силён в математике. Но всегда думал что под "Делить на нуль нельзя". Подрузамиваеться
2/0
и
0/2
Оказываеться это не так?

P.S.: проверил на стандартном калькуляторе и вправду так можно 0/2, а так нет 2/0.
ППЦ, нету слов.

P.S.S: ну а на счёт выдавать это он и сам допишет. Тем более это у него и было.

Это можно проверить таким преобразованием..... Разбиваем добь на два множителя...

Напрмер: 0/2 = 1/2 * 0 = 0
Таким образом мы вообще вынесли ноль из дроби....

В выражении же 2/0 этого сделать нельзя и деление на ноль очевидно неменуемо.

[MAKEDON]

Сори забыл сказать..уже получиось...ошибка была написал ' /', а надо '/'...вот и ошибка...всем спасибо тема закрыта!

Хотя пока не закрыта...скажи какой формулой находиться квадратный корень?

[puporev]

y:=sqrt(x);