24 Aralık 2009 Perşembe

24 aralık sıralama

PROGRAM siralama;

USES crt;

VAR
Dizi1:ARRAY[1..5] of integer;
i,j, temp : integer;

BEGIN
clrscr;
WRITELN('5 adet tam sayi degeri giriniz');

for i := 1 to 5 do
READ(Dizi1[i]);


for j := 4 downto 1 do

begin

for i := 1 to j do
if(Dizi1[i] < Dizi1[i+1]) then
BEGIN
temp := Dizi1[i];
Dizi1[i] := Dizi1[i + 1];
Dizi1[i + 1]:= temp;
END;

end;



for i := 1 to 5 do
WRITE(Dizi1[i]:2,' ');
READLN;



READLN;
END.
Gönderen zaman:

2 yorum:

  1. Merve Mollamehmetoğlu24 Aralık 2009 04:42

    Damla'nın eklediğinin uzun yolu:


    program siralama;
    uses crt;

    var
    dizi:array[1..5] of integer;
    i,j,temp:integer;

    begin
    clrscr;
    writeln('l�tfen 5 adet tam sayi degeri giriniz:');
    for i:=1 to 5 do
    read(dizi[i]);
    {read(dizi[1]);
    read(dizi[2]);
    read(dizi[3]);
    read(dizi[4]);
    read(dizi[5]);}

    for i:= 1 to 4 do

    if (dizi[i]<dizi[i+1]) then
    begin
    temp:= dizi[i];
    dizi[i]:= dizi[i+1];
    dizi[i+1]:= temp;
    end;

    for i:= 1 to 3 do

    if (dizi[i]<dizi[i+1]) then
    begin
    temp:= dizi[i];
    dizi[i]:= dizi[i+1];
    dizi[i+1]:= temp;
    end;

    for i:= 1 to 2 do
    if (dizi[i]<dizi[i+1]) then
    begin
    temp:= dizi[i];
    dizi[i]:= dizi[i+1];
    dizi[i+1]:= temp;
    end;

    if dizi[1]<dizi[2] then
    begin
    temp:= dizi[1];
    dizi[1]:= dizi[2];
    dizi[2]:= temp;
    end;

    for i:=1 to 5 do
    write(dizi[i]:2,' ');
    readln;

    readln;
    end.

    YanıtlaSil
  2. Merve Mollamehmetoğlu24 Aralık 2009 04:50

    n sayıda sayının sıralanması:


    program siralama;
    uses crt;

    var
    dizi:array[1..100] of integer;
    i,j,temp,n:integer;

    begin
    clrscr;

    writeln('Diziniz ka‡ elemanl�:');
    readln(n);

    writeln('Dizinizin elemanlarini giriniz:');


    for i:=1 to n do
    read(dizi[i]);
    for j:=(n-1) downto 1 do
    {read(dizi[1]);
    read(dizi[2]);
    read(dizi[3]);
    read(dizi[4]);
    read(dizi[5]);}

    for i:= 1 to (n-1) do
    if (dizi[i]<dizi[i+1]) then
    begin
    temp:= dizi[i];
    dizi[i]:= dizi[i+1];
    dizi[i+1]:= temp;
    end;


    for i:=1 to n do
    write(dizi[i]:2,' ');


    readln;
    readln;
    end.

    YanıtlaSil

Kaydol: Kayıt Yorumları (Atom)