Forum » Programiranje » lahka-a ne vem kje težava
lahka-a ne vem kje težava
tadej123321 ::
Želim narediti program, ki mi pove, koliko samoglasnikov je v nekem stavku. Saj mi je uspelo nekaj narediti, a nekje se zatakne, tako da bi bil vesel pomoči (spisano je v TPascalu 7.0):
program samoglasniki;
uses crt;
type samoglasnik=(a,e,i,o,u);
var stavek:string[255];
f:samoglasnik;
j,stevec:integer;
begin
writeln('Napisi stavek: ');
readln(stavek);
stevec:=0;
for f:=a to u do
begin
for j:=1 to length(stavek) do
if f=stavek[j] then stevec:=stevec+1;
end;
writeln(stevec);
readln;
end. 
luli ::
pascal sem že malce pozabil, ampak če hočeš nalogo rešiti z množicami moraš deklarirati na naslednji način
type
fruit = (orange, lemon, lime, apple, banana);
var
citrus: set of fruit := [orange, lemon, lime];
Pri primerjavi znaka z množico mislim, da moreš uporabiti in
if element in množica....
type
fruit = (orange, lemon, lime, apple, banana);
var
citrus: set of fruit := [orange, lemon, lime];
Pri primerjavi znaka z množico mislim, da moreš uporabiti in
if element in množica....
tadej123321 ::
Ima potem kdo kakšno drugo idejo?
P.S: S case stavki mi jo je uspelo narediti, a bi rad ugotovil še kakšen drug način.
P.S: S case stavki mi jo je uspelo narediti, a bi rad ugotovil še kakšen drug način.
Genetic ::
Uporabis samo notranjo zanko, brez enuma:
for j:=1 to length(stavek) do
if 'a'=stavek[j] or 'e'=stavek[j] or 'i'=stavek[j] or 'o'=stavek[j] or 'u'=stavek[j] then stevec:=stevec+1;
ali pa
for j:=1 to length(stavek) do
if Pos(stavek[j],'aeiou')<>0 then stevec:=stevec+1;
for j:=1 to length(stavek) do
if 'a'=stavek[j] or 'e'=stavek[j] or 'i'=stavek[j] or 'o'=stavek[j] or 'u'=stavek[j] then stevec:=stevec+1;
ali pa
for j:=1 to length(stavek) do
if Pos(stavek[j],'aeiou')<>0 then stevec:=stevec+1;
Vredno ogleda ...
| Tema | Ogledi | Zadnje sporočilo | |
|---|---|---|---|
| Tema | Ogledi | Zadnje sporočilo | |
| » | Java[naloga]Oddelek: Šola | 891 (698) | Bizkit45 |
| » | Diagrami potekaOddelek: Šola | 2200 (1838) | fx |
| » | Algoritmi - diagrami potekaOddelek: Šola | 2226 (1927) | lebdim |
| » | Pomoč pri programčkihOddelek: Programiranje | 2947 (2597) | Mitja Bonča |
| » | Šah [Pacsal]Oddelek: Programiranje | 2236 (1839) | NeOman |