[solved] what's wrong with my proggram?
lazarus / 21-General

----------------------------------------------------------------------
ccttcc · 2021-03-26 09:38

procedure TForm1.Button1Click(Sender: TObject);
var Nazva, R, V: String; Period: Real;
  Const Pi = 3.1415926;
begin
Nazva := Edit1.Text;
R := StrToFloat(Edit2.Text);
V := StrToFloat(Edit3.Text );
Period := 2*Pi*R/V*24;
Edit4.Text := FloatToStr(Period);
ShowMessage('%u0420%u0456%u043A %u043D%u0430
%u043F%u043B%u0430%u043D%u0435%u0442%u0456 ' + Nazva + '
%u0442%u0440%u0438%u0432%u0430%u0454 ' + FormatFloat('#0.00',Period) +
'%u0434%u0456%u0431 ');

errors i got:
 unit1.pas(45.6) Error: Incompatible types: got "Double" expected
"AnsiString"
 unit1.pas(46.6) Error: Incompatible types: got "Double" expected
"AnsiString"
 unit1.pas(47.15) Error: Operator is not  overloaded: "Double" *
"AnsiString"

----------------------------------------------------------------------
dseligo · 2021-03-26 09:43

Try it like this. R and V should also be 'real'.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.Button1Click(Sender: TObject);var Nazva: String;     R, V,
Period: Real;Const Pi = 3.1415926;begin  Nazva := Edit1.Text;  R :=
StrToFloat(Edit2.Text);  V := StrToFloat(Edit3.Text );  Period :=
2*Pi*R/V*24;  Edit4.Text := FloatToStr(Period);  ShowMessage('Рік на
планеті ' + Nazva + ' триває ' + FormatFloat('#0.00',Period) + 'діб
');end;

----------------------------------------------------------------------
ccttcc · 2021-03-26 09:58

ty!! you really helped me.