Program na formátování hokejových výsledků – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Program na formátování hokejových výsledků – Pascal – Fórum – Programujte.comProgram na formátování hokejových výsledků – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
VasilX0
Duch
13. 6. 2008   #1
-
0
-
Nahlásit jako SPAM
IP: 78.41.20.–
Reklama
Reklama
Laaca0
Stálý člen
13. 6. 2008   #2
-
0
-

Nefunguje odkaz na sejmi.jpg
Předpokládám, že tam je popsaný formát souboru VSTUP.TXT
Tudíž neznáme formát dat. Takže nám popiš formát dat a pošli odkaz na vzorový soubor VSTUP.TXT
Bez těchto informací ti doopravdy nemůžem pomoct. Procedura Nacteni mi příjde podezřelá; ze souboru načítáš znak po znaku, celý algoritmus je dost zašmodrchaný a smrdí to chybou. Jenže bez znalosti vstupních dat je to jenom spekulace. Mimochodem, nenapsal jsi, co přesně v tvém programu nefunguje.

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
VasilX0
Duch
15. 6. 2008   #3
-
0
-

To zadání má být http://www.vasilx.phorum.cz/sejmout.jpg nějak jsem to spletl. Máš pravdu chybná je proceduraNacteni. Po dlouhé kontrole profesorky mi nakonec řekla jak to mám předělat takže je to už přehlednější ale pořád to nejede http://www.vasilx.phorum.cz/HSM22.PAS neustále to hlásí chybu rozsahu v první proceduře jako předtím, kurzor mi vždy skočí na řádek 22.

Nahlásit jako SPAM
IP: 78.41.20.–
Laaca0
Stálý člen
15. 6. 2008   #4
-
0
-

Aha, zadání je už jasné. Já bych to napsal takhle:

const SOUBOR='hokej.txt';

var t:text;
s1,s2,s3:string;
i,j,k:integer;
begin
Assign(t,SOUBOR);
reset(t);
repeat
readln(t,s3);
Val(s3,i,j); {vyuzijeme figl - zkusim prevest zapis na cislo}
if j=0 then {jestlize prevod probehl bez potizi, tak jde o ukonceni souboru ci o oddelovac utkani}
if i=0 then Break else {0 znamena konec souboru}
else {pozor, druhym ELSE se vracime na uroven "if j=0"}
begin {...takze prevod na cislo se nezdaril, vime tedy, ze jde o zapis golu a vime, kde zacina prvni pismeno}
s1:=Copy(s3,1,j-1); {vytahnu si cislice pred jmenem}
delete(s3,1,j-1); {z puvodniho retezce je vymazu}
insert(':',s1,Length(s1)-1); {doplnim dvojtecku}
{oddeleni jmena od skore bude vetsi problem}
k:=1;
repeat
Val(s3[k],i,j); {pomoci VAL budu proverovat jednotlive znaky zda to je cislice}
if j<>0 then inc(k); {kdyz to neni cislice, tak zvys citac}
until j=0; {jednou ale na cislici narazime}
s2:=Copy(s3,1,k-1); {co je pred ni je jmeno}
delete(s3,1,k-1); {co je za ni je skore}
insert(':',s3,2); {do skore pridam dvojtecku}
writeln(s1,' ',s2,' ',s3); {a vsechno to vypisu na obrazovku}
end;
until false;
Close(t); {zavri soubor}
readln; {pockej na stisk enteru}
end.


Mimochodem, "formát" údaje o skóre zápasu má chybu. Pokud tam bude "111", tak nelze určit, jestli je to 1:11 nebo 11:1. Tedy, ono to poznat jde, ale jenom jenom z kontextu k ostatním gólům.

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
Laaca0
Stálý člen
15. 6. 2008   #5
-
0
-

Mimochodem, kdo psal zadání? Na jednu stranu je tam pěkně vymyšlená pointa, na druhou stranu opravdu prapodivná "čeština". Autorkou je vaše IVeTka?

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
Anonymní uživatel
~ Anonymní uživatel
0 příspěvků
15. 6. 2008   #6
-
0
-

To VasilX : http://palma.strom.sk/06D/A/

Nahlásit jako SPAM
IP: 217.145.198.–
VasilX0
Duch
21. 6. 2008   #7
-
0
-

Rád bych opožděně poděkoval za pomoc.

Nahlásit jako SPAM
IP: 78.41.20.–
DarkLifeCZ0
Newbie
29. 7. 2008   #8
-
0
-

Rád bych podotknul, že 3 znakové časy od 4 znakových lze jednoduše rozeznat. sekundy jsou vždy 2 znakové...

Nahlásit jako SPAM
IP: 81.0.219.–
With Love your Dark Life, for your dark life :-)
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, 9 hostů

Podobná vlákna

Formátování — založil Karel

Rozhozene formatovani — založil tribalcz

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ý