Skocz do zawartości

koparka

Stały użytkownik
  • Postów

    704
  • Dołączył

  • Ostatnia wizyta

Treść opublikowana przez koparka

  1. Ja zmowilem dzisiaj w www.imperium.net.pl, za 285 zylka. Kontakt jest wysmienity. W godzine po zamowieniu dostalem SMS z informacja o wyslaniu paczki. W komputroniku czekalem tak dlugo i nie dostalem. Tam mialem 100x lepszy kontakt, taniej i natychmiastowo.
  2. koparka

    Plik Txt - Pascal

    WItam, mam zamiar napisac program ktory oblicza srednia wazona. Jak to zrobic to wiem, ale jak zapisac wyniki pracy juz gorzej. Powiem szybko co ma byc: 1. wprowadzamy nazwisko 2. wporwadzmay ocenki 3. Zapisuje do txt w 1 wierszu (Jan Kowalski 3,2,4,5,2. ; Średnia: 3,2) Jak sie zapisuje do TXT to oczywsice wiem ale jest jedno ALE: znam komendy RESET (do odczytu), APPEND (dopisywanie) i REWRITE (tworzenie pustego pliku) i wlasnie: reset odpada bo chce zpaisywac; append tez odpada bo nie utworzy mi pliku, a rewrite utowrzy plik ale juz mi go skasuje ponownie przy ponownym uruchomieniu programu Jak moge zrobic aby porgram caly czas wpisywal dane do tego samego pliku? PS. Jescze male pytanie: jedyne bezpieczne miejsce docelowe pliku do C: chyba, bo innej sciezki nie kazdy moze miec, tak? A i moze jescze jedno: jak zamiast txt stworzyc .dll ?
  3. i jak ten proc z ebay sie sprawuje?
  4. czy ta plyta jest rev 1 czy 2? bo w necie widzialem inne kolorki tej mobo chodzi o ta <300zl
  5. koparka

    Abit IS7 i IC7

    ja jestem cfaniczek i juz sobie ja zamowilem :] mam nadzieje, ze tym razem mnie w bambuko nie zrobia, podwyzka jest logiczna no i tak wiedza, ze plyty szybko zejda.... a mi to tam 20zl jak na taka plytke i tak wisi :)
  6. koparka

    Xbox 360

    dobra, teraz juz wiem ze tez kosnoli ten problem nie omija (choc pewnie wiekszosc graczy sie cieszy), ale ok.... skonczymy juz ten troche sliski na forum temat piractwa
  7. koparka

    Xbox 360

    nie oszukujmy sie.... w Polsce i tak malo kto siegnie po konsole ze wzgledu na dostapnosc gier; teraz kazdy niestety gry zalatwia sobie z netu lub od kumpla, a na konsole raczej tak latwo pirata sie nie zalatwi, ---- oto Polska nasza :/ btw. wczoraj bylo na MTV o Barcelonie !!! zaj***bista miejscowa!!! decha rzadzi :] podzro dla skaterow
  8. juz napisalem (dziala dobrze), wrzucam tutaj, zeby jak ktos szukal to od razu mial. zamieszczam tez program ktory wypisuje n liczb pierwszych, o ktory tez pytalem: ____________________________________________________________________ ____________________________________________________________________ program sprawdzanie; uses crt; var a,b:longint; c:boolean; begin clrscr; writeln ('Podaj liczbe'); readln (a); if a<0 then writeln ('Podaj liczbe >0'); if a=0 then writeln ('Liczba 0 nie jest pierwsza'); if a=1 then writeln ('Liczba 1 nie jest pierwsza i nie jest zlozona'); if a>1 then begin c:=false; for b:=2 to a-1 do if (a mod b )=0 then c:=true; case c of true:writeln ('Liczba nie jest pierwsza'); false:writeln ('Liczba jest pierwsza'); end; end; readln; end. ___________________________________________________________________ ___________________________________________________________________ program nliczb; uses crt; var a,t:integer; c,d:word; x:boolean; tablica:array[1..10000] of word; begin clrscr; writeln('Program wypisuje liczby pierwsze...'); writeln('Ile liczb wypisac?'); readln (a); if a<0 then writeln ('Nie mozna wypisac ujemnej ilosci liczb pierwszych'); if a=0 then writeln ('Program nie wypisal zadnej liczby pierwszej'); if a=1 then tablica[1]:=2 else begin d:=3; t:=2; tablica[1]:=2; tablica[2]:=3; repeat x:=true; for c:=2 to d-1 do begin if (d mod c)=0 then x:=false; end; c:=2; if x=true then begin writeln('Aktualnie obliczana liczba pierwsza: ',t); tablica[t]:=d; t:=t+1; end; d:=d+1; until t-1=a; end; clrscr; for c:=1 to a do writeln (c:8,'. liczba pierwsza to: ',tablica[c]); readln; end.
  9. koparka

    [pascal] Hanoi

    wlasnie nie dawno na to wpadlem :) ale dzieki :)
  10. Nie bylo mnie na pewnej lekcji informatyki i nie wiem jak sie rozwiazuje zadania z liczbami pierwszymi. Troche probowalem kombinowac na wlasna reke, ale jakos to czasem nie wychodzi. Mam napisac prosty program, ktory sprawdza, czy podana liczba jest pierwsza: program abcd; uses crt; var a,b:integer; c:boolean; begin clrscr; writeln ('Program sprawdza czy podana liczba jest pierwsza'); writeln ('Podaj liczbe'); readln (a); c:=false; for b:=2 to a-1 do if (a mod B)=0 then c:=true; case c of true:writeln ('Liczba nie jest pierwsza'); false:writeln ('Liczba jest pierwsza'); end; readln; end. czy moj tok myslenia jest na dobrej drodze? bo ten program niby dziala, ale czasami klamie... :/ pozdrawiam PS. A jak zrobic zeby program wypisal n liczb pierwszych?
  11. koparka

    [pascal] Hanoi

    jak to robisz ze wklejasz kod tutaj na forum? da sie go jakos skopiowac z kompilatora i wkleic tutaj?
  12. a jakbym chcial tu na forum wrzucic cos? inni jakos wrzucaja swoje kody...
  13. aha, jeszcze mam jedno pytanie: napisalem program w pascalu lecz cos mi nie za bardzo chodzi, chcialem wysalac kumplowi kod, ale nie mam pojecia jak go skopiowac (ctrl+c nie dziala) i wkleic np do notatnika, plz help <help>
  14. koparka

    Abit IS7 i IC7

    jest pewna wazna sprawa... kiedy dostales tego maila??? bo ja jak na poczatku zamawialem to tez mi napisali, ze powinna byc dostawa, a potem ze juz nie beda mieli tej plyty w najblizszym czasi :/
  15. koparka

    Abit IS7 i IC7

    to jak beda to kupie i powiem czy warto :P
  16. dzieki za pomoc, chociaz z tym helpie cos srednia tlumacza :/ ale wczytam sie to moze skapuje :D
  17. ok, w sumie juz wszystko wiem :) jescze tylko tego przechodzenie do innego pliku nie, ale moze kiedys sie na to gdzies natkne i bedzie ok dzieki za odpowiedzi ps. z tym insertem dziala
  18. ja mam sprzet firmy CIRRUS i naprawde potrafi zagrac
  19. od jakiegos czasu pisze sobie co nieco w pascalu, po drodze napotkalem na kilka problemow, sporo z nich rozwiazalem szukajac w necie, lecz niestety kilka pozostalo, sa one krotkie i szybkie wiec mysle, ze nie sprawia klopotow :rolleyes: 1. jak zrobic zeby sie nie pisala literka na literce (czasami jak pisze sobie jakis program zaczyna mi sie w komplatorze wszytko pisac na sobie, tzn. nie moge robic spacji, wstawaic literki w luki itp; gdzy wciskam enter przeskakuje do nastepnej linijki nie robiac nowej) 2. czasami mam na kompie jakis prosty program pascala (juz w postaci *.exe) ale chce go jescze udoskonalic (przerobic), jak otworzyc go ponownie w kompilatorze 3. jak zrobic, aby juz po uruchomieniu programu nie migal ten kursor _ np. jak mam jakies menu to to wkurza troche przy stosowaniu readkey 4. w jaki sposob podczas dzialania programu (.exe) uruchomic inny plik (.exe)? np. jak mam jakies menu (w glowym programie) z moimi porgramami to zeby po wybraniu czegos wlaczylo sie to co sie wybralo 5. *** w jakim jezyku napisano allplayer? :wink: dzieki za odpowiedzi EDIT: odpowiadam tutaj na niektore pytania, zeby kadzy od razu wchodzac tu mial rozwiazanie 1. wcisnac INSERT 2. raczej sie nie da (a jak juz to b.trudno) 3. procedure Wylacz_kursor; assembler; | procedure Wlacz_kursor; assembler; asm | asm MOV AH,01h | MOV AH,01h MOV CH,10h | MOV CH,07h MOV CL,00h | MOV CL,07h INT 10H | INT 10H end; | end; 4.uses DOS; {$M $4000,0,0 } {Dzięki temu nie zabraknie pamięci dla programu} SwapVectors; Exec(Program,Parametry); SwapVectors; przyznam sie, ze jescze tego nie kapuje, nie dziala mi to :( co to se te parametry? 5. not important
  20. koparka

    Abit IS7 i IC7

    nie, nie doszlo..... :( ale caly czas mam nadzieje, ze kiedys jescze bede mial ta plyte :]
  21. a kto ma 1? :)
  22. jak ogladajac film przerwyasz go zeby zobaczyc forum, maila itp jestes chyba jakims nalogowcem bez umiaru :blink: :):):) pzdr
  23. Na 1 ogien CZŁOWIEK W OGNIU - polecam! ps. jakby co to to jest twoj nr 13 men on fire ;)
  24. dzisiaj leci na TVP eXistenZ :)
×
×
  • Dodaj nową pozycję...