Sākumlapa
"Pirmā web lapa"
HTML
CSS
Citi materiāli
Ceļošana - kalni
Lazarus (Delphi)
Ievads
Lazarus vide
Pirmā programma
Mainīgie
Globālie mainīgie
Teksta mainīgie
Veselie mainīgie
Decimālie mainīgie
Zarošanās (If)
Cikli - For
Cikls - While
Gadījuma skaitļi
Masīvi_1
Masīvi_2
Konsole
Darbs ar datnēm
Kārtošana (ievads)
Kārto (Burbulis)
Meklēšana (lineāri)
Vēl iesaku:
Veselie mainīgie
Izšķir šādus veselos mainīgos (t.i., veseli skaitļi):
| Tips | Intervāls (jeb pieļaujamās vērtības robežas) |
|---|---|
| shortint | -128...127 |
| smallint | -32 768 ... 32 767 |
| longint | -2 147 483 648 ... 2 147 483 647 |
| integer* | -2 147 483 648 ... 2 147 483 647 |
| int64 | -9,223,372,036,854,775,808 ... 9,223,372,036,854,775,807 |
| byte | 0 ... 255 |
| word | 0 ... 65 535 |
| longword | 0 ... 4,294,967,295 |
| cardinal* | 0 ... 4,294,967,295 |
* Šiem skaitļu tipiem Delphi valodā netiek garantēts pašreizējais 4 baitu lielums - nākotnē tas var pieaugt.
Tātad, ja mainīgā vērtības programmas izpildes gaitā tiek pieļautas tikai robežās no 20 līdz 200, tad mainīgais būtu definējams kā "byte".
N.B.! Strādājot ar skaitļiem jāņem vērā kāda īpatnība, kuru jau minēju iepriekš - lābeļa "Caption", gan teksta lauciņa "Text" īpašību vērtības ir ar teksta dabu. Tātad teksta lauciņā ievadītais cipars tiks uztverts kā teksts, ar kuru nevar veikt aprēķinus. Arī lābelī nevar tikt izvadīta skaitliska vērtība, piemēram, integer. Tas nozīmē, ka skaitlis būs jāpārvērš par tekstu un otrādi. To panāk ar komandu "strtoint" (no "string to integer") un "inttostr".
Piemērs:
Izveidot programmu, kas saskaita divus lietotāja ievadītus veselus skaitļus un izvada " Rezultāts: x", kur "x" ir iegūtā summa.
procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint(Edit1.text); {"7" no teksta tiek pārvērsts par skaitli}
b:=strtoint(Edit2.text); {"4" no teksta tiek pārvērsts par skaitli}
Label2.Caption:='Rezultāts: ' + inttostr(a+b); {Izvada tekstu un summu, kuru pārvērš par tekstuālu vērtību}
end;
Autortiesības © 2005-2011, kasis.lv. Visas tiesības aizsargātas.