| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
Irragal
Administrator
Data inscrierii: 15/Mar/2008
Mesaje: 13
|
 Trimis: 15.03.2008 21:45 Titlul subiectului: Problema 11 |
|
|
| Citat: |
| Scrieþi un program care citeºte de la tastaturã un ºir de caractere format din cel mult 50 de litere din alfabetul englez ºi care afiºeazã mesajul “DA” dacã ºirul este format din numãr egal de vocale ºi consoane, respective mesajul “NU” în caz contrar.De exemplu, dacã fiºierul conþine ºirul: aaabbbccee , atunci pe ecran va fi afiºat mesajul “DA”. |
| Cod: |
program prob11;
type lit = set of char;
var s:string[50];
i, v, c:integer;
voc:lit;
begin
writeln('Dati un string:'); readln(s);
v:=0; c:=0;
voc := ['a','e','i','o','u'];
for i := 1 to length(s) do
if s[i] in voc then v:=v+1
else c:=c+1;
if c=v then writeln('DA')
else writeln('NU')
end. |
 |
|
| Sus » |
|
 |
oClasaAnonima
Megaelev
Data inscrierii: 11/Apr/2008
Mesaje: 29
|
| Trimis: 13.04.2008 13:58 Titlul subiectului: |
|
|
| Cod: |
{11.scrieti un program care citeste de la tastatura un sir de caractere format
din cel mult 50 de litere din alfabetul englez si care afiseaza mesajul "da"
daca sirul ste format din numar egal de vocale si consoane, respectiv mesajul
"nu" in caz contrar}
program ex11;
var s:string[50];
a:set of char;
i,n1,n2:integer;
begin
write('s: '); readln(s);
a:=['a','e','i','o','u'];
n1:=0; n2:=0;
for i:=1 to length(s) do if s[i] in a then n1:=n1+1
else n2:=n2+1;
if n1=n2 then write('da')
else write('nu');
end.
|
|
|
| Sus » |
|
|
misanchik
Superelev
Data inscrierii: 22/Iul/2012
Mesaje: 5
Localitate: Bulgaria
|
| Trimis: 07.08.2012 19:39 Titlul subiectului: |
|
|
| Information is impressive! But I will say so in my view is slightly different, but what I will not tell you))) |
|
| Sus » |
|
|
misanchik
Superelev
Data inscrierii: 22/Iul/2012
Mesaje: 5
Localitate: Bulgaria
|
| Trimis: 09.08.2012 06:55 Titlul subiectului: |
|
|
| I am very happy because find this info thank you very much people!!!) |
|
| Sus » |
|
|
|
