Artiklen er blevet opdateret uden koden er testet, ergo der kan
være fejl i nogle at kode stumperne
Dit første matematik program!
Lad os starte med nogle små plus stykker
var
a,i,result:integer;
begin
a:=55;
i:=45;
result:=a+i;
Messagebox(IntToStr(result));
end;
Det samme gælder når du skal minus, gange og dividere, med visse
undtagelser da dividere helst skal gøres med en anden data form
da integer kun kan vise hele tal.
Minus :
var
a,i,result:integer;
begin
a:=55;
i:=45;
result:=a*i; - Skriv bare +,-,/ istedet for *
Messagebox(IntToStr(result));
end;
Hvis du prøver at sætte dette ind på evt en "Button"
skulle den meget gerne regne 45+55 = 100
og bagefter poppe op med en boks der skriver 100
Dette kan også gøres med andre tegn end lige plus
du skal gøre det ligesom oven over bare indsætte *,/ eller minus
<br><br>
Først starter vi med at lave 1 editbox bare kald den E1
så laver du så en knap dette er dog ligemeget hvad den hedder
så skal vi til koden
Nu vil vi gerne afrunde et komma tal måske et stort et ? hvem gidder da til det? :P - eks 45,38465826 gidder du til at sidde og afrunde hele dagen? NEJ
så derfor vil vi bruge af denne function kaldet "Round" altså Rund tror det står for Afrund :)
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(Round(StrToFloat(Edit1.text)));
ShowMessage(edit1.text);
end;
Dette stykke kode skulle gerne afrunde tallet du skrev i editboxen ( edit1 )
Wolla så kan vi allerede trylle :P
Det var bare ikke så avanceret igen :$
Lad os prøve at lave lidt med procenter
Lav 2 editboxe kaldet edit1,edit2
Lav 1 knap kaldet Button1
Men jeg håber da ikke i snyder ;)
eks : lad os sige vi ser et tilbud :
25% Rabat på dette fjernsyn med sorround lyd og indbygget dvd og dvd-dekoder
normal pris 3400kr
så vil vi så regne ud hvor meget vi sparer :D
så tænker vi 25/3400 = 850kr
så dvs at vi sparer 850 og så regner vi ud hvad det bliver totalt
- 3400
850
-------
2550
=======
procedure TForm1.button1.OnClick (Sender: TObject);
var result:string;
begin
result:=StrToInt(edit1.text)/StrToInt(edit2.text)*100; // Giver sig selv det er bare xxx*xxx/100
showmessage(result);
end;
Denne artikle er redigeret d 1/12 07
Den er blevet lidt mere begynder venlig
Der kan opstå fejl i koderne
og jeg tilføjer stadig mere til den + den er blevet gjort gratis
