[pascal] program v procedure nejde?

BX · Príspevok od používateľa BX » 25 dec 2008, 17:14

Zdravim... Mam taky dotaz: Urobil som nieco taketo a ked som to chcel dat do jedneho programu aj s inymi vecami tak som to strcil do procedury. Problem je ze v procedure vypluva podivne hodnoty, zatial co normalne samotny ide

Nieze by mi to nejako extra vadilo, no neviem pochopit preco roby to co roby...
Viete mi to nejako vysvetlit?

Kód: Vybrať všetko

uses crt;

var a,b,i,x:integer;

begin
     clrscr;
     write('Zadaj cislo ktore chces nasobit: ');
     readln(a);
     write('Napis cislo ktorym chces nasobit: ');
     readln(b);
      for i:=1 to b do x:=(x+a);
     writeln(x);
     readln;
end.

to by si mal skôr ukázať ako to máš v tej procedúre. Zrejme sa ti tam prekrívajú nejaké premenné

BX · Príspevok od používateľa BX » 25 dec 2008, 17:28

No do procedury to dam takymto sposobom, nemyslim ze je na tom nieco zle (alebo je?)

Kód: Vybrať všetko

uses crt;

procedure nasobenie;
var a,b,i,x:integer;

begin
     clrscr;
     write('Zadaj cislo ktore chces nasobit: ');
     readln(a);
     write('Napis cislo ktorym chces nasobit: ');
     readln(b);
      for i:=1 to b do x:=(x+a);
     writeln(x);
     readln;
end;

begin
 nasobenie;
end.

premennú x nikde neinicializuješ. V závislosti od kompilátora môže nadobúdať nulu, alebo nejakú náhodnú hodnotu. Predtým neš s ním (nie s kompilátorom, ale s tým x-kom) začneš robiť by si mal x nastaviť na nulu

BX · Príspevok od používateľa BX » 25 dec 2008, 18:16

Super, zas som o nieco mudrejsi

Vdaka(zase

)

Masaker

za clrscr daj: x:=0; audiotrack neves kde zohnat nejaku online vyukovu prirucku k pascalu? .. bo mame neschopneho profesora a nejak nas neuci ako by mal ..tak sa chcem zdokonali na vlastnu päst..
dik

neutronmind

Masaker:
skus pohladat tu - http://www.hojko.com/chcete-si-precvici ... 61227.html
pripadne tu mas aj nejake knihy

http://www.martinus.sk/?uItem=32919
http://www.martinus.sk/?uItem=32918

BX: preco to neriesie jednoduchsie - x:=a*b; ?

Masaker

lebo x si musi zadefinovat ze na zaciatku procesu je 0. .aspon tak to chapem ja
a ten program je inac trosku zbytocne dodrbany.. ja by som to riesil inac...

neutronmind

No v tom mas pravdu, ale mohol by to spravit len takto

Kód: Vybrať všetko

     clrscr; 
     write('Zadaj cislo ktore chces nasobit: '); 
     readln(a); 
     write('Napis cislo ktorym chces nasobit: '); 
     readln(b); 
     x:=a*b;
     writeln(x); 
     readln;

//edit:
Hm okej, nic som nepovedal.

A ak má zadanie aby určil súčin dvoch čísel len pomocou sčítavania?

BX · Príspevok od používateľa BX » 26 dec 2008, 21:10

ano chcel som urobit nasobenie len pomocou scitania, podobne som urobil aj delenie a odmocnenie... len mocnenie mam trochu problem urobit

A Masaker ja viem ze si chcel pomoct ale to ze mam dat x:=0 som zistil uz z prispevku audiotrack-a

inak ja mam jednu knihu z ktorej som sa ucil ja, ale neviem ci ti bude dobra (teda ci chces pre pokrocileho, alebo chces "zacat")

Tom1622

Nechci Vám do toho kecat , ale není problém v proměnných ? Textové nelze počítat ?

BX · Príspevok od používateľa BX » 27 dec 2008, 12:41

Tom1622: Problem bol v inicializacii premennej x... z toho co si napisal som nepochopil co myslis, ake textove?

Kazdopadne to uz ide...