Автор Тема: Задание по Delphi (при введении данных возникает ошибка)  (Прочитано 6562 раз)

0 Пользователей и 2 Гостей просматривают эту тему.

Оффлайн PandaPivovar

  • Новичок
  • *
  • Сообщений: 16
    • Просмотр профиля
При запуске работы и введении в поле числа с запятой возникает ошибка. При целых значениях выдаёт цивильный ответ, в задании есть тело программы, но даже с ним не выходит(у меня). Выкладываю куски с кодом.
procedure TTmemo.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','-','.',#8]) then key:=#0;
end;

procedure TTmemo.Button1Click(Sender: TObject);
var x,y,a,b,esp:real;
    n:byte;
begin
Tmemo.Lines.Clear;
y:=0;
n:=0;
b:=-1.0;
x:=StrToFloat(Edit1.Text);
esp:=StrToFloat(Edit2.Text);
Repeat
b:=-b*x;
inc(n);
a:=b/n;
y:=y+a;
Tmemo.Lines.Add('Интерация'+IntTostr(n)+'   a=' +
FormatFloat('0.00000',a)+'  y='+
FOrmatfloat('0.00000',y));
Until abs(a)< esp
« Последнее редактирование: 29 Ноября 2009, 14:36:12 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Во первых посмотри вот что в Delphi в компоненте edit есть свойство котоое определяет знак, который будет разделитлем в числе с точкой. Во вторых применяй точку а не запятую) И в третьих используй функцию val вместо StrToFloat . Она выдает номер символа который не преобразуется.  
« Последнее редактирование: 29 Ноября 2009, 14:36:41 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн PandaPivovar

  • Новичок
  • *
  • Сообщений: 16
    • Просмотр профиля
Val неактуальная переменная
« Последнее редактирование: 29 Ноября 2009, 14:36:46 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
val это функция во-первых)А что значит неактуальная она решает задачу и гораздо информативней чем ту что вы используете
« Последнее редактирование: 29 Ноября 2009, 14:36:52 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн PandaPivovar

  • Новичок
  • *
  • Сообщений: 16
    • Просмотр профиля
Когда переменую засовываю в функцую выдаёт ошибку:) вот о чём я:)
« Последнее редактирование: 29 Ноября 2009, 14:36:57 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
Во первых для нее нужно три параметра, последний это переменная где код ошибки.  
« Последнее редактирование: 29 Ноября 2009, 14:37:03 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
В чем ошибка?
« Последнее редактирование: 29 Ноября 2009, 14:37:08 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн PandaPivovar

  • Новичок
  • *
  • Сообщений: 16
    • Просмотр профиля
При вводе в поле Edit1 значение 0.25(значение из примера), возникает окно с ошибкой 0.25 is not valit floating point value. Как я понимаю проблема в значении с точкой.
« Последнее редактирование: 29 Ноября 2009, 14:37:14 от Asix »

Оффлайн InfStudent

  • Модератор
  • *****
  • Сообщений: 1356
  • Куба любовь моя))
    • Просмотр профиля
У меня с запятой сработал ввод (я  написал простую маленькую прогу берущую из edit'ов) два значения, а с точкой как у вас. Однако решением может быть  DecimalSeparator:='.'. Это переменная отвечает в Delphi за символ который отдлеляет целую часть от дробной. Поэтому в программу можно добавить код, просящий пользователя определить символ отделения дробной части от целой. У меня с точкой все корректно обработалось после того как я перед вызовом функции StrToFloat(); вставил инструкцию DecimalSeparator:='.'  
« Последнее редактирование: 29 Ноября 2009, 14:36:34 от Asix »
Прежде чем задавать вопрос в раздел по программированию повтори теорию и посмотри FAQ! Просьба не кидайте задания в ЛС и не надо мне писать: "посмотри мою задачу!!!" Я смотрю все задачи в разделе когда на форуме
Учтите что подобные ЛС будут оставлены без внимания!
УКАЗЫВАЙТЕ ЯЗЫК ПРОГРАММИРОВАНИЯ НА КОТОРОМ ДОЛЖНА БЫТЬ РЕШЕНА ЗАДАЧА
Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн PandaPivovar

  • Новичок
  • *
  • Сообщений: 16
    • Просмотр профиля
Спасибо за ответ:) Ваш совет помог избавиться от этой ошибки:)

 

Помогите решить задание на С++. Решить этот ДУ методом Рунге-Кутта

Автор artecovez

Ответов: 0
Просмотров: 8313
Последний ответ 24 Апреля 2010, 20:41:08
от artecovez
Задание на зачет по проге: придумать и написать игрушку на билдере

Автор мехатроник

Ответов: 10
Просмотров: 5826
Последний ответ 09 Декабря 2009, 21:21:21
от samar
Помогите решить задание на С++

Автор chezen

Ответов: 1
Просмотров: 6834
Последний ответ 28 Сентября 2009, 07:43:09
от lu
Небольшое задание по программированию

Автор Dao

Ответов: 0
Просмотров: 2756
Последний ответ 07 Декабря 2011, 12:07:31
от Dao
Задание со строками

Автор -happy

Ответов: 6
Просмотров: 5782
Последний ответ 20 Декабря 2010, 00:54:37
от Данила