Delphi birkaç basit örnek..

nazenin

MiKRoSKoBiKCaNLı
Özel üye
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.
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
ne demek.. :)
yardımcı olabilirsem birilerine yeter benim için..
artık ara ara paylaşmaya çalışıcam inşallah.. :)
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
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.
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
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.
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
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.
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
İ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.
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
İ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 :)
 

nazenin

MiKRoSKoBiKCaNLı
Özel üye
İ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 :)

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