Programlama ve Grafik Tasarıma Dair Herşey...

procedure TForm1.Button2Click(Sender: TObject); var  a,b,c:integer; begin   a:=strtoint(edit1.Text);   b:=strtoint(edit2.Text);   c:=a+b;   label3.Caption:=inttostr(c);   {    burada c:=a+b; yerine c:=a-b; c:=a*b; yazılarak diğer matematiksel işlemler yapılabilir.   c:=a/b; işlemi için c değişkeni mutlaka ondalıklı sayı olmalı yani c: extended; olarak   tanımlanmalıdır. bilindiği gibi extended integer veri tipini kapsar. Dolayısıyla extended olarak tanımlanan   a,b,c değişkenleri ile tüm işlemler yapılabilir.   } end;

Bunun için öncelikle iki adet edit kutusu ve bir tanede buton lazım bize. procedure TForm1.Button2Click(Sender: TObject); var  a,b,c:integer; begin   a:=strtoint(edit1.Text);   b:=strtoint(edit2.Text);   c:=a+b;   label3.Caption:=inttostr(c);   {    burada c:=a+b; yerine c:=a-b; c:=a*b; yazılarak diğer matematiksel işlemler yapılabilir.   c:=a/b; işlemi için c değişkeni mutlaka ondalıklı sayı olmalı yani c: extended; olarak   tanımlanmalıdır. bilindiği gibi extended integer veri tipini kapsar. Dolayısıyla extended olarak tanımlanan   a,b,c değişkenleri ile tüm işlemler yapılabilir.   } end;

// butona tıklama olayı bu bir prosedürdür. editörde object inspector kısmında var olan olaylardan (Events) biridir. diğer olaylarıda deneyin. procedure TForm1.Button1Click(Sender: TObject); // değişken tanımlama bloğudur. burada program içerisindeki değişkenler tanımlanacaktır. procedür yada fonksiyon içerisindeki VAR blokları lokal değişken tanımları için kullanılır.lokal değişkenler prosedür yada fonksiyonun çalışma esnasında hafıda tutulur. çalışma sonunda silinirler. değişkenlere isim verirken bazı kurallar vardır. türkçe karakter kullanmamak, sayı ile başlamamak, hiç bir sembolü kullanmamak (alt çizgi kullanılabilir) gibi.değişkenler program esnasında kullanmak için hafızada açılan alanlardır. dolayısıyla her değişkenin birde tipi vardır. değişken tipleri için yardımı kullanabilirsiniz. biz programlarımızda: tamsayılar için  : integer; ondalıklı sayılar için : extended; alfanumerik karakter kümeleri için : string; mantıksal işlemlerde : boolean; tarihler ...

Birbirinden farklı 6 rasgele sayıdan oluşan ve bu sayıları alt alta küçükten büyüğe doğru sıralayan kod parçası tamamen çalışır vaziyette... <?for($i=0;$i<6;$i++)//buradaki for döngüsü ile işlemi 6 kez tekrar etmesini sağlıyoruz (işlem iki küme parantezi arasında gerçekleşir.) { $say[]=rand(1,49);//burada 1 ile 49 arasında bir sayı tutmasını istiyoruz sort($say);//Burada sıralama komutu veriyoruz } foreach($say as $i=>$deger)//burada $say indisinin içindeki bütün verileri $degere aktarıyoruz.    echo $deger,"<br>";  ?>