EJERCICIOS(Relaciones y Funciones)

Ejercicios en Basicos en Delphi

//--------------TOMAR EN CUENTA QUE ESTOS SON PROCEDIMIENTOS--------
//---------------------PARA SER LLAMADOS----------------------------
//------------------------------------------------------------------
procedure TForm1.ContarEspacios(cadena: string);
var i,n,contador :integer;
    verificar : string;
begin
  i := 1;
  n :=Length(cadena);
  contador := 0;
  verificar :=' ';
while (i <= n) do begin
  if (Pos(cadena[i],verificar)>0) then begin
    contador := contador + 1;
  end;
  i := i+1;
end;
ShowMessage('La cantidad de espacios es:  '+IntToStr(contador));
end;
//------------------------------------------------------------------
//------------------------------------------------------------------
procedure TForm1.ConvertirABinario(n: integer);
var nuevo,digito,m :integer;
begin
nuevo := 0;
m := 1;
repeat
  digito := n mod 2;
  n := n div 2;
  nuevo := digito*m + nuevo;
  m := m*10;
until (n = 0);
  ShowMessage('El numero es '+IntToStr(nuevo));
end;
//------------------------------------------------------------------
//------------------------------------------------------------------
procedure TForm1.SerieA(n: integer);
var  contador,t  : integer;
begin
contador := 0;    //iniciamos contador
t :=  4;
repeat
  ShowMessage(IntToStr(t));
  if (t > 1) then
    t := t-1
  else
    t :=4;
  contador := contador + 1;
until (n = contador);
//------------------------------------------------------------------
//------------------------------------------------------------------
end;

EXAMEN(B-1621-004)