1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz
Notu Gizle
Merhaba Ziyaretçi.

"BENİM DÜNYAM" konulu resim yarışması başladı. İlgili konuya BURADAN ulaşabilirsiniz.

Sizi de bu yarışmaya katılıma davet ediyoruz...

Delphi birkaç basit örnek..

Konusu 'Delphi İle Başlangıç' forumundadır ve SAHRA_BUSE tarafından 10 Kasım 2012 başlatılmıştır.

  1. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    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.. :)




    Bir işçinin bürüt ücretini hesaplayan program..
    (ü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.


    İşçinin net ücretini hesaplayan program..
    ( 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.


    Elektirik faturasını hasaplayan hesaplayan program..
    ( 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.
     
  2. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.755
    Beğenileri:
    7.806
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.932 ÇTL
    Sanırım programlama/delphi bölümü bir yıldan daha uzun zamandır hareketsizdi. Teşekkürler...
     
  3. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    ne demek.. :)
    yardımcı olabilirsem birilerine yeter benim için..
    artık ara ara paylaşmaya çalışıcam inşallah.. :)
     
  4. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    100 arasındaki sayılardan 2 katının 3 fazlasının 3 ile kalansız bölünenlerinin
    adedinin faktöriyelini hesapla



    var
    adet,fak,i:integer;
    begin
    adet:=0;
    for i:=1 to 100 do if i*2+3 mod 3=0 then adet:=adet+1;
    fak:=1;
    for i:=1 to adet do fak:=fak*i;
    Write('2 katının 3 fazlası 3 tam bölen sayısı');writeln(adet);
    write('adet faktöriyeli');writeln(Fak);
    readln;
    end.
     
  5. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    Bir ögrencinin kantin harcamasını hesaplayan program..
    (çay,simit,tost)


    var
    çaya,çayf,çay,simita,simitf,simit,tosta,tostf,tost,toplam:real;
    begin
    write('çayadet');readln(çaya);
    write('çaybirimfiyatı');readln(çayf);
    write('simitadet');readln(simita);
    write('simitbirimfiyatı');readln(simitf);
    write('tostadet');readln(tosta);
    write('tostbirimfiyatı');readln(tostf);
    çay:=çaya*çayf;
    simit:=simita*simitf;
    tost:=tosta*tostf;
    toplam:=çay+simit+tost;
    write('çaymaliyeti');writeln(çay);
    write('simitmaliyeti');writeln(simit);
    write('tostmaliyeti');writeln(tost);
    write('toplammaliyet');writeln(toplam);
    readln;
    end.




    Bir evin manav harcamasını hesaplayan program..
    (domates,biber)

    var
    doa,dof,do,bia,bif,bi,top:real;
    begin
    write('domateskilosu');readln(doa);
    write('domatesbirimfiyatı');readln(dof);
    write('biberkilosu');readln(bia);
    write('biberbirimfiyatı');readln(bif);
    do:=doa*dof;
    bi:=bia*bif;
    top:=do+bi;
    write('domatesmaliyeti');writeln(do);
    write('bibermaliyeti');writeln(bi);
    write('toplammaliyet');writeln(top);
    readln;
    end.
     
  6. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    Vize- Final ortalaması 50 ve yukarı ise geçtin değilse kaldınız yazan program..
    if

    var
    vize,final,ortalama:byte;
    begin
    write('vizenotu')readln(vize);
    write('finalnotu')readln(final);
    ortalama:=trunc(vize*0,4+final*0,6);
    write('ortalama');write(ortalama);
    if(ortalama>=50 then write('geçti')
    else
    write('kaldı');
    readln;
    end.


    → case

    var
    vize,final,ort:byte;
    begin
    write('vizenotu');readln(vize);
    write('finalnotu');readln(final);
    ort:=trunc(vize*0,4+final*0,6);
    write('ortalama');write(ort);
    case ort of
    0...50:write('kaldı');
    51...100:write('geçti');
    else
    write ('hatalınot');
    end;
    readln;
    end.
     
  7. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    İdeal kiloyu hesaplayıp alınması yada verilmesi gereken kilo miktarını belirten program..
    (erkek= boy-yaş*0,009 kız= boy-yaş*0,008 tölerans=+/-8 )

    → if

    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.



    →case

    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.
     
  8. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    İki yazılı,iki sözlü notunu 5'li sisteme çeviren program..

    → if

    var
    y1,y2,s1,s2,ort:byte;
    begin
    write('1.yazılınotu');readln(y1);
    write('2.yazılınotu');readln(y2),
    write('1.sözlünotu');readln(s1);
    write('2.sözlünotu');readln(s2);
    ort:=trunc((y1+y2+s1+s2)/4);
    write('yüzlüsistemdeortalama');writeln(ort);
    if(ort>=0)and(0<=20) then write(ortalama=1);
    if(21>=0)and(0<=40) then write(ortalama=2);
    if(41>=0)and(0<=60 )then write(ortalama=3);
    if(61>=0)and(0<=80) then write(ortalama=4);
    if(81>=0)and(0<=100) then write(ortalama=5);
    readln;
    end.




    →case


    var
    y1,y2,s1,s2,ort:byte;
    begin
    write('1.yazılınotu');readln(y1);
    write('2.yazılınotu');readln(y2),
    write('1.sözlünotu');readln(s1);
    write('2.sözlünotu');readln(s2);
    ort:=trunc((y1+y2+s1+s2)/4);
    write('yüzlüsistemdeortalama');writeln(ort);
    case ort of
    0...20: write(ortalama=1);
    21...40: write(ortalama=2);
    41...60: write(ortalama=3);
    61...80:write(ortalama=4);
    81...100: write(ortalama=5);
    else
    write('yanlışnotgirildi');
    readln;
    end.
     
  9. barisburakbalc

    barisburakbalc Üyecik

    Katılım:
    5 Nisan 2013
    Mesajlar:
    2
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    İlk mesajınızdaki örneklerde writeln ile sonuç göstereceğiniz birçok yerde readln ile değişken okutmuşsunuz. Düzeltirseniz sevinirim. İyi forumlar.

    Bu arada bu gün başladım Delphi öğrenmeye, size çok teşekkür ederim başlangıç için güzel örnekler olmuş. Az sonra derse gidicem büyük ihtimalle hoca da klasik olarak bu tarz örneklerden başlayacak. Çatır çatır yaparım artık :)
     
  10. SAHRA_BUSE
    No Mood

    SAHRA_BUSE MiKRoSKoBiKCaNLı Özel üye

    Katılım:
    6 Mart 2012
    Mesajlar:
    3.037
    Beğenileri:
    3.932
    Ödül Puanları:
    9.080
    Cinsiyet:
    Bayan
    Banka:
    362 ÇTL
    peki bakar düzeltirim.. :P benimde ilk başladığım örnekler.. hatamız mazur görüle.. :D

    yararlı olmasına sevindim .. başarılar..
     

Sayfayı Paylaş