bartool
-
Postów
1176 -
Dołączył
-
Ostatnia wizyta
Odpowiedzi opublikowane przez bartool
-
-
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
tylko za cholere nie wiem jak to polaczyc zeby to dzialalo...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.
z gory dzeki za pomoc..
-
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..
-
szkola pozniej praca... raczej sie nie wyrobie... ;/
-
no ja dzisiaj zdalem... za 2 podejsciem... ;]
-
ja mam w srode o 7.15 egzamin a jeszcze 14h do wyjezdzenia :D
-
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..
-
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

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

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

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
-
hyhy podobne drzwiczki mialem dobrych pare lat temu :) ale obudowy nigdzie nie prezentowalem raczej..
a obudowa calkiem spoko wychodzi... zarzuc zdjecia z zamknietymi drzwiczkami..
-
patykiem tez nie jest :D dobre proporcje
fajna sprawa własnie zasysam masz może jeszcze jakieś materiały w postaci filmów?
no cos tam znalazlem... ;]

http://rapidshare.de/files/23718430/chstshldrs.avi.005.html
http://rapidshare.de/files/23725361/chstshldrs.avi.006.html
http://rapidshare.de/files/23726514/chstshldrs.avi.007.html
http://rapidshare.de/files/23727704/chstshldrs.avi.001.html
http://rapidshare.de/files/23729943/chstshldrs.avi.002.html
http://rapidshare.de/files/23731708/chstshldrs.avi.003.html
http://rapidshare.de/files/23732729/chstshldrs.avi.004.html

http://rapidshare.de/files/23588255/bknlegs.avi.001.html
http://rapidshare.de/files/23589424/bknlegs.avi.002.html
http://rapidshare.de/files/23590622/bknlegs.avi.003.html
http://rapidshare.de/files/23591850/bknlegs.avi.004.html
http://rapidshare.de/files/23592991/bknlegs.avi.005.html
http://rapidshare.de/files/23594154/bknlegs.avi.006.html
http://rapidshare.de/files/23595262/bknlegs.avi.007.html
linki po 50 mb kazdy aby polaczyc uzyjcie hjsplit
http://www.treepad.net/download/hjsplit.zip
tego nie sciagalem i nie wiem jak sprawa wyglada z laczeniem tych plikow..
-
niewiem czy ktos do tutaj dawal czy nie ale moze komus sie przyda...
Muscle and Fitness Training System - ARMS
http://depositfiles.com/files/247764/arms.part1.rar.html
http://depositfiles.com/files/247787/arms.part2.rar.html
Pass:dimchik
-
ja swoje 40centymetrowki scielem ze 2 tygodnie temu...ostatnio krotkie wlosy mialem 7 lat temu... a tak na krotko to chyba dopiero 3 czy 4 razy bylem scinany przez 20 lat ;]
-
@Vinoo
po pierwsze nie Bartol tylko bartool ;]
po drugie tak to ta grafa...
poczas normalnej pracy (winda itd.) jest 68*
(grafe tylko mam na chwile w kompie... pewnie dzisiaj/jutro trafi na allegro :) )
-
witam...
mam pytanie... mam herculesa 9800xt...
mam pytanie czy one normalnie sie tak grzeja ?
e miedziane chlodzonko jest dosc mocno cieple bez grania... a jak chwile pogralem w nfs`a to bylo calkiem gorace... czy to normalne ?
-
jakie sa najlpesze stery do 6800gs ?
-
no wlasnie nie wiecie dla czego usuwaja ??:/
jak ma sie za malo wejsc na stronke, jest slabo oplacalna czyc os tam i kasuja...
-
Nie wiem co to moze byc, ale u mnie tez nei widac zdjec... widac to jakis wiekszy problem :D
konto na lycosie usuneli... mi tez ostatnio usuneli ;/ :mad:
-
mi nie przyslali... a koledze ktory sie zarejestrowal tydzien pozniej juz przyslali...
-
team PuprPc zdominowalo dzisiaj hwbota ;]
ladnie sie teraz strona glowna prezentuje :D
-
odnosnie pomysłu z czapkami - nie jedzie potem z głowy ??
a gdzie ma jechac ? :P
a jak ci czapa smierdzi to najpierw umyj czapke a pozniej glowe :P
-
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...)
-
tani stroboskop wcale nie jest tak bardzo drogi :P
a w zupelnosci wystarczy,,, wystarczy tylko przerwy robi c coby se nie spalil... albo zmodowac lekko :P jaki wiatrak etc... ;]
-
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>
-
Szukam dwóch empetrójek ;)
1. To japońska wersja We're the champions
2. To motyw dźwiękowy z reklamy piwa Freq
Z góry THX :D
odezwij sie na gg 1605877 We're the champions mam ;]
-
uzywasz innego komunikatora nz gadu-gadu do komunikacji z uzytkownikami gadu-gadu?
http://dobreprogramy.pl/index.php?dz=15&n=3989
(heh joke :P )

Kredyty
w Ośla łączka
Opublikowano
http://banki.maxlinks.org/dominet/
jak na samochod to moze dominet bank...
ale nie wiem dokladnie co i jak bo nie dzial ich stronka jedynie sa te iformacje co podane powyzej...
musze sie przejsc do nich zobaczyc jak z oprocentowaniem itd...
ale zbytnio nie mam czasu...