Delphi yeni baslangic(soru)

[Misafir]

Kod: Tümünü seç

procedure degistir(var s1, s2 : String);
var temp : String;
temp := s1;
s1 := s2;
s2 := temp;
procedure TForm1.Button1Click(Sender: TObject);
var s1, s2 : String;
begin
s1 := Label1.Caption;
s2 := Label2.Caption;

tauschen(s1,s2);

Label1.Caption := s1;
Label2.Caption := s2;
end

end;

Arkadaslar kusura bakmayin delphi ögrenmeye calisiyorum kiymetli bi arkadasimin tavsiyesi ilede bur siteyi buldum ben burda nerde hatayapiyorum label larin yerlerini degistirmek istiyorum mesala bi döküman buldum öyle tek tek gidiyorum konulari su anada burdayim ve takildim bana yardim edebilirmisiniz?

birde su kodun ne yapmak istedigini anlayamadim tam biraz aciklarmisiniz?

Kod: Tümünü seç

var i, deger, max : Integer;
begin
  {...}
  i := 0;
  deger := 1;
  repeat
    i := i + 1;
    deger := deger * i;
  until deger >= max;
  {...}
end;

birde bu kodu anlayamadim

Kod: Tümünü seç

var i, max : Integer;
    dogru : Boolean;
begin
  {...}
  i := 2;
  dogru := true;
  while dogru do
  begin
    i := i*i;
    dogru := i < max;
  end;
  {...}
end;

konuyu yanlis yere actiysam özür dilerim daha yeniyim.
Hadi selametle..

[rsimsek]

Verdiğin örneklerde her ne kadar max değeri belli olmasada birincisinde repeat until .. bloğunda deger değişkeninin değeri max değişkeninden büyük veya eşit alana kadar döngü devam eder.. diğerinde ise i * i max tan küçük olduğu sürece döngü devam eder aksi halde döngüden çıkılır

[hich1shey]

Peki Hocam,

'While do' ile 'repeat until' döngüleri arasındaki fark nedir. burada aynı amaçla mı kullanılıyor?

tşk

[rsimsek]

while ... do da işleme başlamadan kontrol yapılır.. repeat .. until ... de de döngü her halükarda bir kez işletilir şart sağlanmışsa dögüden çıkılır aksi halde sağlanana kadar döngü devam eder..

[Misafir]

hocam tesekkürler peki ilk kodda nerde hata yapiyorum dökümanda söyle birsey var su kodu yaz diyor

Kod: Tümünü seç

var s1, s2 : String;
begin
  s1 := Label1.Caption;
  s2 := Label2.Caption;

  tauschen(s1,s2);

  Label1.Caption := s1;
  Label2.Caption := s2;
end;

bunu yazin diyor tabi button yapildaktan sonra button cift tiklayin ve code pencresine gelin diyor orda bunu yazin ve bende yazdim sonra birtane kod vermis söyle birsey

Kod: Tümünü seç

procedure tauschen(var s1, s2 : String);
var temp : String;
begin
  temp := s1;
  s1 := s2;
  s2 := temp;
end;

bu koduda "procedure TForm1...." üzerine ekleyin diyor yapiyom ama hata veriyor??

[Misafir]

tskler arkadaslar sorunu halletim while ve repeat until döngülerini de anladim sagolun