Nasobeni bez pouziti * – Pascal – Fórum – Programujte.com

prosim o radu.. vynasobeni A*B bez pouziti "*".. pamatuju si utrzky, bylo to nejak takhle: (A,B:boolean):boolean a pak "if A then B"
za jakoukoliv radu diky...

Co tak vytvorit dalsiu premennu (na zaciatku 0 samozrejme) a pripocitat k nej B-krat hodnotu A?

dokazal bys to napsat v jazyce pascal??

jasné, ale myslím že aj ty ak sa posnažíš

Tohle třeba pomůže jen to přepsat, ale bez práce to nebude, nepočítá to záporná

int nasob(int x, int y) {

 if (x > 0) return nasob(x-1,y)+y;

 return 0;

}

neco takovehoto... ale potreboval bych mensi kod... cca 6 rakdu


var
a,b,vysledek:boolean;
stavA,stavB:byte;
begin
a:=false;
b:=false;
vysledek:=false;
writeln("zadej hodnotu A a B,pro true 1,pro false neco jineho");
readln(stavA,stavB);
if stavA=1 then a:=true;
if stavB=1 then b:=true;
if (a and b)=true then vysledek:=true;
writeln(vysledek);
readln;
end.

To sniff : a kde je tam to tvoje nasobenie?

To sniff : Dobré násobení... s tímhle se zapíšeš do historie Informatiky zlatým písmem :smile6: :smile6:

jako jestli potrebuje pro boolean tak staci AND

To sputnikone : to myslis ironicky???

Panove, sem znacne zmaten- co se vlastne nasobi- booleany, cela cisla lidsky,cela cisla bitove, jakozerealna, hrusky, nebo jeste neco uplne jineho?

To sniff : Co vlastně chceš, logické nebo aritmetické násobeni?

uz to mam...
V= LOGSOUC (A,B);
function LOGSOUC (OB1,OB2:boolean):boolean;
begin LOGSOUC :=false
if OB1 then
if OB2 then LOGSOUC:=true
end;

A to neslo napsat V:=A AND B; ? je to presne 11 znaku a funguje to stejne

To Krychlik : vlakno bylo zalozeno "bez pouziti nasobeni" tim bylo mysleno bez "*" a "AND"

To sniff : název je zavádějící

vynasobeni A*B bez pouziti "*"

Taky ctu "vynasobeni A*B bez pouziti "*" " takze chyba je na vysilaci. Plus v dalsim prispevku pises "if (a and b)=true then vysledek:=true; " a tam je pouzite and, z toho se da usuzovat, ze and je povolene.

To Krychlik : omlouvam se vsem co jsem zmatl... ale muj druhy prizpevek
(V= LOGSOUC (A,B);
function LOGSOUC (OB1,OB2:boolean):boolean;
begin LOGSOUC :=false
if OB1 then
if OB2 then LOGSOUC:=true
end; ) je tak jak napsal ucitel, je trochu fanatik.. v pascalu moc neumim, jen uplne zaklady...sry

To sniff : ucitel má asi ve zvyku dělat věci složitější, i když to jde jednoduše xD

To Pedro : Psát ve funkci další příkazy po přiřazení návratové hodnoty jde 100% vždycky. Určeno je to přímo jazykem, ne překladačem.

da se to udelat i jinak..c1 se nasobi cislem c2... for i:=1 to c1 do vysledek:=vysledek+c2
"*" tam neni tak by to melo byt v poho a je to jednoduche

To Buckyx : Kromě toho, že odpovídáš na půl roku starý dotaz, tak tohle řešení už jednak bylo zmíněno a druhak to není to požadované.