Domaci ukol pomozte – Pascal – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Domaci ukol pomozte – Pascal – Fórum – Programujte.comDomaci ukol pomozte – Pascal – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
19. 12. 2007   #1
-
0
-

ahoj všichni,mam ukol a potreboval bych poradit:

Ve vstupním textovém souboru jsou uložena přirozená čísla. Každé číslo je zapsáno na samostatném řádku souboru, může mít až 100 dekadických cifer, jeho zápis je korektní (víte, že jistě nezačíná nulou). Napište program, který spočítá a vypíše na výstup součet všech čísel obsažených v souboru. Vstupem programu bude jméno souboru se sčítanými čísly.

nevíte jak to dat dohromady?

Nahlásit jako SPAM
IP: 82.202.12.–
Reklama
Reklama
nickJartin
~ Anonymní uživatel
33 příspěvků
19. 12. 2007   #2
-
0
-

Pouzil bych dva stringy, jeden pro vysledek a jeden jako pomocny.
Nejprve bych nacetl prvni cislo v souboru do "vysledku" a prehodil poradi (pro budouci scitani).
Pak bych v cyklu nacital dalsi cisla do pomocneho stringu a po kazdem nacteni prehodil poradi cislic a pricetl k "vysledku" (opet v cyklu prvek po prvku).
Nakonec bych znovu prehodil poradi cislic ve "vysledku" a ten pak vypsal.

Napovedou jak konkretni veci udelat by mohlo byt http://www.pcsvet.cz/art/article.php?id=4040

Nahlásit jako SPAM
IP: 147.251.53.–
Mircosoft+1
Věrný člen
20. 12. 2007   #3
-
0
-

Ve zkratce:

Máš pomocnou proměnnou Součet (číslo, stačí byte). Na začátku ji vynuluj.
Máš proměnnou, do které budeš ukládat výsledek (řetězec - string). Na začátku prázdný.
Opakuj, dokud nezpracuješ všechny číslice z obou čísel:
- Vezmi nejnižší cifru z jednoho čísla a přičti ji k Součtu (ze znaku na číslo to převedeš funkcí Ord a odečtením čísla 48, což je ordinální číslo znaku nula).
- Vezmi nejnižší cifru z druhého čísla a také ji přičti k Součtu.
- Pokud je Součet menší než 10, vlož ho na začátek řetězce s výsledkem (po převedení zpět na znak) a Součet vynuluj.
- Pokud je Součet větší než 10, vlož na začátek řetězce s výsledkem hodnotu Součet-10, od Součtu odečti 10 a nech ho být.

Nahlásit jako SPAM
IP: 89.176.249.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
24. 12. 2007   #4
-
0
-

uz mam tohle:



program soucet_prirozenych_cisel;
uses ch_200,crt;
var soubor:string[10];
f:text;
aktcislo:string[100];
soucet:string[102];


begin
clrscr;


{writeln('jaky soubor chces otevrit?');
read(soubor); }

soubor:='cisla.txt';

assign(f,soubor);
reset(f); {otevre f pro cteni}



while not seekeof(f) do
begin


readln(f,aktcislo);

for i:=length(aktcislo) downto 1 do

if soucet[i]+aktcislo[i]>10 then begin
soucet[i-1]:=soucet[i-1]+1;

soucet[i]:=soucet[i]+aktcislo[i];
end else

soucet[i]:=soucet[i]+aktcislo[i];


end;


writeln(soucet);
close(f);



readkey;
end.


a jeste
u toho souctu mam jako prevest ty 2 retezce na cisla a ty pak secist jo,a pak zase prevyst na retezce??

Nahlásit jako SPAM
IP: 82.202.12.–
Mircosoft+1
Věrný člen
25. 12. 2007   #5
-
0
-

Místo tohohle:

while not seekeof(f) do...

bych napsal tohle:
while not eof(f) do...

Teď si zrovna nepamatuju, co dělá seekeof, ale myslím, že to je procedura, která přesune kurzor na konec souboru, což určitě nechceš.

Tohle:
if soucet[i]+aktcislo[i]>10 then...

ti nebude fungovat. Tady už musíš mít znaky převedené na čísla:
if ord(soucet[i])-48+ord(aktcislo[i])-48>10 then...


Stejně tak tohle:
soucet[i]:=soucet[i]+aktcislo[i];

musíš přepsat takhle:
soucet[i]:=chr(ord(soucet[i])-48+ord(aktcislo[i])-48+48);

To plus mínus 48 na konci se samozřejmě vyruší, napsal jsem to tam pro přehlednost - odečtením převedeš znak na číslo, přičtením číslo na znak.

Nahlásit jako SPAM
IP: 85.132.158.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Laaca0
Stálý člen
25. 12. 2007   #6
-
0
-

Já bych to napsal takhle:



const MAXCISEL=10;

Function Xnul(n:integer):string;
var a:integer;
s:string;
begin
s:='';
for a:=1 to n do s:=s+'0';
Xnul:=s;
end;

var t:text;
cislo:array[1..MAXCISEL] of string[100];
a,b,c,d,e,f,pc:integer;
soucet:string;
s:string;
begin
s:=ParamStr(1);
if s='' then s:='cisla.txt';
assign(t,s);
Reset(t);
pc:=0;
b:=0;
while not eof(t) do
begin
inc(pc);
readln(t,cislo[pc]);
a:=Length(cislo[pc]);
if a>b then b:=a;
end;
Close(t); {vsechna cisla mam nactena, zaviram soubor}

for a:=1 to pc do {doplnim cisla nulama na jednotnou delku }
cislo[a]:=Xnul(b-Length(cislo[a]))+cislo[a];

soucet:='';
e:=0;
for a:=b downto 1 do
begin
d:=e;
for c:=1 to pc do inc(d,byte(cislo[c][a])-48);
e:=d div 10;
f:=d mod 10;
soucet:=char(f+48)+soucet;
end;
if e>0 then
begin
Str(e,s);
soucet:=s+soucet;
end;
writeln(soucet);
readln;
end.

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
27. 12. 2007   #7
-
0
-

ok,diky moc!!

uz mi to funguje :smile18:

Nahlásit jako SPAM
IP: 82.202.12.–
27. 12. 2007   #8
-
0
-

ale vidim ze zobrazovani smajliku neak nefacha

Nahlásit jako SPAM
IP: 82.202.12.–
minox30
Newbie
24. 1. 2008   #9
-
0
-

ahojte poprosil by som moc kto vie v programe v pascal.....urobiťtuto ulohu- Vypošet sučinu všetkych prvkov matice!!pokial by sa dalo pošlite mi to na milan8@post.sk
Velmi pekn edakujem.-)Milan

Nahlásit jako SPAM
IP: 77.48.69.–
Mircosoft+1
Věrný člen
26. 1. 2008   #10
-
0
-

A já bych potřeboval, aby za mě někdo napsal semestrálku a nejlíp i diplomku :smile20: .

Sorry, ale tohle ne. Můžu ti s tím pomoct, ale ne to za tebe celé udělat (ne že bych neuměl, ale ze zásady).
Takže si někde najdi něco o polích (array) a cyklech (for) a násobení (*) a snaž se. A přijď, až budeš mít aspoň něco hotové.

Nahlásit jako SPAM
IP: 85.132.158.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
minox30
Newbie
29. 1. 2008   #11
-
0
-

Mircosoft.... hele kdybi vedel neco o tomhle jazyku neco tak bych sem nesel hledat o pomoc povim ti to takhle je to pro kamosku neze bych se chcel pyšit cudzim perim stoho sem vyrostl a nemam to za potreby... sem hodil do googlu a vysla mi tato stranka tak sem myslel ze tu najdu lidi kteri sou v tom machri a ne nejaky lidi kteri sou na to hrdi a keca okolo toho jakeby vymisleli perpetum mobile!!....že oni neco vedi a druhy ne .....sak si musime pomahat ne?!!!si pak strcte takovou stranku alebo forum pomooooc z domacim ukolem nekam!!...myslel sem že sa tu najde nekdo pro koho to neni problem udelat nejakej nenarocnej program na to ale asi pudu za lidma co mi podaj pomocnou ruku!!pokud ti nestaci moje uprimnost ....zatim a dik za pochopeni milan8@post.sk

Nahlásit jako SPAM
IP: 77.48.69.–
Laaca0
Stálý člen
29. 1. 2008   #12
-
0
-

Šmarjá noho! Prosim tě, piš slovensky, tvoje čeština je příšerná.
A to doopravdy nejde, abychom ti napsali celý program. Napřed to zkus sám.

Nahlásit jako SPAM
IP: 81.0.253.–
DOS-u-akbar
minox30
Newbie
29. 1. 2008   #13
-
0
-

hele laaca nech si svoje- promin za tenhle vyraz- debilne pripominky a nebo puritanske.....a pokud si stech kteri si mysli že je buh tak se nekam strč !!!tebe sem se neptal a pokud nepomužeš tak daj pokoj "aka žiju na hranici cz a svk tu se mluvi i tak i tak je to moje vec jak tady budem psat" pokud stím maš problem nasad nejake prašky:D:D hele kdybi vedel co to pascal je tak se tady neoptežuju a !neprosim"o pomoc!!ale vidím že ste tady parta programovejch snobú!!!zdar.M

Nahlásit jako SPAM
IP: 77.48.69.–
Tomix0
Stálý člen
29. 1. 2008   #14
-
0
-

To minox3 :
Co ta kámoška bude dělat, až se jí učitel zeptá: "Co znamená tohle, proč tohle řešíš takhle,
jak by to šlo jinak", atd... Co ona na to? - Takhle to s náma dělal matikář, dobrá metoda proti opisujícím lemrám.

Nahlásit jako SPAM
IP: 89.176.233.–
minox30
Newbie
30. 1. 2008   #15
-
0
-

to tomix...daj pokoj stymto.....vidim že ste tady všichni lemre !!všichni do jednoho vubec tu nejde o to co ji povi profakt sou to vedlejši fakty,problemi daneho človeka nevim vy co to tu vlasne rozebirate o nejakejch profakach a lemrach .....a mozno tu oto i jde aby ji to ten profak rekl a optal a dostal.....je to bud a lebo nasledky si bere ona ze sebou a ne vy!...mozno ju to donuti se na to podivat a zistit si to naucit...atd.....ale vidim že vy ste tu ozaj "0" a ne "01".-)

Nahlásit jako SPAM
IP: 77.48.69.–
Osiris0
Stálý člen
30. 1. 2008   #16
-
0
-

minox3 napsal:
to tomix...daj pokoj stymto.....vidim že ste tady všichni lemre !!všichni do jednoho vubec tu nejde o to co ji povi profakt sou to vedlejši fakty,problemi daneho človeka nevim vy co to tu vlasne rozebirate o nejakejch profakach a lemrach .....a mozno tu oto i jde aby ji to ten profak rekl a optal a dostal.....je to bud a lebo nasledky si bere ona ze sebou a ne vy!...mozno ju to donuti se na to podivat a zistit si to naucit...atd.....ale vidim že vy ste tu ozaj "0" a ne "01".-)



Čekáš, že ti to tu někdo udělá, když půlku diskutujících urazíš a druhou půlku odradíš svým přístupem "Udělejte mi to a pošlete mi to na mail".

Nahlásit jako SPAM
IP: 85.70.130.–
Zelenáč0
Posthunter
30. 1. 2008   #17
-
0
-

To minox3 : Mno nevim, co je to za jazyk, ale priserny to rozhodne je...

Nahlásit jako SPAM
IP: 89.176.254.–
minox30
Newbie
31. 1. 2008   #18
-
0
-

siriso-OSIRIS:Ddej pokoj i ty ...ja uz jenom reaguji na tu Vas vsechny -na tu vasu píchu aby ste si uvedomili co ste zač _fakt perfetni lidi z velkym P(jako pascal):D:D NOa ber to jako nasledek nejake veci....a vubec mi to netrha žily nebo co se tu svama natahuji sem potkal kamose co mi ten program spichnil za chvilku takze mily a važeny loučim se a dik za skvelou pomoc!!:D
FUCK OFF Forum Pascal pomoooc s domacim ukolem!!Ste jenom snoby!!off

Nahlásit jako SPAM
IP: 77.48.69.–
Osiris0
Stálý člen
31. 1. 2008   #19
-
0
-

minox3 napsal:
siriso-OSIRIS:Ddej pokoj i ty ...ja uz jenom reaguji na tu Vas vsechny -na tu vasu píchu aby ste si uvedomili co ste zač _fakt perfetni lidi z velkym P(jako pascal):D:D NOa ber to jako nasledek nejake veci....a vubec mi to netrha žily nebo co se tu svama natahuji sem potkal kamose co mi ten program spichnil za chvilku takze mily a važeny loučim se a dik za skvelou pomoc!!:D
FUCK OFF Forum Pascal pomoooc s domacim ukolem!!Ste jenom snoby!!off



píchu - pícha není od slova píchat, ale pýcha
ste - jste
spichnil - ???
snoby - snobi

To jen tak na okraj, chyb je tam povícero.

Já osobně neprogramuji lidem zadarmo, maximálně jim poradím. Rozhodně ale ne tomu, kdo se chová tak jako ty.

Nahlásit jako SPAM
IP: 85.70.130.–
minox30
Newbie
31. 1. 2008   #20
-
0
-

TO OSIRIS!!.....jj byl to test ty demente a vedel sem ze se na to chytiš!!proc mysliš že sem psal ty hrubky!! Nebo snobi a vymetenci..jako vy(OSIRIS A SPOL) když se už namemaj čeho chytit tak uz tapaj po gramatice daneho človeka!!....došla štava došel dech došli "0 a 1"
Chodte stouto strankou nekam do Ha.zlu!!

Nahlásit jako SPAM
IP: 77.48.69.–
Mircosoft+1
Věrný člen
31. 1. 2008   #21
-
0
-
Nahlásit jako SPAM
IP: 85.132.158.–
Chceš-li lepší odpověď, polož lepší otázku.
Moje stránka.
Osiris0
Stálý člen
31. 1. 2008   #22
-
0
-

minox3 napsal:
TO OSIRIS!!.....jj byl to test ty demente a vedel sem ze se na to chytiš!!proc mysliš že sem psal ty hrubky!! Nebo snobi a vymetenci..jako vy(OSIRIS A SPOL) když se už namemaj čeho chytit tak uz tapaj po gramatice daneho človeka!!....došla štava došel dech došli "0 a 1"
Chodte stouto strankou nekam do Ha.zlu!!



Pán začíná být agresivní :smile6: :smile18: :D

Btw. člověk, který duplikuje interpukční znaménka (!, ., ...) je prý psychicky labilní - ale to jsem jenom slyšel, nevím, co je na tom pravdy :smile16:

Nahlásit jako SPAM
IP: 85.70.130.–
Zelenáč0
Posthunter
31. 1. 2008   #23
-
0
-

To Osiris : trojtecka je interpunkcni znamenko nebo duplikovana tecka? snad nejsem labilni...

Nahlásit jako SPAM
IP: 89.176.254.–
Osiris0
Stálý člen
31. 1. 2008   #24
-
0
-

Zelenáč napsal:
To Osiris : trojtecka je interpunkcni znamenko nebo duplikovana tecka? snad nejsem labilni...



Já ho jen popichuji, protože je agresivní :-)

Nahlásit jako SPAM
IP: 85.70.130.–
geckon0
Návštěvník
31. 1. 2008   #25
-
0
-

To minox3 : Pokud ty hrubky píšeš schválně, abys nás otestoval, jak říkáš, tak budeme řádně otestovaní:) Btw, čeho se ty testy týkají? :)

Nahlásit jako SPAM
IP: 88.102.121.–
"Neberte život tak vážně. Stejně z něj nevyváznete živí."
Osiris0
Stálý člen
1. 2. 2008   #26
-
0
-

geckon napsal:
To minox3 : Pokud ty hrubky píšeš schválně, abys nás otestoval, jak říkáš, tak budeme řádně otestovaní:) Btw, čeho se ty testy týkají? :)



Asi základů pravopisu ze ZŠ.

Nahlásit jako SPAM
IP: 85.70.130.–
minox30
Newbie
1. 2. 2008   #27
-
0
-

jj agresor prveho radu demente:D:Da myslim si že ste tu parta parta buzerantu parta(OSIRIS,Geckon no jasne demente kde bys ty nemhl bejt!!A v neposlední rade MIRCOSOFT)!!Mam taky pocit panove že se Vam páli olektronka E14 tymto a tymto se Vam omlouva katoda Olomoc!!Donalde OSIRIS zleste s toho lustru vidím Vas!:D:D:D
F.ck OFF panove!!

Nahlásit jako SPAM
IP: 77.48.69.–
Osiris0
Stálý člen
1. 2. 2008   #28
-
0
-

minox3 napsal:
jj agresor prveho radu demente:D:Da myslim si že ste tu parta parta buzerantu parta(OSIRIS,Geckon no jasne demente kde bys ty nemhl bejt!!A v neposlední rade MIRCOSOFT)!!Mam taky pocit panove že se Vam páli olektronka E14 tymto a tymto se Vam omlouva katoda Olomoc!!Donalde OSIRIS zleste s toho lustru vidím Vas!:D:D:D
F.ck OFF panove!!



Chováš se jak rozmazlený fracek někde na devítce. Někdo by tě měl naučit, že se dospělým lidem nenadává a někdo by tě měl naučit se vyjadřovat. Třeba rodiče :-)

Admini: Navrhuji dát ban uživateli minox3.

Nahlásit jako SPAM
IP: 85.70.130.–
geckon0
Návštěvník
1. 2. 2008   #29
-
0
-

Osiris napsal:
Admini: Navrhuji dát ban uživateli minox3.



Jestli do toho mám co mluvit, tak souhlasím ;-) Pokud se někdo neumí chovat, tak ho tu nechci. Ono to už není ani moc k smíchu, co nám minox3 předvádí..

Nahlásit jako SPAM
IP: 88.100.42.–
"Neberte život tak vážně. Stejně z něj nevyváznete živí."
Blujacker
~ Moderátor
0
Grafoman
1. 2. 2008   #30
-
0
-

Co je moc, to je moc. Tohle bych opravu viděl na ip-ban

Nahlásit jako SPAM
IP: 213.220.226.–
Navštivte server Matematika pro každého
Najdete zde články zabývající se matematikou základních a středních škol a databázi hlavolamů.
Pro vyzkoušení Vaš
minox30
Newbie
2. 2. 2008   #31
-
0
-

ale ale naši sladoušci fnukaji do kapesnicka zrazu sou jako s cukru davejte pozor aby ste sa mi nezesypali slečinky!!!:D:D:D:D:DHAHA a nedaj mi ten baner a nedaj a nedají si rict a nedaji!!:D

Osiratko moc nenavrhuj lebo te nekdo zvrhe:D:D!!
Geckatko je naše kokrhatko ,žeby -ocasek Osirise??!!??:D
Blujackerko nasad si radsi čočky a rozhledni se okolo sebe ty ip-ban!!:D:D

A-R_IA!

Nahlásit jako SPAM
IP: 77.48.69.–
Tomix0
Stálý člen
2. 2. 2008   #32
-
0
-

Ban snad ani né, ale že tenhle topic ještě není zamčenej, to se divím.

Nahlásit jako SPAM
IP: 89.176.233.–
Osiris0
Stálý člen
2. 2. 2008   #33
-
0
-

minox3 napsal:
ale ale naši sladoušci fnukaji do kapesnicka zrazu sou jako s cukru davejte pozor aby ste sa mi nezesypali slečinky!!!:D:D:D:D:DHAHA a nedaj mi ten baner a nedaj a nedají si rict a nedaji!!:D

Osiratko moc nenavrhuj lebo te nekdo zvrhe:D:D!!
Geckatko je naše kokrhatko ,žeby -ocasek Osirise??!!??:D
Blujackerko nasad si radsi čočky a rozhledni se okolo sebe ty ip-ban!!:D:D

A-R_IA!



Já vím, že děti na ZŠ se neumí chovat, ale nemusíš to dávat tak najevo. Tak jako ty se projevují pouze primitivové.

Nahlásit jako SPAM
IP: 85.70.130.–
minox30
Newbie
2. 2. 2008   #34
-
0
-

To Tomix : Tomix asi se nekde stratil kličnik kterej by to zavrel !!treba požadat trinity alebo Nea nech nojdou.-):D:D
A-R-AI!

Nahlásit jako SPAM
IP: 77.48.69.–
minox30
Newbie
2. 2. 2008   #35
-
0
-

To Osiris : jj to slovo to uplne vystihuje nase oseratko!!:D:D
PRIMITIVOVE=PRIM ITI OVE= rozbor:D:D:D

PRIM =jako primitiv
ITI =jako ET mimozemštan
OVE = se rovna jako OLEEE jako ze sem vam dal OLEE!!:D:D:D

A-R-IA!

Nahlásit jako SPAM
IP: 77.48.69.–
Osiris0
Stálý člen
2. 2. 2008   #36
-
0
-

minox3 napsal:
To Osiris : jj to slovo to uplne vystihuje nase oseratko!!:D:D
PRIMITIVOVE=PRIM ITI OVE= rozbor:D:D:D

PRIM =jako primitiv
ITI =jako ET mimozemštan
OVE = se rovna jako OLEEE jako ze sem vam dal OLEE!!:D:D:D

A-R-IA!



Vždyť ty ani nedáš dohromady text, který by měl nějaký význam. A vážně už mě to začíná štvát, napíšu adminovi.

Nahlásit jako SPAM
IP: 85.70.130.–
Blujacker
~ Moderátor
0
Grafoman
2. 2. 2008   #37
-
0
-

To Osiris : Už jsem napsal na redakční nástěnku

Nahlásit jako SPAM
IP: 213.220.226.–
Navštivte server Matematika pro každého
Najdete zde články zabývající se matematikou základních a středních škol a databázi hlavolamů.
Pro vyzkoušení Vaš
Osiris0
Stálý člen
2. 2. 2008   #38
-
0
-

Blujacker napsal:
To Osiris : Už jsem napsal na redakční nástěnku



Děkuji.

Nahlásit jako SPAM
IP: 85.70.130.–
hrach
~ Redaktor
+1
Boss
2. 2. 2008   #39
-
0
-

Lol, uz sem myslel ze se tu nikde nic nedeje :D

Nahlásit jako SPAM
IP: 193.179.169.–
http://jan.skrasek.com@hrachcz – webdeveloper
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, 15 hostů

Podobná vlákna

Domácí úkol — založil jelis

Domácí úkol — založil Ondra

Domácí úkol — založil Anonim

Domáci úkol — založil Franta

Domaci ukol — založil Jakub

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ý