Obsah fóra
PravidláRegistrovaťPrihlásenie




Odpovedať na tému [ Príspevkov: 19 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok NapísalOffline : 26.05.2007 16:06

pomozte mi prosim :D :D :D


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


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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)


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 26.05.2007 22:05

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ť


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 27.05.2007 10:43

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.


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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...)


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 27.05.2007 11:50

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ť.


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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....


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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...


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 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


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 27.05.2007 15:01

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


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 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äčší..... :)


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 27.05.2007 15:49

mmartinm píše:
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äčší..... :)
to pom:=0; daj až za begin ktoré je pod ním


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 27.05.2007 19:58

audiotrack píše:
to pom:=0; daj až za begin ktoré je pod ním


Ďakujem.Uz to funguje....veľmi pekne ďakujem :D :D :D :D :D


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 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??


Offline

Užívateľ
Užívateľ
pomozte mi pri vytvodeni programu v DEV PASCALE.....

Registrovaný: 16.05.07
Prihlásený: 01.08.17
Príspevky: 837
Témy: 6
Príspevok NapísalOffline : 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
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 26.05.07
Prihlásený: 13.07.09
Príspevky: 13
Témy: 2
Príspevok Napísal autor témyOffline : 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.


Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 17.11.06
Prihlásený: 31.12.07
Príspevky: 677
Témy: 9
Príspevok NapísalOffline : 28.05.2007 18:59

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.


Odpovedať na tému [ Príspevkov: 19 ] 


Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy. Prosim pomozte..., maxima v pascale

v Assembler, C, C++, Pascal, Java

3

1238

30.04.2007 19:44

johny128 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomozte mi prosim vas s progamom v Pascale?

v Assembler, C, C++, Pascal, Java

2

677

21.05.2008 17:01

neutronmind Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. dev/sda4 a dev/sda5

v Operačné systémy Unix a Linux

4

478

07.09.2011 0:29

System Selector Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomoc pri programovani v Pascale

v Assembler, C, C++, Pascal, Java

5

1023

17.04.2007 16:45

stewe Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomoc pri hľadaní programu

v Video programy

1

344

06.03.2013 18:47

LeaR Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Problem pri spusteni programu

v Operačné systémy Microsoft

3

537

27.02.2011 11:12

jtbs Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zapnutie isteho programu pri boote

v Operačné systémy Microsoft

2

405

14.08.2016 15:36

Miso122 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Problem aj pri spustani programu

v Ostatné programy

2

995

08.05.2011 23:09

Logik Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zapnutie nechceného programu pri štarte PC

v Ovládače

5

505

12.06.2011 14:50

richo9996 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Zapnutie programu pri štarte PC, ako ?

v Operačné systémy Microsoft

2

766

18.07.2011 18:29

richo9996 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Automaticke spustenie programu pri sterte Win

v Operačné systémy Microsoft

6

676

30.07.2006 19:20

Fenius Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. vypnut spustenie programu pri spusteni systemu

v Operačné systémy Microsoft

3

2922

09.06.2011 14:03

igy94 Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomozte pri vybere

v Notebooky a netbooky

10

537

28.10.2015 19:45

Froster Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Pomozte pri zostave

v PC zostavy

17

840

17.02.2008 12:43

Jaro Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. Mrznutie napal.programu ImgBurn pri otvarani iso

v Operačné systémy Microsoft

1

405

06.04.2011 18:37

paulix Zobrazenie posledných príspevkov

V tomto fóre nie sú ďalšie neprečítané témy. pomôžte pls pri chybe

v Assembler, C, C++, Pascal, Java

8

469

28.05.2010 22:39

CLEMENZA Zobrazenie posledných príspevkov


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

Skočiť na:  

Powered by phpBB Jarvis © 2005 - 2024 PCforum, webhosting by WebSupport, secured by GeoTrust, edited by JanoF
Ako väčšina webových stránok aj my používame cookies. Zotrvaním na webovej stránke súhlasíte, že ich môžeme používať.
Všeobecné podmienky, spracovanie osobných údajov a pravidlá fóra