|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.08.2011, 11:03 | #1 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
калькулятор
скажите, пожалуйста, в чем ошибка
знак деления / не работает когда ставлю +, - или * то все нормально procedure Division; begin Form1.edt1.text:=inttostr(y/strtoint(Form1.edt1.text)); end; |
17.08.2011, 11:08 | #2 |
Недо
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,394
|
1. Проверяйте деление на нуль.
2. Переменные должны быть не целочисленные! 3. Ошибку какую выдает? или просто не работает?
С помощью программирования можно разбогатеть и изменить мир к лучшему (с) Бьерн Страуструп
|
17.08.2011, 11:16 | #3 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
ошибка следующая
there is no overloaded version of inttostr than can be called with these arguments насоклько я пониманию знак / несовместим с inttostr как же быть в данном случае? |
17.08.2011, 11:27 | #4 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Результат выражения y/strtoint(Form1.edt1.text) вещественный, с которым inttostr не умеет работать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
17.08.2011, 11:28 | #5 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,761
|
Вместо IntToStr используйте FloatToStr
|
17.08.2011, 11:29 | #6 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
помогло
спасибо! |
17.08.2011, 11:47 | #7 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
а как вычислить корень квадратный из числа, введенного в edt1.text не подскажете?
procedure TForm1.btn18Click(Sender: TObject); begin edt1.text:= FloatToStr(Sqrt(edt1.text)); end; |
17.08.2011, 11:52 | #8 | |
Пользователь
Регистрация: 20.07.2010
Сообщений: 45
|
Цитата:
Код:
Плохого человека должно быть мало...
|
|
17.08.2011, 11:53 | #9 | |
Форумчанин
Регистрация: 10.02.2009
Сообщений: 181
|
Цитата:
Код:
|
|
17.08.2011, 12:33 | #10 |
Форумчанин
Регистрация: 31.12.2010
Сообщений: 113
|
и еще почему то в этой строке выводит ошибку y:=strtofloat(edt1.text);
incompatible types integer and extended пытаюсь сделать возведение числа в степень procedure Extent; begin form1.edt1.Text:=FloatToStr(exp(y*l n(strtofloat(form1.edt1.Text)))); end; |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Калькулятор | Hilda | Помощь студентам | 3 | 25.04.2010 16:04 |
Калькулятор | manick | Общие вопросы Delphi | 8 | 23.04.2010 20:42 |
калькулятор | Bat{CMD}_Men | Общие вопросы Delphi | 1 | 22.04.2010 09:36 |
Калькулятор на с#.... | Kamil H. | Помощь студентам | 0 | 10.04.2010 15:37 |
Калькулятор | program09 | Общие вопросы C/C++ | 1 | 01.06.2009 15:39 |