Forum » Programiranje » [Naloga][Pascal]
[Naloga][Pascal]
bogii ::
Zdravo!
Potrebujem pomoc pri izdelavi programa v Turbo Pascalu 7.0. Sem namrec cisti zacetnik in me zanima kako naj napisem program, ki doloci ceno telegrama. Napisan pa naj bo po naslednjih kriterijih: Ce vsebuje telegram 10 besed ali manj, je cena telegrama 6€. Ce pa vsebuje telegram vec kot 10 besed, pa je cena 60 centov na besedo.
Najbolj me namrec zanima, kaj naj napisem, da bo program prepoznal in prestel besede (besedilo telegrama vnese uporabnik).
Hvala za pomoc!
LP
Potrebujem pomoc pri izdelavi programa v Turbo Pascalu 7.0. Sem namrec cisti zacetnik in me zanima kako naj napisem program, ki doloci ceno telegrama. Napisan pa naj bo po naslednjih kriterijih: Ce vsebuje telegram 10 besed ali manj, je cena telegrama 6€. Ce pa vsebuje telegram vec kot 10 besed, pa je cena 60 centov na besedo.
Najbolj me namrec zanima, kaj naj napisem, da bo program prepoznal in prestel besede (besedilo telegrama vnese uporabnik).
Hvala za pomoc!
LP
- spremenil: bogii ()
luli ::
Var
besedilo:String;
x,st_besed : Byte {Lahko tudi word oz. integer}
Begin
besedilo:='Moralo bi delovati!';
st_besed:=1;
for x:=1 to Length(besedilo) do
if besedilo[x]=' ' Then Inc(st_besed);
End.
besedilo:String;
x,st_besed : Byte {Lahko tudi word oz. integer}
Begin
besedilo:='Moralo bi delovati!';
st_besed:=1;
for x:=1 to Length(besedilo) do
if besedilo[x]=' ' Then Inc(st_besed);
End.
bogii ::
Zdravo!
Najprej hvala za pomoc pri nalogi.
Sedaj imam pa dve vprasanji:
Zakaj program noce pisati razlicnih znakov, kot so naprimer [ ] { }. A moram kaksne nastavitve spremenit?
Zakaj noce zagnati programa (Ctrl+F9)?(ko preverim, ce je zapis pravilen pa javi, da je pravilen.)
Hvala za odgovore.
lp
Najprej hvala za pomoc pri nalogi.
Sedaj imam pa dve vprasanji:
Zakaj program noce pisati razlicnih znakov, kot so naprimer [ ] { }. A moram kaksne nastavitve spremenit?
Zakaj noce zagnati programa (Ctrl+F9)?(ko preverim, ce je zapis pravilen pa javi, da je pravilen.)
Hvala za odgovore.
lp
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | WhatsApp bo povsem brezplačenOddelek: Novice / Ostale najave | 13129 (11114) | smihael |
| » | WhatsApp umazano blokira konkurentaOddelek: Novice / Rezultati | 7731 (6229) | bluefish |
| » | PROSIM POMOČ! (programiranjeOddelek: Pomoč in nasveti | 969 (684) | comgen |
| » | Umetnost - slog in stilOddelek: Sedem umetnosti | 4451 (4315) | Izi |
| » | Kako poslati šopek?Oddelek: Loža | 6564 (6564) | MihaFirst |