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:
Decimālie mainīgie
Izšķir šādus decimālos mainīgos (t.i., skaitļi ar vienībām aiz komata):
| Tips | Intervāls (jeb pieļaujamās vērtību robežas) | Precizitāte |
|---|---|---|
| single | 1.18E-38 ... 3.4E38 | 7 |
| double | 2.23E-308 ... 1.79E308 | 15 |
| extended | 3.37E-4932 ... 1.18E4932 | 19 |
| currency | ... | 53 (noapaļojot ataino 4 zīmes aiz komata) |
P.S. 1.18E-38 var pierakstīt arī kā 1.18*10-38.
P.P.S. "Tautas valodā" sakot, precizitāte nozīmē, cik cipariem, skaitot no skaitļa sākuma, var ticēt. Piemēram, liekot "single" tipa mainīgajam lābelī izvadīt 20 zīmju skaitli (a:=0.1234567890123456789), izvadīts tiek "0.123456791043282", t.i., (apmēram) pirmie septiņi ir precīzi, bet pārējie, šķiet, tiek izvadīti "gļuka" pēc. To pašu liekot izvadīt konsoles režīmā, rezultāts ir aptuveni tāds pats. Savukārt "Double" korekti izvada tikai paredzētos 15 ciparus. Un vēl - par precizitāti ir jāmaksā ar ātrdarbības samazināšanos!
N.B.! "strtofloat" pārvērš tekstuālu vērtību par decimālu (pretēji būs "floattostr") un šis tiek attiecināts gan uz "string", gan "double" un "extended".. ". currtostr" pārvērš valūtas ("Currency") vērtību par tekstuālu.
Piemērs:
Izveidot programmu, kas aprēķina riņķa līnijas perimetru atbilstoši lietotāja ievadītajam rādiusam (P=2πr)
procedure TForm1.Button1Click(Sender: TObject);
const pi=3.141593;
var P,r:double;
begin
| r:=strtofloat(edit1.text); | {Lietotāja ievadīto vērtību piešķir mainīgajam "r" un to no tekstuālas vērtības pārvērš par decimālu, lai varētu veikt aprēķinus} |
| P:=2*pi*r; | {tiek aprēķināta mainīgā "P" vērtība} |
| label2.caption:='"P" ir: '+floattostr(P); | {Izvada tekstu un "P" decimālo vērtību, kuru, lābeļa īpatnību dēļ, pārvērš par tekstuālu vērtību} |
| end; |
Autortiesības © 2005-2011, kasis.lv. Visas tiesības aizsargātas.