Forum CDRinfo.pl

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

ksviper 29.03.2008 16:04

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

andy 29.03.2008 16: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

Patrix 29.03.2008 18: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 18: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

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

Patrix 29.03.2008 19: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 :)

ksviper 29.03.2008 22: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 22: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 :)


Wszystkie czasy w strefie CET. Aktualna godzina: 16:20.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.