Forum CDRinfo.pl - Pascal...pytanie

Strona 1 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Komputery - oprogramowanie i sprzęt (https://forum.cdrinfo.pl/f113/)

- - Pascal...pytanie (https://forum.cdrinfo.pl/f113/pascal-pytanie-43359/)

Patrix

29.03.2008 23:30

Oszukalem szybciej php:

Kod:

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 :)

ksviper

29.03.2008 23:17

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

29.03.2008 20:53

Cytat:

Napisany przez andy (Post 914561)

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

wiem ;p a czy ja gdzies pisalem inaczej ?

mialem to robic w freepascalu mialem tu na mysli program :)

pops	29.03.2008 20:24

Cytat:

Napisany przez Patrix (Post 914549)

...
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 :P

andy	29.03.2008 19:58

Cytat:

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

Patrix

29.03.2008 19:17

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

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 :D

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	29.03.2008 17:19

Kod:

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

Kod:

VAR

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

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

ksviper

29.03.2008 17:04

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

Patrix

29.03.2008 17:01

no to kozacko bo mi zadali zapelnic tablice kolejno 20k, 40k, 80k i 160k elementow aby przetestowac w sekundach algorytm sortowania babelkowego :szczerb:

musze wygenerowac jakos inaczej te zapelnianie, zastrzele sie !

PS
na lycosie mnie juz chyba zbanowali za uzywanie funkcji rand do generowania tego badzewia :D

sobrus

29.03.2008 16:58

o ile pamietam nie da sie zrobic w pascalu czegos takiego (wypisywanie elementow podczas deklaracji)

Patrix

29.03.2008 16:12

mam pytanie, do tej pory w ten sposob nic nie deklarowalem wiec bylo z glowy ale mam taka deklaracje:

Kod:

const

 n = 5;



type

 zakres = 1..n;



var

 tab:array[zakres] of longint=(1, 2, 3, 4, 5);

i pokazuje mi byk syntax...

wiec pytanie jak z automatu zapelnic tablice w pascalu ?

Berion

07.12.2007 01:18

Aaaaaa no racja, przecie***380; przypisa***322;em j***261; do cnf-a. Tak to jest jak si***281; ma p*k w kodzie :czar: My***347;la***322;em, ***380;e sobie u***380;yje jej "przy okazji" i po powrocie do pocz***261;tku nie b***281;dzie "u***380;ywana". Ehhh...

THX po raz kolejny!.

ksviper

07.12.2007 00:48

sprawd***378; co si***281; dzieje ze zmienn***261; margines :) - to jest rozwi***261;zanie, linia 104 :)

Berion

07.12.2007 00:18

Ilość załączników: 1

Ale***380; prosz***281; uprzejmie.

Wersja zubo***380;ona, ale b***322;***261;d ten wyst***281;puje nadal.

ksviper

06.12.2007 23:47

no chyba najszybciej wyczy***347;ci***263; clrscr
daj pe***322;ny kod, wszystko co napisa***322;e***347; to lukn***281; jak pracuje i co robi

Wszystkie czasy w strefie CET. Aktualna godzina: 22:15.

Strona 1 z 5

Pokaż 100 postów z tej dyskusji na jednej stronie