Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

Soutěž

Sponzorem soutěže je:

IDIF

 

Kde se koná výstava fotografií Luďka Vojtěchovského?

V dnešní soutěži hrajeme o:



Pascal triedenie MAXSORT

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Pascal triedenie MAXSORT

Autor: ewrtwete3twet ♂

19:49:07 21.03.2013

jsem C-ckar takze prepis do C, nepouzil jsem random, ale predvyplnil rozhazenyma cislama.
zkontrolujte si od jake hodnoty k jake jsou ty vase cykly.
C pouziva indexy 0,1,2,3,4,5,6,7,8,N-1
Pascal 1,2,3,4,5,6,7,8,9,N=10

#include<stdio.h>
#include<stdlib.h>

int pole [10] = {17,6,3,11,2,10,315,43,1,267};


void vypis_pole ()
{
int i;
printf("prvky pole: ");
for (i=0;i<10;i++)
printf ("%d ",pole[i]);
printf("\n");
};

void zamen(int *a, int* b)
{
int temp;

temp=*a;
*a=*b;
*b=temp;
};

void maxsort ()
{

int i,j,imax;

for (i=9;i>=1;i--)
{
imax=1;
for (j=0;j<=i;j++)
if (pole[imax] < pole[j])
imax=j;

printf ("i=%d j=%d imax=%d\n",i,j,imax);
zamen(&pole[imax],&pole[i]);
}
};

int main()
{
vypis_pole();
maxsort ();
vypis_pole();
return 0;
}

Citovat příspěvek

 

Pascal triedenie MAXSORT

Autor: pietro62 ♂

18:12:44 19.03.2013

Mam spraveny program ale mi to nefunguje. Prosim si od Vas pomoc.

Program je o triedeni MAXSORT

program triedenie;
uses crt;
const N=10;
var pole:array [1..N] of integer;
i,q,j,t:integer;

procedure napln_pole;
begin

for i:=1 to N do pole[i]:=random(100);
end;

procedure vypis_pole;
begin
writeln('prvky pola: ');
for i:=1 to N do write(pole[i],' ');
writeln;
end;

procedure zamen(var a,b:integer);
var temp:integer;
begin
temp:=a;
a:=b;
b:=temp;
end;

procedure MAXSORT;
var imax:integer;
begin
for i:=N downto 2 do
begin
imax:=1;
for j:=2 to i do
if pole[imax] < pole[j] then
begin
imax:=j;
end;
zamen(pole[imax],pole[i]);
end;
end;
begin
clrscr;
randomize;
napln_pole;
vypis_pole;
writeln('Vyber triedenie MAXSORT ');
readln(Q);
case Q of
MAXSORT;
end;
vypis_pole;
readkey;
end.

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: