Pascal...pytanie

[ksviper]

a nie ma p***281;tli for ?

[andy]

FOR i:= Tablica[1] TO Tablica[40] DO
   Begin
      Tablica[i]:= i + 1;
   End;

Dzi***281;ki temu zape***322;nisz tablice

Tablice deklarujesz tak

VAR
   Tablica: Array [1..40] of byte;

Polecam lektur***281; tego - http://4programmers.net/Delphi/Kompendium

[Patrix]

dzieki za rady ale ja niestety juz nie ten poziom jestem ch***322;opaki

mam to zapelnic 20k/40k/80k/160k elementowa tablice liczbami z przedzialu od 1 do 200 000 w 3 wersjach: malejaco, rosnaco i losowo

20k, 40k, 160k losowo juz zapelnilem teraz ustawic w kodzie funkcje gettime i podliczyc
moj celeron m wlasnie przekabaca rozne wersje - troche to trwa

jak skoncze przygotowywac materialy to potem przetestowac na tym kazdy algorytm sortujacy to juz tylko chwilka bedzie

acha i to ma byc robione w free pascalu a nie delphi, w delphi to bym sobie szybko poradzil z tym tam taki przyjemny timer jest...


oczywiscie nie powiem mu ze oszukuje z tym generowaniem napisalem w php funkcje i wywala mi gotowy kod do pascala hehe...

[andy]

acha i to ma byc robione w free pascalu a nie delphi, w delphi to bym sobie szybko poradzil z tym tam taki przyjemny timer jest...

Ale Delphi to nie j***281;zyk programowania a ***347;rodowisko programistyczne tak jak FreePascal...
Obowi***261;zuje tam j***281;zyk Pascal/ObjectPascal

[pops]

Napisany przez Patrix

...
mam to zapelnic 20k/40k/80k/160k elementowa tablice liczbami z przedzialu od 1 do 200 000 w 3 wersjach: malejaco, rosnaco i losowo
...
napisalem w php funkcje i wywala mi gotowy kod do pascala hehe...

ee tam, prawdziwi hardkorowcy takie tabliczki wypełniają ręcznie

[Patrix]

Napisany przez andy

Ale Delphi to nie język programowania a środowisko programistyczne tak jak FreePascal...
Obowiązuje tam język Pascal/ObjectPascal

wiem a czy ja gdzies pisalem inaczej ?

mialem to robic w freepascalu mialem tu na mysli program

[ksviper]

tak na szybko:

malej***261;co:
n - liczba element***243;w tablicy
k - skok
k=200000/n
for od i=1 do n
tab[i]=200000-k*(i-1)

rosn***261;co:
k=200000/n
for od i=1 do n
tab[i]=1+k*(i-1)

[Patrix]

Oszukalem szybciej php:

for ($i = 1; $i <= $ile; $i++) {

	echo"tab[$i]:=".rand(1,200000).";\n";
}

I wkleilem wynik do kompilatora. (To jest wersja losowa)


PS Jak ju***380; pisa***263; w pascalu to z randomize i liczby we wszystkich tablicach maja byc te same tylko inaczej poukladane

poza tym zadanie juz dawno zrobione ale fajnie, ze na tym forum zawsze kto***347; jaki***347; przyk***322;ad walnie od siebie