Matematické Fórum

↑ Tom959:

13 : 3


13 -3 = 10
10 -3 =7
7 - 3= 4
4 - 3 = 1 ( zvyšok), počet odrátaní je 4, to je podiel

program deleni_pomoci_odecitani;
var a,b,c:integer;
begin
readl(a,b);
c:=0
  while (a<b) do
  a div b;

end.


vůbec netuším jak dál a asik to mám zase všechno blbě.

Trošku vyšší level...s výpisem zbytku...

program deleni_pomoci_odecitani;
var a,b,c:integer; {a-delenec, b-delitel, c-podil}

begin
writeln('Zadej delence a delitele');{Samozdrejme nemusi byt, ale za tyden nebude vedet, co mas zadavat}
readl(a,b);
c:=0
while (a>b) do begin
                       a:=a-b;{jedna se o deleni odesitanim!, a kam to zapisuješ?}
                       c:=c+1;{nezapomen zapisovat podil}
               end;
writeln('Podil zadanych cisel je ',c, ' zb. ',a);
end.

Program se od původnímu programu se akorát liší v předposledním řádku... writeln('Podil zadanych cisel je ',c, ' zb. ',a);

↑ Tom959:
Upravíš podmínku pro while cyklus nebude a>b, ale bude a>=b
Musím se přiznat, že tato možnost mě nenapadla :)

↑ janca361:Ano přesně tak, jinak mě to hned vyhodí a já nevidím výsledek.

Ano máš pravdu. Je to tak mnohem lepší. Učitel nás to učil dělat takhle, ale je to hrozně náchylné. Někdy se to nemusí vůbec vypnout.

↑ janca361:Tak opět moc děkuju laskavý človíčku. :-))