Skrytá chyba ? :( – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Skrytá chyba ? :( – Pascal – Fórum – Programujte.comSkrytá chyba ? :( – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
Mirek Braho0
Stálý člen
31. 5. 2006   #1
-
0
-

Ahoj lidi, d?v?m sem k?d jedn? procedury. M? ud?lat to, ?e na?te matici ze souboru, a se?ad? ??dky podle celkov?ho sou?tu. Ud?lal sem to tak, ?e sem si vytvo?il pomocnou matici, kde sem p?idal na konec ka?d?ho ??dku je?t? 1 prvek (sou?ty) a podle toho to se?adil. ovšem nevím pro?, p?i zad?n? po?tu ??dk? a sloupc? matice 2,2 to p?i se?azen? uk??e na prvn?m ??dku oba prvky 0 0, p?i 3,3 to uk??e 12336, 12336, nebo podobn? ??sla a jinak p?i jinejch zad?n?ch to funguje bez probl?m?. V ?em by moh bejt zakopanej pes ? :( D?kuju moc za odpov?di.



procedure setrid(a,b:integer); { Procedura pro serazeni radku matice
dle souctu vzestupne }
var f,g,h,i,j,k,l:integer; { Lokalni promenne procedury }
soubor :text;
p :array [1..10, 1..11] of integer;{ Definovani pole }
pp :array [1..11] of integer; { Def. pomocneho pole}
begin
assign(soubor,'vysledky.pas');
reset(soubor);
f:=0;
for g:=1 to a do
begin { Nacitani prvku }
for i:=1 to b do
begin
read(soubor,h);
f:=f+h; { Scitani prvku }
p[g,i]:=h;
end;
p[g,b+1]:=f; { Zapis sou?tu prvk? do posledn?ho prvku matice }
readln(soubor);
f:=0;
end;
for l:=1 to a do
begin
for g:=1 to a do
begin
if p[g,b+1]>p[g+1,b+1] then { Porovnavani radku }
begin
for i:=1 to b+1 do
begin { Premisteni radku s mensim souctem nad radek
s vetsim souctem pomoci pomocneho pole }
pp[i]:=p[g,i];
p[g,i]:=p[g+1,i];
p[g+1,i]:=pp[i];
end;
end;
end;
end;
writeln;
writeln;
for g:=1 to a do
begin
for i:=1 to b do
begin
write(' ',p[g,i]);
end;
write(' Soucet je: ',p[g,b+1]);
writeln;
end;
close(soubor);
end;

Nahlásit jako SPAM
IP: ...–
Reklama
Reklama
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 17 hostů

Podobná vlákna

"Skrytá nápověda" — založil Kalgys

Skrytá obrazovka — založil delphak

Skrytá konzolová app — založil Antabelus

Moderátoři diskuze

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý