| | |
| Stránka: 1 z 1
| [ Príspevkov: 13 ] | |
Autor | Správa |
---|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal palo89: 29.05.2007 20:23 | |
|
Kedze neviem z pascalu absolutne nic..tak prosim aspon vas
Je dane dvojrozmerne pole P(N,N),v kt. su kladne cisla.
Musim napisat program,ktory najde postupnost susednych prvkov P(N,N),tak aby sucet absolutnych hodnot rozdielov susednych prvkov bol minimalny.Susedne prvky su tie,ktore susedia stranou-napr.P(2,3),P(2,4)....ale nie P(2,2) alebo P(3,3)...
Bol by som Vam vdacny,keby to niekto vedel a napisal to sem
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 30.05.2007 11:37 | |
|
palo89 píše: pole P(N,N),v kt. su kladne cisla.program,ktory najde postupnost susednych prvkov P(N,N),tak aby sucet absolutnych hodnot rozdielov susednych prvkov bol minimalny
nechapem ako to ma najst tu postupnost? akoze p[1,1]-p[1,2]-p[1,3] ta absolutna hodnota ma byt? a ten sucet ma byt? alebo sucet absolutnych hodnot rozdielov jednotlivych susednych prvkov abs(p[1,1]-p[1,2]-p[1,3])+abs(p[2,1]-p[2,2]-p[2,3])+abs(p[3,1]-p[3,2]-p[3,3])
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal autor témy palo89: 30.05.2007 19:48 | |
|
Ja som z toho tiez jelen....tak mi to zadala ucitelka...stacilo by mi aj keby nebola ta postupnost,ale len tie sucty rozdielov a ich abs.hodnota....
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 31.05.2007 14:12 | |
|
mne sa zda ako keby tam nieco chybalo hento by malo byt dobre. ale to s tym hladanim postupnosti? to akoze sa mausporiadat alebo co.........nechapem skus sa opytat potom toho vyucujuceho az ti to zadal
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 31.05.07 Prihlásený: 08.11.09 Príspevky: 6 Témy: 3 |
Pozrel by som sa na to ale najprv to musím pochopiť-tak ak to je ešte aktuálne napíš, čo zadávaš na vstupe a ako má vyzerať výstup!!
|
|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal autor témy palo89: 31.05.2007 19:41 | |
|
Ja vam moc dakujem,za vasu snahu...lenze ja viem pascal maximalne pustit....vazne sa v tom nevyznam a vy toho viete omnoho viac...keby ste pomohli nejako vy ?nejako to sklbili alebo nieco vynechali ?aspon nieco nech maam...lebo mi da za 5....vazne ja tomu nerozumiem...
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
ježiš mária, šak to je jednoduché.. keby som nešiel dnes oslavovať koniec semestra tak by som ti to sem hodil. Niekde som dačo podobné už písal, skúsim pohladať na disku
//Edit:
Kód: program uloha; uses CRT;
var matica:array[1..5,0..5] of integer; i,j,sucet,minimum,maximum,minriadok,maxriadok:integer;
begin clrscr; {zmažem display}
for I:=1 to 5 do begin {vsetky riadky} for J:=1 to 5 do begin {aj stlpce} matica[i,j]:=random(100)-50; {naplnim nahodnymi hodnotami} end; end;
for I:=1 to 5 do begin {prejdem vsetky riadky} sucet:=0; for j:=1 to 5 do sucet:=sucet+matica[i,j]; {zratam sucet hodnot} matica[i,0]:=abs(sucet); {a na zaciatok riadku si ulozim absolutnu hodnotu} end;
minimum:=matica[1,0]; {minimum aj maximum beriem prvy prvok} maximum:=matica[1,0]; for I:=1 to 5 do begin {prejdem celu maticu} if matica[i,0]>=maximum then begin maximum:=matica[i,0]; {najdem maximumu} maxriadok:=i; {zapamatam si riadok} end; if matica[i,0]<=minimum then begin minimum:=matica[i,0]; {rovnako ako s maximom} minriadok:=i; end; end;
for I:=1 to 5 do begin for J:=1 to 5 do write(matica[i,j]:5); {vypisem maticu} writeln; end; {aj vysledky} writeln('Maximum je v ',maxriadok,'. riadku a jeho absolutna hodnota je: ',maximum); writeln('Minimum je v ',minriadok,'. riadku a jeho absolutna hodnota je: ',minimum); end. robil sa tam absolútna hodnota súčtu a nie rozdielu (plus na mínus hádam vieš prepísať) a hladalo sa minimum aj maximum, fakt teraz nemám času, ale niekto ti to upraví keď si ty už taký manták
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 31.05.2007 20:04 | |
|
palo89 píše: Ja vam moc dakujem,za vasu snahu...lenze ja viem pascal maximalne pustit....vazne sa v tom nevyznam a vy toho viete omnoho viac...keby ste pomohli nejako vy ?nejako to sklbili alebo nieco vynechali ?aspon nieco nech maam...lebo mi da za 5....vazne ja tomu nerozumiem... mozes byt hocjak skuseny v tom programovani ale ked nerozumies zadaniu tak ti to je nanic.ja by som tu ucitelku vyfackal. sak to nedava zmysel ale keby sa ta postupnost nemala najst ale usporiadat tak potom by to mohlo byt hadam asi tak ze tu postupnost napr v matici 2*2
4 5 usporiadal ze na prvom mieste bude to najvacsie cislo a potom nizsie a nizsie
2 3 napr ze 5-4=1 3-2=1 1+1=2 kedze ja neviem ci te cisla nemozes premiestnovat z jedneho kvadrantu do druheho...tak neviem Kód: uses crt; const n=3; var matica:array[1..n,1..n] of byte; a,b,c,d:byte; BEGIN clrscr; for a:=1 to n do for b:=1 to n do matica[a,b]:=random(50); for a:=1 to n do for c:=1 to n-1 do for b:=c+1 to n do if matica[a,c]<matica[a,b] then begin d:=matica[a,c]; matica[a,c]:=matica[a,b]; matica[a,b]:=d; end;
for a:=1 to n do begin for b:=1 to n do write(matica[a,b],' ');writeln; end;
END.
//audiotrack: to mas pravdu to je uplne ine riesenie nez ake bolo zadanie ....
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
juho: mvpc, chlapec by mohol trošku použiť aj druhý koniec tela (chápané hlavou). Už ma nebaví dávať každému programy na počkanie.
|
|
Registrovaný: 02.04.07 Prihlásený: 04.10.07 Príspevky: 9 Témy: 3 | Napísal autor témy palo89: 01.06.2007 12:22 | |
|
Ako nehnevajte sa,ale ja vazne z toho neviem nic ako vacsina mojej triedy...mame programovanie prvy rok a v ucebnych osnovach pre treti rocnik je nieco ine ako cely rok drvit pascal....ucitelka nie je normalna....od septembra len pascal....Ale diik aspon za nieco...
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 03.06.2007 20:16 | |
|
palo89 píše: Ako nehnevajte sa,ale ja vazne z toho neviem nic ako vacsina mojej triedy...mame programovanie prvy rok a v ucebnych osnovach pre treti rocnik je nieco ine ako cely rok drvit pascal....ucitelka nie je normalna....od septembra len pascal....Ale diik aspon za nieco... to mas dobre my mame alternativny plan. naposledy som mal inf v druhom rocniku a tam sme sa dostali v programovani na cykly(pascalu). ja budem mat inf az na druhy rok a budem z toho aj maturovat..takze za pol roka prejst celym pascalom neje tak jednoduche.
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
juho: ja som mal pascal presne pol roka (na strednej, na výške vôbec). Viac nič, nebrali sme ani grafiku, ani súbory ani record... a pozri sa. Všetko som sa doučil sám
Tak neviem, ale za pol roka sa dá pascal zvládnuť v pohode
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 03.06.2007 22:35 | |
|
audiotrack píše: juho: ja som mal pascal presne pol roka (na strednej, na výške vôbec). Viac nič, nebrali sme ani grafiku, ani súbory ani record... a pozri sa. Všetko som sa doučil sám Tak neviem, ale za pol roka sa dá pascal zvládnuť v pohode akoze ja som nemyslel ze pascal ale ze ako programovanie a na gym si myslim ze nas budu tahat len do pascal. inak ja som natom dobre .. ale ti ostatni no.. nevem ci sa cele programovanie naucia za pol roka(az by si teda chceli vybrat maturitu)
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
| Stránka: 1 z 1
| [ Príspevkov: 13 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| pomoc s programom v PASCALE v Assembler, C, C++, Pascal, Java | 2 | 718 | 18.04.2007 9:56 gorky22 | | pomoc s programom v pascale v Assembler, C, C++, Pascal, Java | 10 | 611 | 06.04.2010 18:15 Logik | | prosím pomohol by my niekto z programom v pascale??? v Assembler, C, C++, Pascal, Java | 13 | 980 | 14.06.2007 12:04 juho | | Prosim o pomoc s programom v C++ v Assembler, C, C++, Pascal, Java | 0 | 609 | 21.10.2008 18:30 aphexxx | | Potrebujem pomoct s programom v Pascale v Assembler, C, C++, Pascal, Java | 0 | 518 | 21.05.2008 15:09 mirco828 | | Prosim pomozte..., maxima v pascale v Assembler, C, C++, Pascal, Java | 3 | 1238 | 30.04.2007 19:44 johny128 | | Pomoc s programom v Assembler, C, C++, Pascal, Java | 3 | 488 | 26.07.2013 9:36 Roj-i | | pomoc s programom v Assembler, C, C++, Pascal, Java | 6 | 519 | 14.04.2018 15:15 Vetrolam | | pomoc s programom v Assembler, C, C++, Pascal, Java | 2 | 531 | 16.11.2009 21:30 kubo88 | | C++ pomoc s programom v Assembler, C, C++, Pascal, Java | 9 | 608 | 09.05.2011 22:30 johny3212 | | C++ pomoc s programom v Assembler, C, C++, Pascal, Java | 8 | 1820 | 07.12.2009 10:46 drummer87 | | Pomoc so C# programom v Technológia .NET | 5 | 474 | 11.03.2013 23:27 shaggy | | Pomoc s programom MAYA [ Choď na stránku: 1, 2 ] v Grafické programy | 48 | 2044 | 06.06.2011 18:27 Daron | | pomoc s malym programom v Delphi, Visual Basic | 10 | 566 | 18.02.2012 21:51 coldak | | Pomoc v pascale v Assembler, C, C++, Pascal, Java | 5 | 794 | 24.11.2007 11:10 scarletjohanson | | Pomozte mi prosim vas s progamom v Pascale? v Assembler, C, C++, Pascal, Java | 2 | 677 | 21.05.2008 17:01 neutronmind |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|