Forum - HAJLO.COMmunity [ forum dyskusyjne, kasa za posty, forum młodzieżowe, forum wielotematyczne ]


Nabór do ekipy forum!!! Więcej informacji: Napisz PW

Użytkownicy przeglądający ten wątek: 1 gości



Problem z kalkulatorem.
(07-12-2010 20:52) #1

Problem z kalkulatorem.

Witam
Mam pewien problem z kalkulatorem Kwasny.
Napisałem program który mnoży, dodaje, odejmuje a przy dzieleniu wywala błąd.
Przy Wpisaniu rególki dzielenia

Cytat:var

X, Y, Z : extended;

begin

X := StrToInt(Edit10.text);

Y := StrToInt(Edit11.text);

Z := X / Y;

Edit12.text := FloatToStr(Z);

I zatwierdzeniu zmian i uruchomieniu programu wyskakuje błąd.
Włącza się on przy dzieleniu.
Co z tym mogę zrobić ??.
Co poprawić w kodzie ??.

(Ten post był ostatnio modyfikowany: 12-12-2010 17:20 przez DamiaX.)

[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX

(07-12-2010 20:56) #2

RE: Problem z kalkulatorem.

Kod:
var
  X, Y, Z : extended;
begin
X := StrToFloat(Edit10.text);
Y := StrToFloat(Edit11.text);
Z := X / Y;
Edit12.text := FloatToStr(Z);

Jeśli chcesz wykonać dzielenie całkowite, użyj operatora div.


religions, worst damnation of mankind

(08-12-2010 16:50) #3

RE: Problem z kalkulatorem.

Popraw Mi ten kod jak powinien wyglądać bo nie wiem gdzie go wstawić ;-/
Pomieszało mi się teraz wszystko Zęby.

(Ten post był ostatnio modyfikowany: 12-12-2010 17:20 przez DamiaX.)

[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX

(08-12-2010 17:08) #4

RE: Problem z kalkulatorem.

Klikasz 2 razy na buttona. przechodzi ci do edytora i Ctrl V.


religions, worst damnation of mankind

(08-12-2010 17:10) #5

RE: Problem z kalkulatorem.

Wiem gdzie kod wstawić ale nie wiem jak operatora użyć Jezyk1
Gdzie go wpisać Zęby


[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX

(08-12-2010 17:11) #6

RE: Problem z kalkulatorem.

Kod:
var
  X, Y, Z : extended;
begin
X := StrToFloat(Edit10.text);
Y := StrToFloat(Edit11.text);
Z := X div Y; // <--
Edit12.text := FloatToStr(Z);


religions, worst damnation of mankind

(08-12-2010 17:12) #7

RE: Problem z kalkulatorem.

Aha nie zobaczyłem dokladnie kodu Zęby Zęby


[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX

(08-12-2010 17:14) #8

RE: Problem z kalkulatorem.

I dupa nie działa zaznacza mi tą linijke z operatorem


[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX

(08-12-2010 17:16) #9

RE: Problem z kalkulatorem.

Kod:
var
  X, Y, Z : longint;
begin
X := StrToFloat(Edit10.text);
Y := StrToFloat(Edit11.text);
Z := X div Y; // <--
Edit12.text := FloatToStr(Z);


religions, worst damnation of mankind

(08-12-2010 17:20) #10

RE: Problem z kalkulatorem.

Ten też nie działa :/.
Teraz podkreśla X := StrToFloat(Edit10.text);

Cały kod programu

Cytat:unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button2: TButton;
Label3: TLabel;
Label4: TLabel;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Button3: TButton;
Label5: TLabel;
Label6: TLabel;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

X, Y, Z : Integer;

begin

X := StrToInt(Edit1.text);

Y := StrToInt(Edit2.text);

Z := X + Y;

Edit3.text := IntToStr(Z);

end;

procedure TForm1.Button2Click(Sender: TObject);
var

X, Y, Z : Integer;

begin

X := StrToInt(Edit4.text);

Y := StrToInt(Edit5.text);

Z := X - Y;

Edit6.text := IntToStr(Z);

end;

procedure TForm1.Button3Click(Sender: TObject);
var

X, Y, Z : Integer;

begin

X := StrToInt(Edit7.text);

Y := StrToInt(Edit8.text);

Z := X * Y;

Edit9.text := IntToStr(Z);

end;

procedure TForm1.Edit10Change(Sender: TObject);
var

X, Y, Z : extended;

begin

X := StrToInt(Edit10.text);

Y := StrToInt(Edit11.text);

Z := X / Y;

Edit12.text := FloatToStr(Z);

end;

procedure TForm1.Button4Click(Sender: TObject);
var
X, Y, Z : longint;
begin
X := StrToFloat(Edit10.text);
Y := StrToFloat(Edit11.text);
Z := X div Y;
Edit12.text := FloatToStr(Z);

end;

end.


Notatka od DamiaX, 08-12-2010 17:20:

To On Zęby.


[Obrazek: 2B31awhgwrOiRx39rUsBQf]

Copyright © 2012 DamiaX




Skocz do:


Użytkownicy przeglądający ten wątek: 1 gości

Linki

Copyrights

Tłumaczenie: Polski Support MyBB Silnik MyBB Styl: Darek