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 birkaç basit ö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: 534013" data-attributes="member: 83500"><p><span style="color: #b22222"><strong>İdeal kiloyu hesaplayıp alınması yada verilmesi gereken kilo miktarını belirten program..</strong></span></p><p>(erkek= boy-yaş*0,009 kız= boy-yaş*0,008 tölerans=+/-8 )</p><p> </p><p><strong>→ if</strong></p><p> </p><p>var</p><p> boy,yaş,kilo,ik,ika,iku:real;</p><p> cins:string[1];</p><p>begin</p><p> write('boyunuzcm');readln(boy);</p><p> write('yaşınız');readln(yaş);</p><p> write('kilonuzkg');readln(kilo);</p><p> write('cinsiyetiniz e/k');readln(cins);</p><p> if cins = 'e' then </p><p>ik := boy-yaş*0,009;</p><p>else </p><p>ik:=boy-yaş*0,008;</p><p> ika:=ik-8; ikü:=ik+8;</p><p> if (kilo>ika) and (kilo<ikü) then write('idealkilodasın');</p><p> if(kilo<ika then begin write('kilo almalısın almanız gereken kilo'); write(ik-kilo);</p><p> end;</p><p> if kilo>iku then begin </p><p> write('kilo vermelisin vermeniz gereken kilo');</p><p> write('kilo-ik);</p><p> end;</p><p>readln;</p><p>end.</p><p> </p><p> </p><p> </p><p><strong>→case</strong></p><p> </p><p>var</p><p> boy,yaş,kilo,ik,ika,iku:real;</p><p> cins:char;</p><p>begin</p><p> write('boyunuzcm');readln(boy);</p><p> write('yaşınız');readln(yaş);</p><p> write('kilonuzkg');readln(kilo);</p><p> write('cinsiyetiniz e/k');readln(cins);</p><p> case cins of</p><p>'e':ik:=boy-yaş*0,009;</p><p>'k':ik:=boy-yaş*0,008;</p><p> else</p><p> write ('yamlışcinsiyet');</p><p> end;</p><p> ika:=ik-8; iku:=ik+8;</p><p> if (kilo>=ika) and (kilo<=iku) then</p><p> write ('idealkilodasınız');</p><p> if kilo<ika then begin </p><p> write('almanız gereken kilo'); write(ik-kilo:2:1)</p><p> end;</p><p> if kilo > iku then begin</p><p> write('vermeniz gereken kilo'); write(kilo-ik:2:1);</p><p> end;</p><p>readln;</p><p>end.</p></blockquote><p></p>
[QUOTE="nazenin, post: 534013, member: 83500"] [COLOR=#b22222][B]İdeal kiloyu hesaplayıp alınması yada verilmesi gereken kilo miktarını belirten program..[/B][/COLOR] (erkek= boy-yaş*0,009 kız= boy-yaş*0,008 tölerans=+/-8 ) [B]→ if[/B] var boy,yaş,kilo,ik,ika,iku:real; cins:string[1]; begin write('boyunuzcm');readln(boy); write('yaşınız');readln(yaş); write('kilonuzkg');readln(kilo); write('cinsiyetiniz e/k');readln(cins); if cins = 'e' then ik := boy-yaş*0,009; else ik:=boy-yaş*0,008; ika:=ik-8; ikü:=ik+8; if (kilo>ika) and (kilo<ikü) then write('idealkilodasın'); if(kilo<ika then begin write('kilo almalısın almanız gereken kilo'); write(ik-kilo); end; if kilo>iku then begin write('kilo vermelisin vermeniz gereken kilo'); write('kilo-ik); end; readln; end. [B]→case[/B] var boy,yaş,kilo,ik,ika,iku:real; cins:char; begin write('boyunuzcm');readln(boy); write('yaşınız');readln(yaş); write('kilonuzkg');readln(kilo); write('cinsiyetiniz e/k');readln(cins); case cins of 'e':ik:=boy-yaş*0,009; 'k':ik:=boy-yaş*0,008; else write ('yamlışcinsiyet'); end; ika:=ik-8; iku:=ik+8; if (kilo>=ika) and (kilo<=iku) then write ('idealkilodasınız'); if kilo<ika then begin write('almanız gereken kilo'); write(ik-kilo:2:1) end; if kilo > iku then begin write('vermeniz gereken kilo'); write(kilo-ik:2:1); end; readln; end. [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Ülkemizin kuzeyindeki deniz hangisidir? (bitişik yazınız)
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Delphi birkaç basit örnek..
Top