| | |
| Stránka: 1 z 1
| [ Príspevkov: 19 ] | |
Autor | Správa |
---|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 |
pomozte mi prosim
ZADANIE:
Je daná matica 10x10 celých kladných čísiel z intervalu<1,10>.Čísla sú vkladané do matice po riadkoch.Vypočítajte súčty prvkov matice v jednotlivých riadkoch matice.V ktorom riadku matice je tento súčet najväčší???
Za odpoved vopred dakujem.Martin
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 26.05.2007 20:15 | |
|
mmartinm píše: Za odpoved vopred dakujem.Martin pises list? kedy ti ma niekto odpovedat? dnesne poty su dost pomale..... Kód: uses crt; var matica:array[1..10,1..11] of byte; a,b,c:byte; BEGIN clrscr; for a:=1 to 10 do for b:=1 to 10 do begin write('zadaj cislo ',a,'. riadku a ',b,'. prvku: ' );readln(matica[a,b]); matica[a,11]:=matica[a,11]+matica[a,b]; end; clrscr; for a:=1 to 10 do begin for b:=1 to 10 do write(matica[a,b]:3); write(matica[a,11]:6); if matica[c,11]<matica[a,11] then c:=a; writeln; end; write('najvacsi sucet je v riadku ',c);
END. na overenie staci potom Alt+F5"". ale neviem ci to tak malo byt pretoze 10*10 je 100 tak to bude dost casovo narocne.... pozrel som to v pascale mal som tam nejake chyby krasy ale som skoro odpadol kym som tam natepal 100 cislic.. este ak chces ten interval dodrzat treba osetrit(ja by som dal podmienku a goto)
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
goto používaj iba keď nemáš inú možnosť: je to porušenie štruktkurovaného programovania a ten príkaz sa pre istotu na vysokých školách preskakuje, nájdeš ho len na stredných kde si "pani učiteľka" inač nevie poradiť
|
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 27.05.2007 8:47 | |
|
ta matica 10x10 ma byt asi nahodna...malo by to byt asi takto,ale newiem ako dalej,aby mi to scitalo tie najvacsie hodnoty stlpcov...... poradite??
uses crt; var i,j,d:integer;m,n:byte; c:array [1..10,1..10]of byte; procedure matica; begin clrscr;randomize; repeat write('pocet riadkov je ');readln(m); until(m>=2)and(m<=10); repeat write('pocet stlpcov je ');readln(n); until(n>=2)and(n<=10); for i:=1 to m do for j:=1 to n do c[i,j]:=random(10)+1; writeln('Matica ',m,'*',n);writeln;
for i:=1to m do begin for j:=1 to n do write(c[i,j]:5); writeln;
end; readln; end; begin
matica; end.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
Kód: uses crt; var i,j,d,max,pom,riadok:integer;m,n:byte; c:array [1..10,1..10]of byte; procedure matica; begin clrscr;randomize; repeat write('pocet riadkov je ');readln(m); until(m>=2)and(m<=10); repeat write('pocet stlpcov je ');readln(n); until(n>=2)and(n<=10); for i:=1 to m do for j:=1 to n do c[i,j]:=random(10)+1; writeln('Matica ',m,'*',n);writeln;
max:=0; riadok:=0; for i:=1 to m do pom:=0; begin for j:=1 to n do begin write(c[i,j]:5); pom:=pom+c[i,j]; end; if max<pom then begin max:=pom; riadok:=i; end; writeln;
end; readln; end; begin
matica; writeln('Maximalny sucet je v ',riadok,'. riadku a jeho hodnota je: ',max); end.
je to dosť lamersky, riešil by som to inač ale asi by ťa to iba viac zmietlo.
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 27.05.2007 11:10 | |
|
audiotrack píše: goto používaj iba keď nemáš inú možnosť: je to porušenie štruktkurovaného programovania a ten príkaz sa pre istotu na vysokých školách preskakuje, nájdeš ho len na stredných kde si "pani učiteľka" inač nevie poradiť a preco? sak assembler ma take skoky a ten je blizsie k strojovemu kodu.. inak ked som mal inf na mojej strednej skole ucitelka nevedela ani co je to delay(nato aby vedela co je to goto...)
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
nemôžeš porovnávať vyšší programovací jazyk so strojovým jazykom ako je assembler. Assembler používa jmp napríklad pre loop čo je klasický cyklus, ale tam sa počítajú inštrukice (tuším int cx ale neviem už som assembler dlho nevidel). No ak napíšeš goto v pascale, tak je to skok na pamäťové miesto bez pripočítania novej jednotky do čítača. A druhá vec je, že ak máš porobené návestia v programe, tak je to neprehladné (musíš prezreť tisíce riadkov pri dlhom programe kam to vlastne skáče) a je to porušenie štrukturovaného programovania lebo tam nie je dodržaná následnosť krokov keď z konca skočím na začiatok. Proste je to funkcia ktorú žiaden programátor nemá v láske a vždy sa to dá obísť.
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 27.05.2007 12:13 | |
|
mmartinm píše: ta matica 10x10 ma byt asi nahodna...malo by to byt asi takto,ale newiem ako dalej,aby mi to scitalo tie najvacsie hodnoty stlpcov...... poradite?? Vsimol si si to co som napisal pod ten tvoj prispevok? Ty najprv pises ze chces maximalny sucet riadkov, niekto to spravi uplne dobre ale ty napises ze by to malo byt uplne inak a potom chces este namiesto suctu riadkov pocitat sucet stlpcov. potom pises ze sa tam te cisla maju zadavat niekto kontroluje spravnost urobeneho programu dost dlho a ty potom napises ze tam maju byt nahodne cisla, ten niekto nema slov .... TY ASI NEVIES CO CHCES....
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 27.05.2007 12:19 | |
|
audiotrack píše: je to dosť lamersky, riešil by som to inač ale asi by ťa to iba viac zmietlo. pomerne to iste len tam je to random() a este tam nevidim vypisanie suctov toho stlpca ci riadku, ale to asi nebolo potrebne...
|
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 27.05.2007 14:30 | |
|
juho píše: Vsimol si si to co som napisal pod ten tvoj prispevok? Ty najprv pises ze chces maximalny sucet riadkov, niekto to spravi uplne dobre ale ty napises ze by to malo byt uplne inak a potom chces este namiesto suctu riadkov pocitat sucet stlpcov. potom pises ze sa tam te cisla maju zadavat niekto kontroluje spravnost urobeneho programu dost dlho a ty potom napises ze tam maju byt nahodne cisla, ten niekto nema slov .... TY ASI NEVIES CO CHCES....
zadanie je hore...s tymi stlpcami som sa sekol....ale to mam ucitelka v skole povedala o tych nahodnych cislach....to nam v zadani nedala....
dakujem vsetkym
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 27.05.2007 14:50 | |
|
audiotrack píše: nemôžeš porovnávať vyšší programovací jazyk so strojovým jazykom ako je assembler. Assembler používa jmp napríklad pre loop čo je klasický cyklus, ale tam sa počítajú inštrukice (tuším int cx ale neviem už som assembler dlho nevidel). No ak napíšeš goto v pascale, tak je to skok na pamäťové miesto bez pripočítania novej jednotky do čítača. A druhá vec je, že ak máš porobené návestia v programe, tak je to neprehladné (musíš prezreť tisíce riadkov pri dlhom programe kam to vlastne skáče) a je to porušenie štrukturovaného programovania lebo tam nie je dodržaná následnosť krokov keď z konca skočím na začiatok. Proste je to funkcia ktorú žiaden programátor nemá v láske a vždy sa to dá obísť. ano a co mas potom ked pouzivas nejaky cyklus a continue.alebo ako by si to napisal bez goto.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
aký cyklus a continue máš na mysli? Proste všetko čo sa dá zapísať cez goto sa dá napísať aj bez neho. Ak ťa nenapadá žiadne riešenie nejakého problému a jediné ako to vieš vyriešiť je goto, potom prosím. Ale ešte ťa čaká vela štúdia
|
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 27.05.2007 15:09 | |
|
odpoveď pre: audiotrack
to,čo si napisal pise iba,že sčíta posledny riadok a napise,ze je najvacsi,hoci to tak nieje.....newiem,ako spravit, aby mi program vypočítal súčty prvkov v jednotlivých riadkoch matice a zhodnotil, že v ktorom riadku je súčet najväčší.....
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
mmartinm píše: odpoveď pre: audiotrackto,čo si napisal pise iba,že sčíta posledny riadok a napise,ze je najvacsi,hoci to tak nieje.....newiem,ako spravit, aby mi program vypočítal súčty prvkov v jednotlivých riadkoch matice a zhodnotil, že v ktorom riadku je súčet najväčší..... to pom:=0; daj až za begin ktoré je pod ním
|
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 27.05.2007 19:58 | |
|
|
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 28.05.2007 18:02 | |
|
Newiete,ako mam dat namiesto toho,co sa ma pyta,ze kolko je radov a stlpcov -aby si ich vypisal sam.Aby si sam dal nahodnych 10x10 cisiel v matici??
|
|
Registrovaný: 16.05.07 Prihlásený: 01.08.17 Príspevky: 837 Témy: 6 | Napísal juho: 28.05.2007 18:39 | |
|
mmartinm píše: Newiete,ako mam dat namiesto toho,co sa ma pyta,ze kolko je radov a stlpcov -aby si ich vypisal sam.Aby si sam dal nahodnych 10x10 cisiel v matici?? ako to myslis ze budes ty zadavat postupne 100 cislic?
_________________ getch();?{readkey;?} na konci? !A naco! Riesenie je (Alt+F5)
99% pochopí a shaggy je druhá kategória |
|
Registrovaný: 26.05.07 Prihlásený: 13.07.09 Príspevky: 13 Témy: 2 | Napísal autor témy mmartinm: 28.05.2007 18:52 | |
|
juho píše: ako to myslis ze budes ty zadavat postupne 100 cislic?
program sa ma na zaciatku pyta,ze kolko je stlpcov a kolko je riadkov.
Newiem,ako dat,aby sa to nepytal a dal ich sam odseba 10x10.
|
|
Registrovaný: 17.11.06 Prihlásený: 31.12.07 Príspevky: 677 Témy: 9 |
Kód: uses crt; var i,j,d,max,pom,riadok:integer; c:array [1..10,1..10]of byte; procedure matica; begin clrscr;randomize;
for i:=1 to 10 do for j:=1 to 10 do c[i,j]:=random(10)+1; writeln;
max:=0; riadok:=0; for i:=1 to 10 do begin pom:=0; for j:=1 to 10 do begin write(c[i,j]:5); pom:=pom+c[i,j]; end; if max<pom then begin max:=pom; riadok:=i; end; writeln;
end; readln; end; begin
matica; writeln('Maximalny sucet je v ',riadok,'. riadku a jeho hodnota je: ',max); end.
|
|
| Stránka: 1 z 1
| [ Príspevkov: 19 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| Prosim pomozte..., maxima v pascale v Assembler, C, C++, Pascal, Java | 3 | 1238 | 30.04.2007 19:44 johny128 | | Pomozte mi prosim vas s progamom v Pascale? v Assembler, C, C++, Pascal, Java | 2 | 677 | 21.05.2008 17:01 neutronmind | | dev/sda4 a dev/sda5 v Operačné systémy Unix a Linux | 4 | 478 | 07.09.2011 0:29 System Selector | | Pomoc pri programovani v Pascale v Assembler, C, C++, Pascal, Java | 5 | 1023 | 17.04.2007 16:45 stewe | | Pomoc pri hľadaní programu v Video programy | 1 | 344 | 06.03.2013 18:47 LeaR | | Problem pri spusteni programu v Operačné systémy Microsoft | 3 | 537 | 27.02.2011 11:12 jtbs | | Zapnutie isteho programu pri boote v Operačné systémy Microsoft | 2 | 405 | 14.08.2016 15:36 Miso122 | | Problem aj pri spustani programu v Ostatné programy | 2 | 995 | 08.05.2011 23:09 Logik | | Zapnutie nechceného programu pri štarte PC v Ovládače | 5 | 505 | 12.06.2011 14:50 richo9996 | | Zapnutie programu pri štarte PC, ako ? v Operačné systémy Microsoft | 2 | 766 | 18.07.2011 18:29 richo9996 | | Automaticke spustenie programu pri sterte Win v Operačné systémy Microsoft | 6 | 676 | 30.07.2006 19:20 Fenius | | vypnut spustenie programu pri spusteni systemu v Operačné systémy Microsoft | 3 | 2922 | 09.06.2011 14:03 igy94 | | Pomozte pri vybere v Notebooky a netbooky | 10 | 537 | 28.10.2015 19:45 Froster | | Pomozte pri zostave v PC zostavy | 17 | 840 | 17.02.2008 12:43 Jaro | | Mrznutie napal.programu ImgBurn pri otvarani iso v Operačné systémy Microsoft | 1 | 405 | 06.04.2011 18:37 paulix | | pomôžte pls pri chybe v Assembler, C, C++, Pascal, Java | 8 | 469 | 28.05.2010 22:39 CLEMENZA |
| 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
|
|