Cantidad de -A- en un vector

[luisito2011]

Hola.. saludoj a todos..

bueno..aca tengo un problemita con un ejercicio...
//Mostrar la cantidad de -a- que hay en un vector
//no inporta si es mayuscula.. o minuscula..//

Sin usar esto

Código Delphi [-]
Cost con: set of char =['A','a'];

Mi docente me dijo que no puedo resolver ese ejercicio usando cadena

Aca esta Mi Unit

Código Delphi [-]
 
unit unit1;
interface
uses
sysutils;
const
max=1024;
type
            CVectorS=class
             S: array[1..max] of string ;
             N: integer;
             constructor crear ;
             procedure dimencionar(dim:integer);
             procedure poner(posi:integer ; que:string);
             procedure mostrar(var s:cvectorS);
            
             function elemento(posi:integer):string;
             function dimencion:integer;
             end;

implementation

constructor CVectorS.crear;
begin
   N:=0;
end;
 
function CVectorS.dimencion: integer;
begin
  dimencion:=N
end;
procedure CVectorS.dimencionar(dim: integer);
begin
  N:=dim;
end;
function CVectorS.elemento(posi: integer): string;
begin
  elemento:=s[posi];
end;
 
procedure CVectorS.mostrar(var s: cvectorS);
var
  I: Integer;
begin
  for I := 1 to s.Dimencion do
  begin
    write(s.elemento(i):8);
  end;
end;
 
procedure CVectorS.poner(posi: integer; que: string);
begin
  s[posi]:=que;
end;
end.

Gracias.

[ecfisa]

Hola.

Código Delphi [-]
var
  i, j, cc: Integer;
begin
  con:= 0;
  for i:= 1 to max do
   for j:= 1 to Length(S[i]) do
    if UpCase(S[i][j]) = 'A' then Inc(cc);
   // en la variable cc, tendrás la cantidad de apariciones de la letra 'A' o 'a'
   ...

Saludos.

[luisito2011]

..

Código Delphi [-]
var  i, j, cc: Integer;
begin  con:= 0;  
for i:= 1 to max do  
 for j:= 1 to Length(S[i]) do    
if UpCase(S[i][j]) = 'A' then Inc(cc); 
 // en la variable cc, tendrás la cantidad de apariciones de la letra 'A' o 'a'

...

En la parte de Rojo me salia error(Array Type required).. bueno no inportaya lo resolvi

Código Delphi [-]
var
  i,cc : Integer;
begin
  cc:= 0;
  for i:= 1 to Length(S) do
      if upCase(S[i]) = 'A' then
      cc:=cc+1;
     result:=cc;
end;

= gracias me ayudo a comprender mas, algunas preguntas que tengo

[luisito2011]

bueno evitandome abrir otro Tema

quisiera si alguien tiene ejercicios resueltos..
de vectores(cualquier ejercicio)... tengo examen dentro de 4 dias..
(eviarme un mensaje privado)
ah y de matrices = .. me serviria de mucho
para ir estudiando...

por que creo que despues de vectores..
biene matrices..

(no dejo mi correo por que la 1ra vez me dijiero que
solo trae spam)

gracias..

[LoPiTaL]

Para jugar con matrices trata de hacer un buscaminas. Es bastante sencillo para empezar con matrices y lo que es la lógica del juego es una sencilla suma de las casillas que rodean a la casilla en cuestión.
Además necesitarás un array de botones, para poder ir pulsándolos, usando sus tags para identificarlo en el evento OnClick, etc...

Un saludo,
LoPiTaL

[ecfisa]

Empezado por luisito2011

En la parte de Rojo me salia error(Array Type required)

UpCase(S[i][j])

Al ser 'S' un arreglo de string y el tipo string un arreglo de caracteres esa línea no genera error en Delphi o Turbo Pascal. Excepto que estés trabajando
en Lazarus, que desconozco si tiene un tratamiento diferente para ese caso.

Acabo de probarlo en consola y también funciona perfectamente:

Código Delphi [-]
program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
  max = 5;
var
 i, j, cc: Integer;
 S: array[1..max] of string;
begin
  S[1]:= 'La';
  S[2]:= 'CasA';
  S[3]:= 'de la';
  S[4]:= 'Arboleda';
  S[5]:= 'tupidA';
  cc:= 0;
  for i:= 1 to max do
   for j:= 1 to Length(S[i]) do
    if UpCase(S[i][j]) = 'A' then Inc(cc);
  writeln(cc);
  readln;
end.

Es realmente raro...

En cuanto a este código:

Código Delphi [-]
var
  i,cc : Integer;
begin
  cc:= 0;
  for i:= 1 to Length(S) do
      if upCase(S[i]) = 'A' then
      cc:=cc+1;
     result:=cc;
end;

No está contando la cantidad de apariciones de la letra 'A'/ 'a', esta comparando si cada cadena del arreglo 'S' es igual a la letra 'A'. Tenés que evaluar cada caracter de cada string del arreglo 'S'.

Un saludo.

[luisito2011]

bueno ami me salio.. como te mostra...
y si uso delphi2010...
de todoj modos gracias.

[luisito2011]

Empezado por LoPiTaL

Para jugar con matrices trata de hacer un buscaminas. Es bastante sencillo para empezar con matrices y lo que es la lógica del juego es una sencilla suma de las casillas que rodean a la casilla en cuestión.
Además necesitarás un array de botones, para poder ir pulsándolos, usando sus tags para identificarlo en el evento OnClick, etc...

Un saludo,
LoPiTaL

bueno la verdad es que no tengo idea de que es matrice...
y para hacer el juego buscaminas(el cual eh estado buscando alguna ayuda por internet y encontrel --codigo fuente-- el cual entendi del 100% solo 10% y talvez menos..) ... ej por eso que pedi... si alguien tuviera ejercicio.. de vectores.. o matrices.. para que yo este...puej mas preparado de lo que biene... en mi materia..(ah donde puedo hacer un tema sobre esto.. estaria bien aca???)..
bueno gracias

[ecfisa]

Empezado por luisito2011

bueno ami me salio.. como te mostra...
y si uso delphi2010...
de todoj modos gracias.

No tenés nada que agradecer, es sólo que me resulta extrañísimo... Ya que lo he probado también con Delphi XE en modo normal, en modo consola y funciona perfectamente.

¿ Será un bug de Delphi 2010 ?

Quizá algún compañero que use Delphi 2010 tenga la amabilidad de probar el código y me saque de dudas.

Saludos.

[LoPiTaL]

Empezado por luisito2011

donde puedo hacer un tema sobre esto..

Sí, está bien aquí. Pero te recomiendo que abras un nuevo hilo, ya que el título de éste ya no tiene nada que ver con lo de ejercicios de vectores y matrices.

Rápidamente: una matriz es un vector de vectores.

Se define como:
FMiMatriz: array of array of Integer;

Y así puedes hacer FMiMatriz[0][0], FMiMatriz[0][1], etc..., length(FMiMatriz), length(FMiMatriz[0]), etc...

Un saludo, y recuerda abrir otro hilo.
LoPiTaL