pomoc s programovaním 2 Vyřešeno

[petod]

nechtěně jsem zamkl topic omlouvám se

//opraveno

//mmmartin

zde je násobicí kalkuačka je správně?

Kód: Vybrat vše

program kalkuacka;

var zadanecislo,i,vysledek:integer;

begin
  writeln('zadej cislo kterym se bude nasobit');
  readln(zadanecislo);
  for i:= 0 to zadanecislo do
   vysledek:= zadanecislo+zadanecislo;

    writeln('vysledek je',vysledek);
    readln;
end.

[Reklama]

[domkol]

ne , ale to si můžeš prece ověřit sám, když program spustíš. Máš tam vstup jen pro jedno číslo a tomu výsledku je třeba přiřazovat vždy nějaké číslo + vysledek, aby se ty hodnoty sčítaly.

--- Doplnění předchozího příspěvku (25 Lis 2013 21:14) ---

já jsem to řešil s podmínkovým cyklem:
a)
repeat
"příkazy"
until "podmínka";
b)
while "podmínka" do
begin
"příkazy"
end;

[faraon]

Měl bych tři otázky:
1. co se má "násobit", jaký očekáváš výsledek?
2. k čemu je tam cyklus for?
3. proč chceš vypočítávat vždy jen dvounásobek: vysledek:= zadanecislo+zadanecislo;?

Ale po malé úpravě by ten tvůj program dokázal počítat druhou mocninu zadaného čísla

[ElMudo]

Proč tam máš for?
To je skoro úplně stejné jako + akorát s x.. neledej v tom vědu

[petod]

faraon zadám čislo a to se vynásobí 2 až 10 . a ten cyklus for nevím dělal jsem to pozdě večer zkusím to předělat.

[faraon]

Tak zkus místo tohohle:

Kód: Vybrat vše

for i:=1 to 10 do
  příkaz;

udělat tohle:

Kód: Vybrat vše

for i:=1 to 10 do
  begin
    příkaz;
    příkaz
  end;

A místo sčítání by asi bylo lepší násobit tím i.

[petod]

kalkuačka která vynásobí 5 násobek zadaného cisla

Kód: Vybrat vše

program kalkuacka;

var cislo,nasobek,nasobek2,i:integer;
    nasobek3,nasobek4:integer;


begin
   writeln('zadej cislo');
   readln(cislo);
   nasobek:= cislo+cislo;
   nasobek2:= nasobek+cislo;
   nasobek3:= nasobek2+cislo;
   nasobek4:= nasobek3+cislo;
   i:= 0;

   while(i < 1) do
   begin
      writeln(nasobek);
      i:= i+1;
      writeln(nasobek2);
      i:= i+1;
     writeln(nasobek3);
     i:= i+1;
     writeln(nasobek4);
     i:= i+1;
    readln;
  end;
 end.

[ElMudo]

Lepší by bylo, kdyby jsi udělal kalkulačku, která ti to vynásobí podle tebe.
tohle je celkem blbost
Ale hezké :)

[CZechBoY]

k čemu tam vlastně přidáváš do i ty 4? udělej z toho for cyklus, ať je o přehlednější a hned se ví, co to dělá a jak dlouho...

[petod]

tak jsem to upravil

Kód: Vybrat vše

program kalkuacka;

var cislo,nasobek,nasobek2,i:integer;
    nasobek3,nasobek4:integer;


begin
   writeln('zadej cislo');
   readln(cislo);
   nasobek:= cislo+cislo;
   nasobek2:= nasobek+cislo;
   nasobek3:= nasobek2+cislo;
   nasobek4:= nasobek3+cislo;

   for i:= 0 to 4 do
   begin
       writeln(nasobek);
        writeln(nasobek2);
       writeln(nasobek3);
       writeln(nasobek4);
       readln;
  end;
end.

[CZechBoY]

k čemu tam je to readln?

[petod]

počítač počká až uživatel zadá enter