Телеграмм чат группы Delphi

2020 December 25

A

procedure TForm1.Button2Click(Sender: TObject);
const
Pi = 3.1415;
var
R:real;
H:real;
V:real;
begin
R := StrToFloat(Edit2.Text);
H := StrToFloat(Edit3.Text);
V := Pi * R * R * H;
Label7.Caption:='V='+FloatToStrF(V,ffFixed,8,3)
end

источник

14:37пожаловаться #1

A

Alex in Delphi & Lazarus

Код елементов

источник

14:37пожаловаться #2

A

Alex in Delphi & Lazarus

елементы на форме

источник

14:38пожаловаться #3

JR

Jarvis Ronuken in Delphi & Lazarus

Почему FloatToStrF используешь?

источник

14:39пожаловаться #4

A

Alex in Delphi & Lazarus

Надо без Ф ?

источник

14:40пожаловаться #5

JR

Jarvis Ronuken in Delphi & Lazarus

Да, с Ф это для денег

источник

14:40пожаловаться #6

A

Alex in Delphi & Lazarus

procedure TForm1.Button1Click(Sender: TObject);
const
Pi = 3.1415;
var
R:real;
S:real;
V:real;
begin

R := StrToFloat(Edit1.Text);
//
S := Pi * R * R;
//
V := 4/3 * Pi * R * R * R;

Label2.Caption:='S='+FloatToStrF(S,ffFixed,8,3);
Label3.Caption:='V='+FloatToStrF(V,ffFixed,8,3);
end;

источник

14:41пожаловаться #7

A

Alex in Delphi & Lazarus

а тут работает и щитает всё

источник

14:42пожаловаться #8

A

Alex in Delphi & Lazarus

источник

14:42пожаловаться #9

AS

Alexey Shumkin in Delphi & Lazarus

Alex

procedure TForm1.Button1Click(Sender: TObject);
const
Pi = 3.1415;
var
R:real;
S:real;
V:real;
begin

R := StrToFloat(Edit1.Text);
//
S := Pi * R * R;
//
V := 4/3 * Pi * R * R * R;

Label2.Caption:='S='+FloatToStrF(S,ffFixed,8,3);
Label3.Caption:='V='+FloatToStrF(V,ffFixed,8,3);
end;

Во-первых, убери вот эти label1, label7, и назови их нормально

источник

14:46пожаловаться #10

A

Alex in Delphi & Lazarus

А как их назвать тогда ?

источник

14:46пожаловаться #11

AS

Alexey Shumkin in Delphi & Lazarus

Alex

А как их назвать тогда ?

А для чего они у тебя используются, так и назови

источник

14:47пожаловаться #12

A

Alex in Delphi & Lazarus

Где буквы там label

источник

14:47пожаловаться #13

A

Alex in Delphi & Lazarus

Я уже запутался

источник

14:47пожаловаться #14

AS

Alexey Shumkin in Delphi & Lazarus

Alex

Я уже запутался

Вот поэтому и надо именовать по выполняемой функции

источник

14:48пожаловаться #15

A

Alex in Delphi & Lazarus

Alex

procedure TForm1.Button1Click(Sender: TObject);
const
Pi = 3.1415;
var
R:real;
S:real;
V:real;
begin

R := StrToFloat(Edit1.Text);
//
S := Pi * R * R;
//
V := 4/3 * Pi * R * R * R;

Label2.Caption:='S='+FloatToStrF(S,ffFixed,8,3);
Label3.Caption:='V='+FloatToStrF(V,ffFixed,8,3);
end;

А тогда почему этот код работает

источник

14:49пожаловаться #16

A

Alex in Delphi & Lazarus

Не пойму

источник

14:49пожаловаться #17

JR

Jarvis Ronuken in Delphi & Lazarus

Числа разные при вычислении?

источник

14:51пожаловаться #18

JR

Jarvis Ronuken in Delphi & Lazarus

http://www.delphibasics.ru/FloatToStr.php

www.delphibasics.ru

FloatToStr - Функция. Справочник - Основы Delphi

FloatToStr Преобразует значение с плавающей запятой в строку

источник

14:51пожаловаться #19

AS

Alexey Shumkin in Delphi & Lazarus

Alex

А тогда почему этот код работает

Любое "работает" - "не работает" скрывает за собой определеные критерии:
сработало - значит вывело то-то туда-то...
Сформулируй проблему в таком ключе

источник

14:51пожаловаться #20