Delphi/Basit Örnek Uygulamalar Ve Çözümleri ∞ Cem Adrian

Toplam:=0;
For sayac:=1 to 50 do
Toplam:=toplam+sayac;
Showmessage(inttostr(toplam));

Toplam:=0;
Sayac:=10;
Repeat
Toplam:=toplam+sayac;
Sayac:=sayac-1;
Until sayac<1;

Var
Sayac,toplam:integer;
Begin
toplam:=0;
For sayac:=1 to 100 do
  Begin
    if (sayac mod 2) = 0 then toplam:=toplam+sayac;
    listbox1.items.add(inttostr(sayac))
  End;
Showmessage(inttostr(toplam))
End;

Sayac ve toplam tamsayıdır
Başla
Toplama sıfır değerini ata
Sayacı 1 den 100 e kadar tekrar et
  Tekrar başla
    Eğer sayac çift sayı(sayacın ikiye bölümünden kalan sıfır) ise toplama sayacı ekle
    Liste kutusuna sayacı ekle
  Tekrar bitiş
Toplamı mesaj olarak göster

var
bolunen,bolen,bolum,kalan:integer;
begin
  bolunen:=strtoint(edit1.Text);
  bolen:=strtoint(edit2.Text);
  bolum:=0;
  while bolunen>bolen do
    begin
      bolum:=bolum+1;
      bolunen:=bolunen-bolen;
    end;
  kalan:=bolunen;
  edit3.Text:=inttostr(kalan);
  edit4.Text:=inttostr(bolum);
end;

var
  adet,sayac,i:integer;
  asalmi:boolean;
begin
  adet:=0;
  sayac:=0;
  While adet<100 do   // 100 adet asal sayı buluncaya kadar tekrar et
    begin
      asalmi:=true;  		// öncelikle asal olduğunu kabul et
      sayac:=sayac+1; 		// kontrol edilecek sayılar için sayacı bir artır
      for i:=2 to sayac-1 do 	// 2 den sayacın bir eksiğine kadar tekrar et
        if (sayac mod i) = 0 then  asalmi:=false;
// eğer sayacın i ye bölümünden kalan sıfır ise asal değildir
      if asalmi = true then 	// sayac asal ise liste kutusuna ekle
         begin
            listbox1.Items.Add(inttostr(sayac));
// Liste kutusuna asal sayıyı ekle
            adet:=adet+1;  	// asal sayı adedini bir artır
         end;       
    end;
end;