Skocz do zawartości

bartool

Stały użytkownik
  • Postów

    1176
  • Dołączył

  • Ostatnia wizyta

Odpowiedzi opublikowane przez bartool

  1. problem jest taki ze mam zrobic sortowanie w tablicy 100 elementowej...

    to co zrobilem i to dziala.. tylko liczby wypisuja sie po kolei jedna obok drugiej...

     

    program SortowaniePrzezWstawianie;

    uses crt;

    var

    Tab:array[1..100] of integer;

    i,k,tmp:integer;

     

    begin

    clrscr;

    writeln ('Tablica 100 elementowa nieposortowana');

    randomize;

    for i:=1 to 100 do

    begin

    Tab:=random(100);

    write(Tab,' ');

    end;

     

    for i:=2 to 100 do

    begin

    tmp:=Tab;

    k:=i-1;

    while (k>0)and (tab[k]>tmp) do

    begin

    Tab[k+1]:=Tab[k];

    k:=k-1;

    end;

    Tab[k+1]:=tmp;

    end;

     

    Writeln;

    writeln ('Tabica jest posortowana:');

    for i:=1 to 100 do

    write(Tab,' ');

    readln;end .

    a chcialbym zeby liczby byly wyswietlane w tablicy 10x10 tak jak zrobilem to tutaj

     

    Program tablica;

    uses crt;

     

    var i,j,k : integer;

    a : array [1..10,1..10] of integer;

    begin

    clrscr;

    for i := 1 to 10 do

    for j := 1 to 10 do

    a[i,j] :=random(100)+1;

    begin

    for i:=1 to 10 do

    begin

    for j:=1 to 10 do

    begin

    if a[i,j]<10 then

    write (' ',a[i,j],' ')

    else

    write (a[i,j], ' ');

    end;

    writeln;

    end;

    end;

    readln;

    end.

    tylko za cholere nie wiem jak to polaczyc zeby to dzialalo...

    z gory dzeki za pomoc..

  2. chcialem niezmiernie podziekowac wszystkim lamusom, ktore nie przyszly. z ekipy bylem tylko ja, Kas i viod oraz niezarejestrowany kolega. bylo bardzo milo, piwo sie lalo i tyle. fotek nie bedzie, bo fuji prze wyjsciem stwierdzil, ze nie ma papu w akumulatorach, Kasowi kazalismy schowac jego mega sagema a robienie fotek komorkami to bezsens. chyba nastepnym razem trzeba bedzie sie przejechac do chlopakow z WWA, bo wyjdzie niewiele drozej lub sciagnac cialo wykonawcze w postaci Kuby, ktory nie da ultimatum i wizyta bedzie obowiazkowa pod grozba bana lub zrobienia ranbom nicka dla Grobla, bo jak widac odwrocenie kolejnosci liter nie pomaga :P :D

     

    kto byl ten wie jak bylo a kto nie byl niech zalulje i zuje jaja :D

    lamusa to mozesz poszukac wsrod kolegow albo rodziny... :?

    poprostu ne kazdy ma tyle wolnego czasu co ty..

  3. Otoz na wstepie napisze ze przygode z pascalem zaczelem dzisiaj okolo 9 rano ;)

    o gotowce nie mozna prosic wiec prosze o pomoc z niektorych sprawach...

     

    co musze zrobic:

     

    Program „Zamiana”

    Praca ma zawierać kod źródłowy oraz komentarze do programu, który:

    a) wypełnia dwuwymiarową tablicę 5x5 losowymi liczbami całkowitymi z przedziału <0, 50>

    b) wyświetla wypełnioną tablicę

    c) szuka w tablicy liczby (np. zmienna k) podanej przez użytkownika

    d) ponownie wyświetla tablicę z wyróżnionymi (np. na kolor) wszystkimi znalezionymi liczbami podanymi przez użytkownika (zmienna k)

    e) zamienia każde wystąpienie podanej przez użytkownika liczby na przeciwną do niej.

    f) wyświetla zmienioną tablicę

     

    Program tablice;uses crt;varx: array [1..5,1..5] of integer;i,j,z: integer;procedure zapelnij;beginfor i:=1 to 5 dobeginfor j:=1 to 5 dobeginx[i,j]:=random(51);end;end;end;procedure pokaz;beginfor i:=1 to 5 dobeginfor j:=1 to 5 dobeginwrite (x[i,j], ' ');end;writeln;end;end;beginclrscr;randomize;zapelnij;pokaz;readln;write ('Podaj jakas liczbe z tebelki z= ');read (z);write ('podales liczbe: ',z);end.
    no i wlasnie tutaj sie zawiesilem i nie wiem jak zrobic zeby wyszukalo w tablicy tej liczby i wyswietlilo tabele ze minionym klorem danej liczby...

    chyba trzeba zastosowac if/then...

    if z=??

     

    z gory dzieki... w miare postepow bede uzupelnial temat bo mam jeszcze tydzien na napisanie tego programu..

  4. Z gory mowie ze filmikow nie sciagalem i nie wiem czy wszystko dziala etc... :)

     

     

    » Naciśnij, żeby pokazać/ukryć tekst oznaczony jako spoiler... «

     

    Ćwiczenia na brzuch :

     

    Ab Ripper X

     

    http://rapidshare.de/files/32506698/AbRipp...ca.cl.part1.rar

    http://rapidshare.de/files/32510966/AbRipp...ca.cl.part2.rar

    http://rapidshare.de/files/32516455/AbRipp...ca.cl.part3.rar

    http://rapidshare.de/files/32520962/AbRipp...ca.cl.part4.rar

     

    Pass:

    www.dreatica.cl

     

    8 Minutes Abs

     

    http://rapidshare.de/files/32501925/8minsA...Dreatica.cl.rar

     

    Pass:

    www.dreatica.cl

     

    Dołączona grafika

     

    http://rapidshare.de/files/23540123/abs.avi.001.html

    http://rapidshare.de/files/23541159/abs.avi.002.html

    http://rapidshare.de/files/23543344/abs.avi.003.html

    http://rapidshare.de/files/23542402/abs.avi.004.html

    http://rapidshare.de/files/23535168/abs.avi.005.html

    http://rapidshare.de/files/23536357/abs.avi.006.html

    http://rapidshare.de/files/23538783/abs.avi.007.html

     

    Dołączona grafika

     

    http://rapidshare.de/files/23458498/mfhometrain.avi.001.html

    http://rapidshare.de/files/23459129/mfhometrain.avi.002.html

    http://rapidshare.de/files/23459706/mfhometrain.avi.003.html

    http://rapidshare.de/files/23460264/mfhometrain.avi.004.html

    http://rapidshare.de/files/23460894/mfhometrain.avi.005.html

    http://rapidshare.de/files/23461564/mfhometrain.avi.006.html

    http://rapidshare.de/files/23457953/mfhometrain.avi.007.html

     

    Dołączona grafika

     

    http://rapidshare.de/files/5273327/pump.part01.rar.html

    http://rapidshare.de/files/5273391/pump.part02.rar.html

    http://rapidshare.de/files/5273462/pump.part03.rar.html

    http://rapidshare.de/files/5273523/pump.part04.rar.html

    http://rapidshare.de/files/5273592/pump.part05.rar.html

    http://rapidshare.de/files/5273676/pump.part06.rar.html

    http://rapidshare.de/files/5273778/pump.part07.rar.html

    http://rapidshare.de/files/5273862/pump.part08.rar.html

    http://rapidshare.de/files/5273918/pump.part09.rar.html

    http://rapidshare.de/files/5273999/pump.part10.rar.html

    http://rapidshare.de/files/5274060/pump.part11.rar.html

    http://rapidshare.de/files/5274621/pump.part12.rar.html

    http://rapidshare.de/files/5274702/pump.part13.rar.html

    http://rapidshare.de/files/5274724/pump.part14.rar.html

  5. dlugie wlosy 2cm-buahaha, dobre ;)

    jak masz takie dlugie to z rana glowa pod kran, wytrzyj i sie lajtowo uloza

    hehe moja reakcja byla taka sama :P

    ja mam ze 42cm :P

     

    jak myjesz glowe to zakldaj pozniej czapke (braciak tak robil bo po myciu tez mu staly, a tak to sie uklepywaly pod czapa...)

  6. pare lat temu braciak cioteczny wracal z dyskoteki... i na parkingu jak wsiadl do samochodu to przybiegli ochroniarze i wybili szybe a jego wyciagneli i jeszcze pobili... bo mysleli ze to ktos inny....

    braciak mial operacje na oko bo szklo mu sie wbilo w oko...

    byla sprawa w sadzie ale niestety moj brat przegral <lol>

×
×
  • Dodaj nową pozycję...