Miten kaksi lukua lasketaan yhteen ?
Alkeita
Helppo Heikki
3625
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Turvaa tilisi vahvistamalla puhelinnumerosi. Voit silloin palauttaa unohtuneen salasanan tekstiviestillä.
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 3
Vanhimmat
aloita sisäistämällä tämä
1 2=3
var summa,l1,l2:integer;
p1,p2:^integer;
begin
l1:=1;l2:=2;
p1:=@l1;
p2:=@l2;
summa:=p1^ p2^;
end;
Alla oleva koodi varmaan kertoo tuon periaatteen, lisää tuo Button:n OnClick tapahtumaan ja lukaise ohjeita F1- napilla.
Jos et tiedä niin "//" merkeillä varustetut lauseet/ohjeet ovat kommentteja, jotka ovat ainuastaan ihmisille, ei koneelle, eli kääntäjä ei niitä huomioi kääntäessään koodin konekielelle.
procedure TForm1.Button1Click(Sender: TObject);
var
// Varataan metodin ajaksi vähän muistia..
Summa : Integer;
begin
// Lasketaan 1 1 ja sijoitetaan vastaus 32 bitin kokoiseen muistialueeseen,
// Ts. Integer Tyyppiseksi määritettyyn muuttujaan "Summa"
Summa := 1 1;
// Muunna ensin kirjain muotoon ja tulosta tämä ikkunan otsikkoon
Self.Caption := IntToStr(Summa);
end;