***********************ÖRNEK KODLAR************************
??Dışarıdan girilen bir programın faktöriyelini hesaplayan delphi programı
Var a,i,s : integer
begin
a:= strtoint(inputbox(‘giriş’,’sayı’,””));
s:=1;
for i:=1 to a do
s:=s
i;
showmessage (ınttostr (‘faktöriyeli=’s));
end
??Dışarıdan girilen 2 sayının ortalamasını bulan programın kodunu yazın..
var
a,b: integer;
ort: real;
begin
a:= strtoınt (ınputbox(‘giriş’,’sayı””));
b:= strtoint (inputbox(‘giriş’,’sayı’,””));
ort:=(a+b)/2;
showmessage(floattostr(‘ortalama=’,ort));
end;
??nesnel yardımıyla yazınız
label1 sayı1 edit1
label2 sayı2 edit2
label3 sonuç edit3
Edit.text:=(inttostr((strtoınt(edit1.text)+ strtoınt(edit2.text))/2);
??1’den 100’e kadar olan sayıların toplamını veren programın kodunu yazın..
var
toplam, i: integer;
begin
toplam:=0;
for i:= 1 to 100 do
begin
toplam:= toplam+i;
end;
showmessage(ınttostr(toplam));
end;
??String değişkenler
var
ad:string[15]
adres:string[20];
begin
ad:= ‘pınar’;
Adres:=ınputbox(‘giriş’,’Adres’’’);
Edit1.text:= Ad;
Edit2. text:= Adres;
End;
??Örnek
Var
n: integer
begin
n:= strtoınt (ınputbox(‘gir’,’sayi’,’ ‘));
if n>=50 then
showmessage(‘geçtiniz’)
else
showmessage(‘kaldınız’);
end;
??dısarıdan bir n sayısı girilecek (1/2)2 işlemini hesaplayan delphi prog. (for do ile)
n:= strtoınt(ınputbox(‘giriş’,’sayı gir’,’)
t:= 0;
for i:= 1 to n do
begin
t:= t +(1/i)
(1/i);
??Girilen sayını tek çift olduğunu gösteren program.
Var
i:integer;
begin
a:= strtoınt(ınputbox(‘giriş’,’sayıyı gir’,’’));
if a mod 2=0 then
showmessage(‘girdiğiniz sayı çift’)
else
showmessage(‘tek’);
end;
?? 1’den 100’e kadar çift sayıların toplamı.
-- click olayına
var
i,t:integer
begin
t:=0;
for i:=1 to 100 do
if :mod 2=0 then
t:=t+i;
showmessage(ınttostr(+));
end;
??1’den 100’e kadar tek sayıların toplamı.
-- click olayına
Var
i,t:integer;
begin
t:=0;
for i:=1 to100 do
if i mod 2=1 then
t:=++i;
showmessage(ınttostr(+));
end;
??1’den 100’e tek ve çift sayıların toplamının farkı.
var
i,f,t1,t2:integer;
begin
t1:=0; t2:=0;
for i:= 1 to 100 do
begin
İf i mod 2=0 then
t1:=+1+i
else
t2:= t2+i;
if t1>t2 then
f:=+1-+2
else
F:= t2-t1;
end;
showmessage(ınttostr(f));
end;
?? 10’dan 30’a kadar olan çift sayıları form üzerine yazan prg yaz. Not: form üzerine yazmak için canvas.textout (sütun,satır,’string’) deriz
var
i,a,b: integer;
begin
a:=15; b:=30;
for i:=1 to 30 do
begin
if i mod 2=0 then
canvas.textout(a,b,ınttostr(i));
b:=b+10;
end;
continue;
end;
??Dısarıdan girilen bir sayının durma koşulu verilinceye kadar karesini bulan ve listbox’
yazan programı.
var
a,b:integer;
begin
a:= strtoınt(edit1.text);
if a=0 then
begin
showmessage(‘işlem sona erdi’);
halt;
end;
else
b:=a*a;
listbox1.ıtems.add(ınttostr(b));
end;
end.
??Dısarıdan girilen herhangi bir sayının tam bölenlerini memo nesnesinde görüntüleyen ve tam bölenlerin sayısını veren programı yazın.
var
sayi,k,adet:integer;
begin
adet:=0;
sayi:=strtoınt(edit1.text);
memo1.clear;
for k:=1 to sayi do
begin
if sayi mod k=0 then
begin
adet:= adet+1;
memo1.lines.add(ınttostr(k));
end;
end;
memo1.lines.add(ınttostr(k));
end;
end;
?? Memodakileri listbox’a ekleme
var
i,sayi,integer;
begin
sayi:=memo1.lines.count
for i :=0 to sayi – 1 do
listbox1.items.add(memo1.lines.strings[i]);
end;
?? Richedit’te seçilen metinin biçimin değiştirme.
begin
fontdialog1.selattributes.assing ((fontdialog1.font));
end;
?? Seçili olup olmadığını bulan program
begin
if checkbox1.checked then
showmessage(‘seçili’)
else
showmessage (‘seçili değil’)
end;
?? Edit1’e girilen bilgiyi memoda varsa edit2’ye yazan, yoksa bu kayıt yok mesajı veren program
Var
satir_no: integer;
begin
satir_no:=memo1.lines.indexof(edit1.text);
if satir_no >=0then
edit2.text:=ınttostr(satir_no)
else
showmessage(‘bu kayıt yok’)
end;
??Dışarıdan girilen bir sayıyı kendisi kadar ekrana yazdıran program.
var
i,a:integer;
begin
a:strtoınt(edit1.text);
for i:=1 to a do
listbox1.ıtems.add(ınttostr(a));
end;
??Drive combobox’ta seçilen sürücüye ait klasörleri directory listbox’ta görüntüleyecek, directory listbox’ta seçilen klasöre ait dosyaları file list box’ta görüntüleyecek formu tasarlayacak kodları yazın..
driveomboBox1change
begin
directorylistbox1.drive:= driveCombobox1. drive;
end;
??1’den 10’a kadar olan sayıların karekerinin toplamı.
var
i,k,t:integer;
begin
kt:=0;
for i :=1 to 10 do
kt:=kt+i*i;
showmessage(ınttostr(kt));
end;
??girilen sayının 3’e bölünenleri listbox’a ekleyen program.
var
s,k:integer;
begin
s:=strtoınt(edit1.text);
k:=s mod 3;
if k=0 then
listbox1.items.add(edit1.text)
else
showmessage(‘bu sayı 3’e bölünemez’);
end;
?? Dısarıdan girilen bir sayının asal olup olmadığını bulan program..
var
sayi,kalan,i,j:integer;
begin
sayi:=strtoınt(edit1.text);
j:=0;
for i :=1 to sayi do
begin
kalan:=(sayi mod i);
if kalan = 0 then
j:=j+1;
end; if j=2 then
showmessage(‘bu sayı asaldır’);
if<> then shıwmessage(sayı asal değildir’);
end ;
?? Birden n’e kadar olan sayıların asal olanlarını bulan program.
var
i,m,y,sayi: integer;
a:boolean;
begin
listbox1.items.clear;
m:=strtoınt(edit1.text);
for sayi:= 1 to m do
begin
i:=2;
y:=trunc(sqrt(sayi));
a:= true
while (i<=sayi) and (a=true) do begin if sayi/ i=sayi div i then a:= false else i:=i+1; end; if a <> false then
begin
listbox1.items.add(ınttostr(sayi));
end;
?? Editteki bilgiyi listbox’a ekler.
var
sonuc:integer;
begin
sonuc:=listbox1.items.indexof(edit1.text);
if sonuc= -1 then
listbox.items.add(editq.text);
else
showmessage(‘bu kayıt var’);
end;
??Küçük harfi büyük harfe çevirme?
var
i,sayi:integer
begin
sayi:= listbox1.items.count;
for i:=0 to sayi -1 do
begin
listbox1.items(i):=uppercase(listbx1.items(i));
end;
?? Büyük harfi küçü,k harfe dönüştürme..
var
i,sayi:integer;
begin
sayi:=listbox1.items.count;
for i:=0 to sayi -1 do
begin
listbox1.items(i):=lowercase(listbox1.items(i));
end;
?? checklistbox’ta seçilen seçenekleri listbox1’e ekleyen program.
var
seçenek:integer;
begin
listbox1.items.clear;
for seçenek:= 0 to checklistbox1.items.count -1 do
if checklistbox1.checked(seçenek) then
begin
listbox1.items.add (checklistbox1.items.string(seçenek));
*****ÖRNEK****
var
a,b,i:integer;
begin
show;
i:=0;
a:=15;
b:=15;
whilei<= 10 do
begin
canvas.textout(a,b,inttostr(i));
a:=a+30;
i:=i+1;
end;
