Главная arrow icon Вопросы arrow icon Технологии arrow icon Delphi arrow icon В Делфи 10 пытаюсь округлить значение…

В Делфи 10 пытаюсь округлить значение переменной типа real в Edit, но после использования всяких функций, у меня выводит постоянно значение=0.Новичок, поэтому не понимаю совсем, что не так делаю? - вопрос №1907304

procedure TForm1.Button2Click(Sender: TObject);var r,l,t,a,y,v,w,f:real;beginr:=StrToFloat(Edit1.Text)/100;l:=StrToFloat(Edit1.Text)/100;t:=StrToFloat(Edit1.Text);a:=StrToFloat(Edit1.Text)*pi/180;//в радианахf:=r*sin(a)/l;y:=arcsin(f);//в радианахv:=-((r*a)/t)*((sin(a+y))/cos(y));w:=-(r*(sqr(a))/(sqr(t))*(Cos(a)+(r*Cos(2*a)/l)));Edit5.Text:=FloatToStr(v);Edit6.Text:=FloatToStr(w);end;
Екатерина
05.04.16
Технологии / Delphi
1 ответ

Ответы

Рейтинг: 12 599
FloatToStr — это не округление, а перевод действительного числа в строковый тип. Ваши переменные r,l,t,a берут значения из одного текстового поля Edit1, скорее всего поэтому у вас и выходит 0.
Вы наверное хотели брать данные из разных полей?
05.04.16
Посмотреть всех экспертов из раздела Технологии > Delphi
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее