[Fanda] program generator

Lubos Pintes lubos.pintes na orangemail.sk
Úterý Únor 5 10:33:26 CET 2008


Celkom určite keď to nefunguje :-D:-D.
Programovanie je o skúšaní a ladení, nie "neviem kde je chyba poraďte". 
No nemám tu ten turbo pascal či ako sa to volalo, takže ťažko môžem 
testovať, ale potrápte sa. Ak nato prídete sám, stojí to zato.


František Ollé  wrote / napísal(a):
> Chybu som sice opravil, no neviem ako tú funkciu donútiť aby pracovala 
> správne, je tam nejaká logická chyba?
> ----- Original Message ----- From: "Michal Jungmann" 
> <jungmann na braillnet.cz>
> To: <fanda na tereza.fjfi.cvut.cz>
> Sent: Monday, February 04, 2008 12:05 PM
> Subject: Re: [Fanda] program generator
> 
> 
>> Dobré odpoledne,
>>
>> pokud to s programováním v Pascalu myslíte vážně, měl byste myslím být
>> schopen chybu na základě chybového hlášení kompilátoru najít a opravit
>> sám, není nijak záludná. Následně potom bude potřeba upravit i další
>> místa, která jsou syntakticky sice správně, ale algoritmus jako celek
>> myslím nyní nebude dělat to, co od něj očekáváte, což po zkompilování
>> a spuštění velice snadno zjistíte.
>>
>>
>> S pozdravem
>>
>> Michal Jungmann
>>
>>
>> 2008/2/4 František Ollé <frantisek.olle na netopier.sk>:
>>> Zdravým fandovia! Programujem generátor čísel, ktorý vygeneruje 
>>> určitý počet čísel vopred zadaných na vstupe, no kompilátor mi to 
>>> nechce preložiť. Neviem, že včom môže byť chyba. Rieším tam však aj 
>>> taký problém, že sa žiadné číslo nesmie v tom súbore opakovať 
>>> dvakrát. Preto vás prosím o pomoc, lebo neviem prísť nato, kde môže 
>>> byť chyba. Pre istotu vám posielám aj zdroják.
>>> program generator;
>>> var f:text;
>>> i,p,n,x :longint;
>>> c :array[1..n] of longint;
>>> procedure openf;
>>> begin
>>> assign(f,'cisla.txt');
>>> rewrite(f);
>>> end;
>>> function check :boolean;
>>> begin
>>> for x:=1 to i do begin;
>>> if (c[i]=p) then check:=true
>>> else check:=false;
>>> end;
>>> end;
>>> procedure gen;
>>> begin
>>> if (n=0) then randomize;
>>> p:=random(20+1);
>>> end;
>>>
>>> begin
>>> n:=0;
>>> p:=0;
>>> i:=1;
>>> gen;
>>> openf;
>>> writeln('Zadaj pocet cisel, ktore chces generovat.');
>>> readln(n);
>>> for i:=1 to n do begin;
>>> if (check) then
>>> begin
>>> gen;
>>> c[i]:=p;
>>> end;
>>> c[i]:=p;
>>> writeln(f,p);
>>> end;
>>> close(f);
>>> end.
>>> Za pomoc vopred ďakujem. S pozdravom František Ollé
>>>
>>
> 
> 


Další informace o konferenci Fanda