Stránka 1 z 3
pomoc s programovaním 2
Napsal: 25 lis 2013 19:24
od petod
nechtěně jsem zamkl topic omlouvám se
//opraveno
//mmmartinzde 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.
Re: pomoc s programovaním 2
Napsal: 25 lis 2013 21:11
od 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;
Re: pomoc s programovaním 2
Napsal: 26 lis 2013 17:49
od 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
Re: pomoc s programovaním 2
Napsal: 26 lis 2013 17:51
od ElMudo
Proč tam máš for?
To je skoro úplně stejné jako + akorát s x.. neledej v tom vědu
Re: pomoc s programovaním 2
Napsal: 26 lis 2013 18:11
od 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.
Re: pomoc s programovaním 2
Napsal: 27 lis 2013 00:28
od faraon
Tak zkus místo tohohle:
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.
Re: pomoc s programovaním 2
Napsal: 29 lis 2013 20:24
od 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.
Re: pomoc s programovaním 2
Napsal: 29 lis 2013 20:26
od ElMudo
Lepší by bylo, kdyby jsi udělal kalkulačku, která ti to vynásobí podle tebe.
tohle je celkem blbost
Ale hezké :)
Re: pomoc s programovaním 2
Napsal: 30 lis 2013 01:30
od 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...
Re: pomoc s programovaním 2
Napsal: 30 lis 2013 09:22
od 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.
Re: pomoc s programovaním 2
Napsal: 30 lis 2013 18:07
od CZechBoY
k čemu tam je to readln?
Re: pomoc s programovaním 2
Napsal: 30 lis 2013 18:29
od petod
počítač počká až uživatel zadá enter