[Pascal] Sucet_NC - zdrojak - velmi surne

Axwell · Napísal **Axwell**: 13.05.2008 18:57

94. Sucet_NC
Vytvorte program, ktorý spočíta N celých náhodných čísel, ktoré boli vygenerované
z intervalu <a,b>

Speeder21 · Napísal **Speeder21**: 13.05.2008 19:28

Kedže som zo zadania nevyrozumel poriadne co mam zadat

tak som to spravil po vlastnom .. len dufam ze bez chyby

Kód:

Program sucet_K_2;
var i, X, Y, N :integer;
Begin
     writeln('Program na nahodne vybratie cisel a ich scitanie:');
     writeln;
     writeln('Zadan pocet cisel ktore sa maju scitat.');
     readln(N);
     for i:= 1 to N do begin
                            X:=random(999);
                            Y:=Y+X;
                       end;
     writeln('Sucet nahodne vybranych cisel je ',Y);
     readln;
end.

Axwell · Napísal autor témy **Axwell**: 13.05.2008 19:52

neutronmind · Napísal **neutronmind**: 13.05.2008 20:03

hmm a kde tam mas inicializovany ten interval? imho ten by mal byt inicializovany na zaciatku programu, alebo precitany z klavesnice...

Axwell · Napísal autor témy **Axwell**: 13.05.2008 20:05

ja som to potom spravil takto:

Kód:

{94. Sucet_NC
Vytvorte program, ktorý spočíta N celých náhodných čísel, ktoré boli vygenerované
z intervalu <a,b>}

program Sucet_NC;
uses crt;

var
   a,b,i,cislo,n,sucet:longint;

begin

     Randomize;

     writeln('Zadajte spodnu a hornu hranicu intervalu: ');
     readln(a);
     readln(b);

     write('Zadajte pocet generovanych cisel: ');
     readln(n);

     while i < n do
           begin
           cislo:=a+Random(b-a+1);
           writeln(cislo);
           sucet:=sucet+cislo;
           i:=i+1;
           end;

     writeln('Sucet cisel je ',sucet);

     readln;

end.

Speeder21 · Napísal **Speeder21**: 13.05.2008 20:09

neutronmind píše:

hmm a kde tam mas inicializovany ten interval? imho ten by mal byt inicializovany na zaciatku programu, alebo precitany z klavesnice...

hupsik mas pravdu

tak sa ospravedlnujem chybycka se vloudila

... no teda a riadna jak na to cumim

neutronmind · Napísal **neutronmind**: 13.05.2008 20:10

Axwell - mno ma to jednu chybu... zadam napriklad, aby mi to generovalo 10 cisel a generuje to napr. len 5... tento isty problem som mal aj ja, nakoniec som to vyriesil nasledovne:

Kód:

program cisla;

begin
Pocet:=0;
Sucet:=0;
Randomize;
write('Zadajte interval: ');
readln(A,B);
write('Zadajte pocet cisel, ktore sa maju vygenerovat: ');
readln(Y);

repeat
N:=Random(B+1);
if N>=A then
begin
  Sucet:=Sucet+N;
  writeln(N);
  Pocet:=Pocet+1;
end;

until Pocet=Y;

writeln('Sucet vygenerovanych cisel v danom intervale je: ',Sucet);
readln;
end.

//Speeder21 njn stava sa

Axwell · Napísal autor témy **Axwell**: 13.05.2008 20:14

mne to vygeneruje 10 cisel ked napisem 10 cisel, a este repeat until nemozeme pouzivat

Speeder21 · Napísal **Speeder21**: 13.05.2008 20:14

neutronmind ja uz vem preco som to tam nedal

bo som nevedel nastavit tu dolnu hranicu .... :oops:

heh tak jak si to spravil ty ma to nenapadlo

Speeder21 · Napísal **Speeder21**: 13.05.2008 20:15

Axwell píše:

mne to vygeneruje 10 cisel ked napisem 10 cisel, a este repeat until nemozeme pouzivat

a keby ze das namiesto repeat .. for ??

Axwell · Napísal autor témy **Axwell**: 13.05.2008 20:17

