Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 7 ejercicio B4
program HelloWorld; {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CONST - Define las constantes para usar en tiempo de compilacion} const DimF = 26; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- TYPE - Define los tipos creados por el usuario para usar en tiempo de compilacion} type indice = 1 .. DimF; Tvector = record vector : array [indice] of integer; DimL : indice; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos de ser necesarias} //var {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- BUSCAR VALOR} function buscarValor(v:Tvector;n:integer;pri,ult:indice):boolean; var mid : indice; begin mid := (pri + ult) div 2; if (v.vector[pri] > n ) or (v.vector[ult] < n) or ((v.vector[mid]>n)and(v.vector[mid-1] < n))or((v.vector[mid+1] > n)and(v.vector[mid] < n)) then begin buscarValor := false; end else if (v.vector[mid] > n) then begin buscarValor:= buscarValor(v,n,pri,mid-1); end else if (v.vector[mid]< n) then begin buscarValor:= buscarValor(v,n,mid+1,ult); end else buscarValor:= true; end; {----------------------------------------------------------------- INSERTAR ORDENADO} procedure insertarOrdenado(var v :Tvector; n : integer); var j,i : indice; begin if v.DimL < DimF then begin if (v.vector[v.DimL] < n )or(v.DimL = 0) then begin //FINAL - VACIO v.vector[v.DimL+1]:= n; end else // MEDIO - PRINCIPIO begin i := 1; while (v.vector[i] < n) and (i < v.DimL)do i:= i+1; for j := v.DimL+1 downto i do v.vector[j]:=v.vector[j-1]; v.vector[i]:= n; end; v.DimL := v.DimL + 1; end else begin writeln('el vector está lleno no se pueden ingresar mas nombres'); end; end; {----------------------------------------------------------------- CARGAR VECTOR} procedure cargarVector(var v : Tvector); var i : indice; diml : indice; begin randomize; v.DimL := 0; diml := random(DimF)+1; for i := 1 to diml do insertarOrdenado(v,random(100)); // al insertar ordenado se le envia el vector y un valor al azar end; {----------------------------------------------------------------- IMPRIMIR DECENA} procedure imprimirDecena(n:integer); begin if n > 9 then begin write(' | ',n); end else write(' | 0',n); end; {----------------------------------------------------------------- IMPRIMIR DECENA 2} procedure imprimirDecena2(n:integer); begin if n > 9 then begin writeln(' | ',n,' |'); end else writeln(' | 0',n,' |'); end; {----------------------------------------------------------------- IMPRIMIR DECENA 3} procedure imprimirDecena3(n:indice); begin if n > 9 then begin write(' ',n); end else write(' 0',n); end; {----------------------------------------------------------------- IMPRIMIR VECTOR} procedure imprimirVector(v : Tvector); var j : indice; begin for j := 1 to v.DimL do write('-----'); writeln; for j := 1 to v.DimL-1 do imprimirDecena(v.vector[j]); imprimirDecena2(v.vector[v.DimL]); for j := 1 to v.DimL do write('-----'); writeln; for j := 1 to v.DimL do imprimirDecena3(j); writeln; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- PROGRAMA PRINCIPAL} var v:Tvector; n:integer; begin cargarVector(v); imprimirVector(v); n := random(100); writeln('el valor ',n,' se encuentra en el vector ',buscarValor(v,n,1,v.DimL)); end. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
virtuelna ravan-preklapanje krugova
вариант 6, номер 1
calcular_sumatoria_N
RENAN COSTA CARLOS DA CUNHA 600623343
Tri 1.0
practica 2 ejercicio 6
AR sredine
tablas
Удвоенное число с одинаковыми цифрами
Enigma