Ĺ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
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