no myslim ze staci aj while do

neutronmind · Napísal **neutronmind**: 13.05.2008 20:25

Speeder21 neboj, aj mne hodnu chvilu trvalo, dokym som na to prisiel... btw. v tom prvom kode som tam zabudol dat deklarovanie premennych :-D

malo tam byt predtym
var
A,B,N,Y,Sucet,I,Pocet: integer;

ale sak to uz je jedno, tu je to po druhe a s pouzitim while-do

Kód:

program cicla;


var
A,B,N,Y,Sucet,I,Pocet: integer;

begin
Pocet:=0;
Sucet:=0;
Randomize;
write('Zadajte interval: ');
readln(A,B);
write('Zadajte pocet cisel, ktore sa maju vygenerovat: ');
readln(Y);

while Pocet<>Y  do
begin
N:=Random(B+1);
if N>=A then
begin
  Sucet:=Sucet+N;
  writeln(N);
  Pocet:=Pocet+1;
end;
end;


writeln('Sucet vygenerovanych cisel v danom intervale je: ',Sucet); 
readln;
end.

Speeder21 · Napísal **Speeder21**: 13.05.2008 20:28

to deklarovanie som si všimol

:D stava sa

inak

to:

Pocet:=0;
Sucet:=0;

tam musí byť ???

bo ja som bol doteraz v tom ze toto tam zadavat nemusim

neutronmind · Napísal **neutronmind**: 13.05.2008 20:32

njn malo by to tam byt... aspon si myslim... najprv som tam to Pocet:=0; nemal, a generovalo mi to vzdy o jedno cislo menej... napriklad, zadal som nech generuje 5 cisel a vygenerovalo len 4... a dovod? pravdepodobne sa za premennu Pocet automaticky dosadila hodnota 1... dal som nulu a fachcilo to :-D

... je to tak lepsie, predsa ten kompilator nevie co tam ma dosadit... aspon tak si myslim :-)

//jj teraz som skusil dat hned na zaciatok programu writeln(Pocet);, pricom tam Pocet:=0; nebolo... a napisalo mi to 1... takze asi za kazdu neinicializovanu premennu sa dosadi hodnota 1 :-)

Speeder21 · Napísal **Speeder21**: 13.05.2008 20:36

neutronmind píše:

njn malo by to tam byt... aspon si myslim... najprv som tam to Pocet:=0; nemal, a generovalo mi to vzdy o jedno cislo menej... napriklad, zadal som nech generuje 5 cisel a vygenerovalo len 4... a dovod? pravdepodobne sa za premennu Pocet automaticky dosadila hodnota 1... dal som nulu a fachcilo to :-D

... je to tak lepsie, predsa ten kompilator nevie co tam ma dosadit... aspon tak si myslim :-)

//jj teraz som skusil dat hned na zaciatok programu writeln(Pocet);, pricom tam Pocet:=0; nebolo... a napisalo mi to 1... takze asi za kazdu neinicializovanu premennu sa dosadi hodnota 1 :-)

tak to potom bude zavisiet od druhu kompilatora

:D mne to sem tam fachcilo a sem tam nie

Axwell · Napísal autor témy **Axwell**: 13.05.2008 20:43

okej, diky :-)

neutronmind · Napísal **neutronmind**: 13.05.2008 21:02

Axwell píše:

okej, diky :-)

neni zac

Speeder21 píše:

tak to potom bude zavisiet od druhu kompilatora

:D mne to sem tam fachcilo a sem tam nie

jj to je dost mozne... mne sa zda, ze ked som robil v TurboPascale, tak som to tiez nemusel zadavat... ale uz si nepamatam... teraz robim v Delphi

Speeder21 · Napísal **Speeder21**: 13.05.2008 21:06

Hej chlape vis programovat v delphi ????

neutronmind · Napísal **neutronmind**: 13.05.2008 21:35

Speeder21 píše:

Hej chlape vis programovat v delphi ????

no ja som to tak myslel, ze Delphi pouzivam ako komiplator pre pascal...
ale ano, viem programovat v Delphi, aj ked som zatial len zaciatocnik

Speeder21 · Napísal **Speeder21**: 13.05.2008 21:38

