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 | 994 (801) | Bizkit45 |
| » | Diagrami potekaOddelek: Šola | 2468 (2106) | fx |
| » | Algoritmi - diagrami potekaOddelek: Šola | 2477 (2178) | lebdim |
| » | Pomoč pri programčkihOddelek: Programiranje | 3166 (2816) | Mitja Bonča |
| » | Šah [Pacsal]Oddelek: Programiranje | 2340 (1943) | NeOman |