Forum > Spanish

Un bucle...

(1/1)

mav:
Hola, buenas tardes.
¿Como diseñariamos un bucle con estas características?.
    Tenemos una cadena de longitud n, hacemos un xor del elemento 1 con el elemento 2, el resultado xor elemento 3, resultado xor elemento4...así hasta el
último elemento...¡¡Qué trabajo me cuestan los bucles >:( >!!.  :) :)
          for i := 1 to length(cadena) do
         begin
         ??????????????????
         end;

mav:
¿Algún buen libro sobre arrays, matrices, bucles...no los principios-inicios, algo un poco mas complicado, no importa si es en inglés?
Give me titles. Por supuesto si es Pascal la lengua ..mejor!!!
Saludos.
 

Seenkao:
n = length(string)

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---...var  mas: array[0..n] of integer;  i, z: integer;begin  i := 0;  while i < n do  begin    z := mas[i] xor mas[i + 1];  // hacer los datos entrantes en consecuencia    inc(i);  end;end;
это не зависит от ЯП.

traductor de Google:
no depende del lenguaje de programación.

Edson:

--- Quote from: mav on June 13, 2021, 08:15:34 pm ---Hola, buenas tardes.
¿Como diseñariamos un bucle con estas características?.
    Tenemos una cadena de longitud n, hacemos un xor del elemento 1 con el elemento 2, el resultado xor elemento 3, resultado xor elemento4...así hasta el
último elemento...¡¡Qué trabajo me cuestan los bucles >:( >!!.  :) :)
          for i := 1 to length(cadena) do
         begin
         ??????????????????
         end;

--- End quote ---

Hay muchas formas de hacerlo, esta es una:


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---var  cadena:string = 'Hola';  i, resultado: Integer;begin  resultado := ord(cadena[1]);  //Cargamos primer caracter  for i := 2 to length(cadena) do begin //A prtir del segundo caracter    resultado := resultado xor ord(cadena[i]);  end;  writeln(resultado);  Readln();end. 

mav:
 :) :)Muchas gracias Edson, funciona sin problemas


--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TForm1.BitBtn1Click(Sender: TObject);var  nombre       : string;  i, resultado : integer; begin  nombre:= Edit1.Text;  resultado := Ord(nombre[1]);    for i:= 2 to length(nombre) do    begin      resultado := resultado xor Ord(nombre[i]);    end;      Edit2.Text := IntToStr(resultado);     Edit3.Text := IntToStr(resultado-$1B);end;                                            
 :) :)Saludos

Navigation

[0] Message Index