neutronmind píše:

no ja som to tak myslel, ze Delphi pouzivam ako komiplator pre pascal...
ale ano, viem programovat v Delphi, aj ked som zatial len zaciatocnik

tak to sme na tom rovnako

fest len zakladne veci a jaksi sa nemozem pohnut dalej

neutronmind · Napísal **neutronmind**: 13.05.2008 21:40

njn, ale ajtak, na delphi viac menej kaslem, radsej by som sa chcel naucit C++ :-)

... len som strasne lenivy, vzdy radsej len stravim cely den na nete :-D

Speeder21 · Napísal **Speeder21**: 13.05.2008 21:42

heh tak teraz si to vystihel

:D:D clovek by aj chcel ale jak sa zavesi na net tak ho to prejde

:D:D ja bych fest bral v skole vyucovani len o programovani a ze by ma do teho troska donutili

neutronmind · Napísal **neutronmind**: 13.05.2008 21:53

presne tak, sadnem za net a nemozem sa od toho odtrhnut :-D

ale inak ja si myslim, ze najlepsie sa to naucis sam, ked si kupis daku knihu, viem z vlastnej skusenosti..

ja sa tak pekne postupne ucim

...
dobre chlapci majte sa, ja idem chrapat :yawn:

ech kua vlastne najprv sa musim ucit do skoly :wall:

Speeder21 · Napísal **Speeder21**: 13.05.2008 21:55

jo na knizky neni penazi

co mna sice brutalne mrzi ale nic nenarobim

.... heh inak celkem v poho stranka

ale mas co vylepsovat

vlastna skusenosť ..... a co na t skolu nekasles ?

ja sem sa na to dneska ani nekukel

neutronmind · Napísal **neutronmind**: 14.05.2008 20:00

Speeder21 píše:

jo na knizky neni penazi

co mna sice brutalne mrzi ale nic nenarobim

.... heh inak celkem v poho stranka

ale mas co vylepsovat

vlastna skusenosť ..... a co na t skolu nekasles ?

ja sem sa na to dneska ani nekukel

jj to mas pravdu, knizky su dost drahe, ale sak dost z nich sa da stiahnut... ale ajtak, najviac sa naucis z normalnych... no a k tej stranke

to je moja prva, noo a nevedel som, co tam mam dat, ved tolko stranok uz existuje, ze nieco originalne je naozaj tazke vymysliet... ale v blizkej buducnosti by som ju chcel prerobit, asi zvolim nejaky zlozitejsi layout

hhh a vcera som sa uz ajtak neucil, bol som taky unaveny, ze som len nakukol do zositov, hned zavrel a isiel som spat

Speeder21 · Napísal **Speeder21**: 14.05.2008 21:06

v webdizajne nejde vobec o zlozitost layoutu ... ide hlavne o dobru fantaziu

a tiez dovednosti s grafickymi editormi

:D obsah stranky by som spravil asi taky ze by som tam dal neco o sebe(teda tebe) ... popripade ked vies programovat tak nejake tvoje vytvory

a ak vies PHP pokusit sa spravit administraciu na tom sa strasne moc naucis

neutronmind · Napísal **neutronmind**: 15.05.2008 22:27

njn tak by som aj chcel... len neviem, ako by som mal spravit ten layout... dat menu na bok, alebo nechat tam kde je, ake farby vybrat a proste co a ako... ja som to robil dost narychlo, proste som len raz sadol za PC a zacal si robit daku stranku... najlepsie by bolo najprv spravit navrh v nejakom grafickom editore, ale proste potrebujem nejaky dobry napad, ktory zatial nemam

... no a moje vytvory... zatial ich moc neni, a tie co su, stoja za velky falus, takze sa ich nechystam publikovat

Speeder21 · Napísal **Speeder21**: 16.05.2008 14:55

no jo

tak prajem hodne napadu

.. poznam to .. jak keby clovek mal suchu studnu zadny napad ne a ne dostat

:D:D:D sak si stiahni nejake free templates a upravuj si ho podla seba

[Pascal] Sucet_NC - zdrojak - velmi surne

Podobné témy