ďťż

Ładny brzuch

chce zrobic kalkulator obwodu kola
wszystko ok
mam formuly na mnozenie
ale nie wiem jaki typ zmiennych zastosowac zeby dzialaly np liczby 3,14
tzn z przecinkiem

jak daje Integer to pisze ze jest przecinek :blink: :blink:

POMOCY JESTEM POCZĄTKUJĄCY

pozdro




chce zrobic kalkulator obwodu kola
wszystko ok
mam formuly na mnozenie
ale nie wiem jaki typ zmiennych zastosowac zeby dzialaly np liczby 3,14
tzn z przecinkiem

jak daje Integer to pisze ze jest przecinek :blink:  :blink:

POMOCY JESTEM POCZĄTKUJĄCY

pozdro

procedure TForm1.Button1Click(Sender: TObject); var X, Y, Z, P : Integer; // zmieniam to integer na Real lub double lub inne begin X := StrToInt(Edit1.text); Y := StrToInt(Edit2.text); Z := 3.14 * X; P := 6.28 * Y; Label1.Caption := IntToStr(Z); Label3.Caption := IntToStr(P);

mam takie cos

i kiedy zmienie Integer w var to dalej sie nie uruchomi

mi sie wydaje ze trzeba cos zrobic jeszcze z StrToInt i IntToStr ale nie wiem co
pomozcie prosze

procedure TForm1.Button1Click(Sender: TObject); var X, Y, Z, P : Double; begin X := StrToFloat(Edit1.text); Y := StrToFloat(Edit2.text); Z := 3.14 * X; P := 6.28 * Y; Label1.Caption := FloatToStr(Z); Label3.Caption := FloatToStr(P); end;

MAM!!!!!!
to tak ma byc!!!!!!
dziala!!!!!!!

temat do zamknięcia

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •