pomoc s programovaním 2 Vyřešeno

[domkol]

doporučuju tu kalkulačku naprogramovat takto:
program vybídne uživatele ať zadá číslo A a číslo B
pak vypočítá číslo C které se rovná A*B pouze za pomocí sčítací funkce a vypíše jej

takže budeš potřebovat jen 3 proměné.
řekněmě, že číslo A:=5 a číslo B:=3
do proměný C dosadíš A+A
od proměný B odečteš jedničku
tady následuje cyklus, který bude 1) sčítat C a A 2) odečítat od B jedničku
ten cyklus bude trvat tak dlouho dokud B nebude nula (pozor, když je B rovno nule, tak už se ten cyklus nesmí spustit)
ten cyklus se píše takto:

repeat
příkaz;
příkaz;
příkaz;
until "podmínka";

[Reklama]

[petod]

tady to je

Kód: Vybrat vše

program kalkuacka;

var  a,b,c:integer;

begin
  writeln('zadej prvni cislo');
  readln(a);
  writeln('zadej 1 cislo');
  readln(b);

  if b =0  then
  begin
    writeln('vysledek je 0');
    readln;
  end;

  repeat
    c:= a+a;
    b:= b-1;
  until(b = 0);

  writeln(c);
  readln;
end.

--- Doplnění předchozího příspěvku (30 Lis 2013 19:41) ---

jak tak koukám to programování mi moc nejde

[ElMudo]

Úprava je teda pěkně hnusná
Máš tam:
zadej první číslo: (dám 2)
pak tam je: zadej 2 číslo:(dám 2)
a dole se ukáže jen 8...
Ale jinak je to správně

[domkol]

já to nevydržim má to vypadat takto

Kód: Vybrat vše

program kalkuacka;

var  a,b,c:integer;

begin
  write('Zadej prvni cislo: ');
  readln(a);
  write('Zadej druhe cislo: ');
  readln(b);
  c:=a+a;
  b:=b-1;
  repeat
    c:=c+a;
    b:=b-1;
  until(b=1);

  writeln('Vysledek je ', c);
  readln;
end.

rozumíš tomu kódu?

[CZechBoY]

domkol: ten tvůj program jde snadno zacyklit...
zadej číslo b <= 2 a cyklí

[domkol]

to je fakt , v tom případě bych to rozvětvil na situaci, kdy b>2, b=2, b=1, b=0, b=-1, b=-2 a b<-2

[CZechBoY]

Co vůbec má dělat ten program?
Stačí tam přidat <= namísto =

[domkol]

1:0 pro tebe

[petod]

jo rozumím :)

[faraon]

Jen tak od boku, bez testování, takže neručím za funkčnost:

Kód: Vybrat vše

program nasobeni_cyklem;

var a,b,c,i:integer;

begin
write('Zadej prvni cislo: ');
readln(a);
write('Zadej druhe cislo: ');
readln(b);

c:=0;
if a>=0 then
   for i:=1 to a do
       c:=c+b
else
   for i:=-1 downto a do
       c:=c-b;

write('Soucin: ',c);
readln;
end.

[domkol]

když dosadím za a=-5 a b =5 tak to vypíše 25...
jinak proměná i se tuším deklarovat nemusí

[CZechBoY]

faraon jede ansi c, proto vše deklaruje na začátku