DÖNGÜLER
1. FOR DÖNGÜSÜ
For Döngüsü

1'den N'e Kadar Sayıların Toplamı

N! Hesaplayan Program

Xn'yi Hesaplayan Program

ex'i Hesaplayan Program

Basamaklarının Küplerinin Toplamı Kendisine
Eşit Olan Sayılar 3 Haneli Sayılar

FOR BAŞLANGIÇ DEĞERİ TO SON DEĞER DO


N kez "İşlem" yap
1'den N'e kadar "İşlem" yap
i = 1 den i = N'e kadar "İşlem" yap
Pascal'da Yazımı:
For i := 1 to N do

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.
N sayısının Faktöriyelini Hesaplayan Program

Algoritması:
1. Başla
2. N sayısını gir.
3. Faktöriyel değişkenine 1 ata
4. i=1'den i=N'e kadar tüm sayıları birbiriyle çarp
5. Faktoriyel'i yaz.
6. Son

Program Faktor;
{N Faktöriyeli Hesaplayan program}
{$N+}
Var
   i, N : Integer;
   Faktoriyel : Extended;
Begin
   Write('Son sayıyı gir: '); Readln (N);
   Faktoriyel := 1;
   For i := 1 To N Do
       Faktoriyel := Faktoriyel *  i;
   Writeln('N Faktoriyel = ', Faktoriyel:5:0);
   Readln;
End.


Xn 'i Hesaplayan Program

Algoritması:
1. Başla
2. X ve N sayısını gir.
3. Us değişkenine 1 ata
4. i=1'den i=N'e kadar us = us * x çarp
5. Us'su yaz.
6. Son


Program UsAl;
{Xn 'i Hesaplayan Program}
var
   i,x,n: integer;
   us: extended;
begin
   us:=1;
   writeln('Bu program x üzeri n yi hesaplar...');
   write('x ve n yi gir...'); Readln(x,n);
   for i:= 1 to n do
          us:=us*x;
   writeln(x, ' üzeri ',n ,' = ',us);
   readln
end.



ex 'i Hesaplayan Program


Algoritması:
1. Başla
2. X 'i gir.
3. ex değişkenine 1 ata. n değişkenine 10 ata (en fazla 10 kez işlem yapmak için)
4. n kez aşağıdaki işlemleri yap
   a) Fak ve us değerlerine 1 ata
   b) j=1 den i'ye kadar
         Us=us*x
         Fak=Fak*j
   c) ex =ex + us/fak
5. Ex'i yaz.
6. Son


program e_uzeri_x;
var
x, ex, fak, us: real;
i, j, n : integer;
begin
write ('x i gir'); readln (x);
n :=10;
ex := 1;
for i:= 1 to n do
begin
   fak:=1; us:=1;
   for i:=1 to n do
   begin
      fak:=1; us:=1;
      For j:=1 to i do
      Begin
         us:=us*x;
         fak:=fak*j
      End;
      ex:=ex+us/fak;
   end;
end;
writeln('e üzeri x´in değeri = ', ex:2:7);
readln;         
end.   

Aynı program aşağıdaki gibi de çözülebilir.



Basamaklarının Küplerinin Toplamı
      Kendisine Eşit Olan Sayılar 3 Haneli Sayılar
Algoritması:
1. Başla
2. i=100'den 999'a kadar
    a) birler = i mod 10 (birler basamağındaki sayıyı Birler değişkenine ata)
    b) onlar := trunc (i div 10) mod 10 (Onlar basamağındaki sayıyı Onlar değişkenine ata)
      yuzler := trunc (i div 100) (Yuzler basamağındaki sayıyı Yuzler değişkenine ata)
      eğer (birler * birler * birler + onlar * onlar * onlar +
      yuzler * yuzler * yuzler = i)'ye eşitse i'yi yaz.
6. Son


Program kuplerin_carpimi;
{Basamaklarının küplerinin carpimi kendisine esit olan sayilar}
var
   i, birler, onlar, yuzler: integer;
begin
   for i:= 100 to 999 do
   begin
      birler := i mod 10;
      onlar := trunc (i div 10) mod 10;
      yuzler := trunc (i div 100);
      if (birler * birler * birler + onlar * onlar * onlar +
      yuzler * yuzler * yuzler = i) then write (i:5);
   end;
   readln
end.
Yanıt: 153-370-371-407