Delphi birkaç basit örnek..

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.

Sanırım programlama/delphi bölümü bir yıldan daha uzun zamandır hareketsizdi. Teşekkürler...

ne demek..
yardımcı olabilirsem birilerine yeter benim için..
artık ara ara paylaşmaya çalışıcam inşallah..

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.

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.

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.

İ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.

İ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.

İ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

barisburakbalc dediki:

İ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

Genişletmek için tıklayın...

peki bakar düzeltirim.. benimde ilk başladığım örnekler.. hatamız mazur görüle..

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