döngüler
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Delphi de döngüler
While Şart Do
Komut
Şayet Bir kaç satır komut işletmek istiyorsan begin end; blokları arasına alınır.
Örn: While döngüsü
While i < 100 do //i nin değeri yüz olana kadar döngü döner
Begin
i := i + 1;
End;
ShowMessage(' i nin değeri ' + intToStr(i));
Örn : For Döngüsü
i := 0;
For i := 1 to 100 do
Begin
Label1.Caption := intToStr(i);
End;
Label2.Caption := intToStr(i);
Burada label1 100 değerini verecektir. label2 ise 101 çünkü son döngüye girmeden şart kabul edilmemiş ama değer 1 artırılmıştır.
Örn : Repeat Until Döngüsü
i := 0;
Repeat
i := i + 1;
Until i < 100;
Label1.Caption := intToStr(i);
Burada i değeri 1 olacaktır şart kabul olsada olmasada döngü içindeki satırlar birkere mutlaka çalıştırılır.
Umarım yardımcı olabilmişimdir.
While Şart Do
Komut
Şayet Bir kaç satır komut işletmek istiyorsan begin end; blokları arasına alınır.
Örn: While döngüsü
While i < 100 do //i nin değeri yüz olana kadar döngü döner
Begin
i := i + 1;
End;
ShowMessage(' i nin değeri ' + intToStr(i));
Örn : For Döngüsü
i := 0;
For i := 1 to 100 do
Begin
Label1.Caption := intToStr(i);
End;
Label2.Caption := intToStr(i);
Burada label1 100 değerini verecektir. label2 ise 101 çünkü son döngüye girmeden şart kabul edilmemiş ama değer 1 artırılmıştır.
Örn : Repeat Until Döngüsü
i := 0;
Repeat
i := i + 1;
Until i < 100;
Label1.Caption := intToStr(i);
Burada i değeri 1 olacaktır şart kabul olsada olmasada döngü içindeki satırlar birkere mutlaka çalıştırılır.
Umarım yardımcı olabilmişimdir.
inttostr strtoint dönüşümleri
bu dönüşümleri yaparken kolay bir yol var mı hesaplatmalrda problem yaşıyorum ve genelde dönüşümden kaynaklanan hatalar alıyorum...
döngüler için teşekkürler
döngüler için teşekkürler
Değişken Tiplerine ve yaptığın atamalara dikkat et.
Mesala Edit1 deki değeri alırken Stringi Integer tipine değiştir.
Örn:
i := StrToInt(Edit1.Text);
Label1.Caption := intToStr(i);
Tam sayılarda (integer) tipinde bölme işlemi yaparken div operatörünü kullan
Örn :
i := 9 div 3;
Label1.Caption := intToStr(i);
Gercek sayılarda ise " / " operatörünü kullan.
Mesala Edit1 deki değeri alırken Stringi Integer tipine değiştir.
Örn:
i := StrToInt(Edit1.Text);
Label1.Caption := intToStr(i);
Tam sayılarda (integer) tipinde bölme işlemi yaparken div operatörünü kullan
Örn :
i := 9 div 3;
Label1.Caption := intToStr(i);
Gercek sayılarda ise " / " operatörünü kullan.