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: 533269" data-attributes="member: 83500"><p>biraz örnek paylaşmak istedim.. bunlar çok basit örnekler ama yeni başlayanlara yardımcı olur sanırım.. 1.snıf notlarımdan.. </p><p>hocaların istekleri bitmez.. yarın 30 örnekle gel diyen hoca biliyorum.. <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Gülümse :)" loading="lazy" data-shortname=":)" /></p><p>bi noktaya kadar kendiniz yazabilirsiniz ama .. illaki böyle çözümlü örnekler gerekiyo.. <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Gülümse :)" loading="lazy" data-shortname=":)" /></p><p></p><p></p><p></p><p></p><p> <span style="color: #000080"><span style="font-family: 'arial black'">Bir işçinin bürüt ücretini hesaplayan program..</span></span></p><p>(ücret = yevmiye * çalıştığı gün sayısı )</p><p>var</p><p> ücret,yevmiye,*çalıştıgıgünsayısı :real;</p><p>begin</p><p> write(' günlük ücret ' ); readln (yev);</p><p> write(' çalıştığıgünsayısı ' ); readln (çgs);</p><p> ücret:=yev*çgs;</p><p> write(' bürüt ücret ' ); readln (ücret);</p><p>readln;</p><p>end.</p><p> </p><p> </p><p><span style="color: #000080"><span style="font-family: 'arial black'">İşçinin net ücretini hesaplayan program..</span></span></p><p>( net ücret= bürüt-damga vergisi-gelir vergisi )</p><p>( damga vergisi= bürüt ücret * %0,1 )</p><p>( gelir vergisi=bürüt ücret * %0,3 )</p><p> </p><p>var</p><p> ücret,yev,çgs,damga,gelir,net:real;</p><p>begin</p><p> write(' günlükücret ' ); readln (yev); </p><p> write('çalıştığıgünsayısı ' ); readln (çgs);</p><p> ücret:=yev*çgs;</p><p> damga:=ücret*0,03;</p><p> net:=ücret -damga-gelir;</p><p> write(' bürütücret ' ); readln (ücret);</p><p> write(' gelirvergisi ' ); readln (gelir);</p><p> write(' damgavergisi ' ); readln (damga);</p><p> write(' netücret ' ); readln (net);</p><p>readln;</p><p>end.</p><p> </p><p> </p><p><span style="color: #000080"><span style="font-family: 'arial black'"> Elektirik faturasını hasaplayan hesaplayan program..</span></span></p><p> ( 06:00 - 17:00 - gündüz*0,16545 , 17:00-22:00-puant*0,28294 , 22:00-06:00-gece*0,08097 , </p><p> %18 KDV , % 0,1 TRT , 2 TL bakım , 5 TL belediye )</p><p> </p><p>var</p><p> gündüz,puant,gece,tüketim,kdv,trt,fatura:real;</p><p>begin</p><p> write(' 06:00 - 17:00 - gündüz ' ); readln (gündüz);</p><p> write(' 17:00-22:00-puant ' ); readln (puant);</p><p> write(' 22:00-06:00-gece ' ); readln (gece);</p><p> tüketim:=gunduz*0,16545+puant*0,28294+gece*0,08097;</p><p> kdv:=tuketim*0,18;</p><p> trt:=tuketim*0.001;</p><p> fatura:=tuketim+kdv+trt+2+5;</p><p> write(' tüketim ' ); readln (tüketim);</p><p> write(' kdv ' ); readln (kdv);</p><p> write(' trt ' ); readln (trt);</p><p> write(' ödenecektutar ' ); readln (fatura);</p><p>readln;</p><p>end.</p></blockquote><p></p>
[QUOTE="nazenin, post: 533269, member: 83500"] biraz örnek paylaşmak istedim.. bunlar çok basit örnekler ama yeni başlayanlara yardımcı olur sanırım.. 1.snıf notlarımdan.. hocaların istekleri bitmez.. yarın 30 örnekle gel diyen hoca biliyorum.. :) bi noktaya kadar kendiniz yazabilirsiniz ama .. illaki böyle çözümlü örnekler gerekiyo.. :) [COLOR=#000080][FONT=arial black]Bir işçinin bürüt ücretini hesaplayan program..[/FONT][/COLOR] (ücret = yevmiye * çalıştığı gün sayısı ) var ücret,yevmiye,*çalıştıgıgünsayısı :real; begin write(' günlük ücret ' ); readln (yev); write(' çalıştığıgünsayısı ' ); readln (çgs); ücret:=yev*çgs; write(' bürüt ücret ' ); readln (ücret); readln; end. [COLOR=#000080][FONT=arial black]İşçinin net ücretini hesaplayan program..[/FONT][/COLOR] ( net ücret= bürüt-damga vergisi-gelir vergisi ) ( damga vergisi= bürüt ücret * %0,1 ) ( gelir vergisi=bürüt ücret * %0,3 ) var ücret,yev,çgs,damga,gelir,net:real; begin write(' günlükücret ' ); readln (yev); write('çalıştığıgünsayısı ' ); readln (çgs); ücret:=yev*çgs; damga:=ücret*0,03; net:=ücret -damga-gelir; write(' bürütücret ' ); readln (ücret); write(' gelirvergisi ' ); readln (gelir); write(' damgavergisi ' ); readln (damga); write(' netücret ' ); readln (net); readln; end. [COLOR=#000080][FONT=arial black] Elektirik faturasını hasaplayan hesaplayan program..[/FONT][/COLOR] ( 06:00 - 17:00 - gündüz*0,16545 , 17:00-22:00-puant*0,28294 , 22:00-06:00-gece*0,08097 , %18 KDV , % 0,1 TRT , 2 TL bakım , 5 TL belediye ) var gündüz,puant,gece,tüketim,kdv,trt,fatura:real; begin write(' 06:00 - 17:00 - gündüz ' ); readln (gündüz); write(' 17:00-22:00-puant ' ); readln (puant); write(' 22:00-06:00-gece ' ); readln (gece); tüketim:=gunduz*0,16545+puant*0,28294+gece*0,08097; kdv:=tuketim*0,18; trt:=tuketim*0.001; fatura:=tuketim+kdv+trt+2+5; write(' tüketim ' ); readln (tüketim); write(' kdv ' ); readln (kdv); write(' trt ' ); readln (trt); write(' ödenecektutar ' ); readln (fatura); readln; end. [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Sarı kırmızı renkleri ile ünlü futbol takımımız?
Cevapla
Forumlar
Bilgisayar & Cep & Teknoloji
Programlama Dilleri
Delphi İle Başlangıç
Delphi birkaç basit örnek..
Top