Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Delphi döngüler (for,while,repeat) örnek..
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="nazenin" data-source="post: 534040" data-attributes="member: 83500"><p><span style="color: #2f4f4f"><em><strong>0-100 arası tek ve çift sayı toplamının farkını bulan program..</strong></em></span></p><p></p><p><strong>→ for</strong></p><p><strong></strong></p><p>var</p><p> i,ttop,ctop:integer;</p><p>begin</p><p> ttop:=0; ctop:=0;</p><p> fori:= 0 to 100 do begin</p><p> ifi mod2=0 then</p><p> ctop:=ctop+i else</p><p> ttop:=ttop+i;</p><p>end;</p><p>write('teksayıtoplamı');writeln(ttop);</p><p> write('çiftsayıtoplamı');writeln(ctop);</p><p>write('tek-çifttoplamfarkı');writeln(ttop-ctop);</p><p>readln;</p><p>end.</p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p><strong>→while</strong></p><p> </p><p>var</p><p> i,ttop,ctop:integer;</p><p>begin</p><p> ttop:=0; ctop:=0; i:=0;</p><p> while i<=100 do begin</p><p> ifi mod2=0 then</p><p> ctop:=ctop+i else</p><p> ttop:=ttop+i;</p><p> i:=i+1;</p><p>end;</p><p>write('teksayıtoplamı');writeln(ttop);</p><p> write('çiftsayıtoplamı');writeln(ctop);</p><p>write('tek-çifttoplamfarkı');writeln(ttop-ctop);</p><p>readln;</p><p>end.</p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p><strong>→repeat</strong></p><p> </p><p>var</p><p> i,ttop,ctop:integer;</p><p>begin</p><p> ttop:=0; ctop:=0; i:=0;</p><p> repeat</p><p> ifi mod2=0 then</p><p> ctop:=ctop+i else</p><p> ttop:=ttop+i;</p><p> i:=i+1;</p><p>until i>100;</p><p>write('teksayıtoplamı');writeln(ttop);</p><p> write('çiftsayıtoplamı');writeln(ctop);</p><p>write('tek-çifttoplamfarkı');writeln(ttop-ctop);</p><p>readln;</p><p>end.</p></blockquote><p></p>
[QUOTE="nazenin, post: 534040, member: 83500"] [COLOR=#2f4f4f][I][B]0-100 arası tek ve çift sayı toplamının farkını bulan program..[/B][/I][/COLOR] [B]→ for [/B] var i,ttop,ctop:integer; begin ttop:=0; ctop:=0; fori:= 0 to 100 do begin ifi mod2=0 then ctop:=ctop+i else ttop:=ttop+i; end; write('teksayıtoplamı');writeln(ttop); write('çiftsayıtoplamı');writeln(ctop); write('tek-çifttoplamfarkı');writeln(ttop-ctop); readln; end. [B]→while[/B] var i,ttop,ctop:integer; begin ttop:=0; ctop:=0; i:=0; while i<=100 do begin ifi mod2=0 then ctop:=ctop+i else ttop:=ttop+i; i:=i+1; end; write('teksayıtoplamı');writeln(ttop); write('çiftsayıtoplamı');writeln(ctop); write('tek-çifttoplamfarkı');writeln(ttop-ctop); readln; end. [B]→repeat[/B] var i,ttop,ctop:integer; begin ttop:=0; ctop:=0; i:=0; repeat ifi mod2=0 then ctop:=ctop+i else ttop:=ttop+i; i:=i+1; until i>100; write('teksayıtoplamı');writeln(ttop); write('çiftsayıtoplamı');writeln(ctop); write('tek-çifttoplamfarkı');writeln(ttop-ctop); readln; end. [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
En iyi yönetim şekli?
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Delphi döngüler (for,while,repeat) örnek..
Top