KARAR VERME DEYİMİ
IF KOŞUL THEN İŞLEM1 ELSE İŞLEM2


Eğer koşul doğru ise İşlem 1'i yap değilse İşlem 2'yi yap.
Pascalda yazımı:
if Koşul Then İşlem1 Else İşlem2


Eğer koşul doğru ise İşlem 1'i  ve İşlem 2'yi yap.
Pascal'da Yazımı:
if Koşul Then
        Begin
            İşlem1;
            İşlem 2;
         End;
Not: Bir dalda birden fazla işlem yapılıyorsa Begin .. End bloku içine alınır.


Eğer koşul doğru ise İşlem 1'i  ve İşlem 2'yi yap değilse işlem3'ü yap.
Pascal'da yazımı:
if Koşul Then
   Begin
        İşlem1;
        İşlem2;
    End
    Else
        İşlem3;


Eğer koşul doğru ise işlem1'i ve İşlem2'yi yap
     değilse eğer işlem3 ve işlem4'ü yap
               değilse işlem5'i yap.
if Koşul1 Then
   Begin
        İşlem1;
        İşlem2;
    End
    Else
    if Koşul2 Then
        Begin
             Koşul3;
             Koşul4
         End
         Else
            İşlem5;

Tek Sayıları Bulan Program

Algoritması:
1. Başla
2. Sayı gir
3. Eğer sayının Mod 2'ye göre sonucu Birse Tek Sayı yaz
        Değilse Çift Sayı yaz.
4. Son.

Program TekCift;
Var
   a : Integer;
Begin
      Write('Bir sayı giriniz: '); Readln(a);
      If (a mod 2 = 1 Then
            Writeln ('Girdiğiniz Sayı Tekdir')
         Else
            Writeln ('Girdiğiniz Sayı Çifttir')
      Readln
End.

Not Ortalaması 50'den Büyük ise Geçti 50'den küçükse Kaldı yazan program
Algoritması:
1. Başla
2. Not1 ve Not2'yi gir.
3. Ortalamayı hesapla.
4. Ortalama 50'den büyükse Geçti değilse kaldı yaz.
5. Son.

Program GectiKaldi;
Var
    Not1, Not2 : Integer;
    Ortalama: Real;
Begin
    Write('Not 1´i giriniz : '); Readln(Not1);
    Write('Not 2´i giriniz : '); Readln(Not2);
    Ortalama := (Not1+Not2)/2;
   If Ortalama >= 50 Then
       Writeln('Geçtiniz Ortalamanız = ', Ortalama:4:2)
      Else
        Writeln('Kaldınız Ortalamanız = ', Ortalama:4:2);
    Readln
End.
1'den N'e Kadar Tam Sayıları Toplayan Programın:

Algoritması:
1. Başla
2. N sayısını gir.
3. Toplam'a sıfır ata
4. i=1'den i=N'e kadar tam sayıları topla
5. Toplam'ı yaz.
6. Son


Program Toplama;
{Bir den N e kadar tam sayıları toplayan program}
Var
   i, N, Toplam : Integer;
Begin
   Write('Son sayıyı gir: '); Readln (N);
   Toplam := 0;
   For i := 1 To N Do
       Toplam := Toplam + i;
   Writeln('1´den N´e kadar sayıların toplamı = ', Toplam);
   Readln;
End.






 
Eğer Girilen Notların 0-100 arasında olmasını istiyorsanız
yine If..Then..Else ile kontrol etmeniz gerekir.
Algoritması:
1. Başla
2. Not1 ve Not2'yi gir.
3. Eğer Not1 ve Not2 Sıfırdan büyük ve 100'den küçükse
        Ortalamayı hesapla.
        Eğer Ortalama 50'den büyükse Geçti Değilse kaldı yaz.
    Değilse Yanlış Giriş Yaptınız Yaz.
4. Son.

Program GectiKaldi2;
Var
    Not1, Not2 : Integer;
    Ortalama: Real;
Begin {Ana programın Begin i}
      Write('Not 1´i giriniz : '); Readln(Not1);
      Write('Not 2´i giriniz : '); Readln(Not2);
If (Not1 >=0) and (Not1<=100) and (Not2 >=0) and (Not2<=100) Then
Begin
          Ortalama := (Not1+Not2)/2;
          If Ortalama >= 50 Then
             Writeln('Geçtiniz Ortalamanız = ', Ortalama:4:2)
          Else
          Writeln('Kaldınız Ortalamanız = ', Ortalama:4:2);
End
      Else
        Writeln('Yanlış giriş yaptınız...');
      Readln
End. {Ana Programın End i}

Üç kenarı girilen bir üçgenin ne tür bir üçgen (çeşitkenar , ikizkenar, eşkenar) olduğunu yazan program
Algoritması:
1. Başla
2. a, b ve c'yi gir
3. Eğer a=b ve b=c ise EşKenar Üçgen
        Değilse
            Eğer a<>b ve a<>c ve b<>c ise Çeşit Kenar Üçgen
                   Değilse İkiz Kenar Üçgen
4. Son

Program Ucgen;
Var
   a, b, c : Integer;
Begin
      Write('Üçgenin kenarlarını giriniz: '); Readln(a, b, c);
      If (a>0) and (b>0) and (c>0) Then
         if (a=b) and (a=c) Then Writeln ('Eşkenar Üçgen')
           Else
              if (a<>b) and (a<>c) and (b<>c) Then Writeln ('Çeşitkenar Üçgen')
               Else
                   Writeln('İkiz Kenar Üçgen');
       Else
         Writeln('Yanlış Giriş Yaptınız...');
      Readln
End.

Üç Sayının En Büyüğünü Bulan Program

Algoritması:
1. Başla
2. a, b ve c'yi gir
3. Eğer a>b ve a>c ise En Büyük Sayı A'dır
        Değilse
            Eğer b>a ve b>c ise En Büyük Sayı B'dir
                   Değilse En Büyük Sayı C'dir
4. En Büyük Sayıyı Yaz.
5. Son

Program Uc_Sayinin_En_Buyugu;
Var
a, b, c, EnBuyuk : Integer;
Begin
     Write('Üç Sayı giriniz: ');
     Readln(a, b, c);
     If (a>=b) and (a>=c) Then EnBuyuk:=a
      Else
      If (b>=a) and (b>=c) Then EnBuyuk:=b
         Else
            EnBuyuk := c;
Writeln('En Büyük Sayı = ', EnBuyuk);
Readln
End.