Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 7 ejercicio B1
program HelloWorld; {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CONST - Define las constantes para usar en tiempo de compilacion} const DimF = 14; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- TYPE - Define los tipos creados por el usuario para usar en tiempo de compilacion} type rangoVector = 0 .. DimF; Tvector = record vector : array [rangoVector] of integer; DimL : rangoVector; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos de ser necesarias} // var {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CARGAR VECTOR} procedure cargarVector(var v : Tvector); var i : rangoVector; begin randomize; for i := 1 to DimF do v.vector[i] := random(33); v.DimL := DimF; end; {----------------------------------------------------------------- BUSCAR VALOR} function buscarValor(v:Tvector; n : integer):rangoVector; var i : rangoVector; begin i:=1; while (v.vector[i]<>n)and(i < v.DimL)do i := i+1; if v.vector[i] = n then begin buscarValor := i; end else buscarValor := 0; end; {----------------------------------------------------------------- INFORMAR VALOR} procedure informarValor(v:Tvector); var i:rangoVector; n:integer; begin n := random(33); i:= buscarValor(v,n); if i = 0 then begin writeln('el valor ',n,' no fue encontrado'); end else writeln('el valor ',n,' se encuentra en la posicion ', i); end; {----------------------------------------------------------------- IMPRIMIR VECTOR} procedure imprimirVector(v : Tvector); var j : rangoVector; begin for j := 1 to v.DimL do write('-----'); writeln; for j := 1 to v.DimL-1 do write(' | ', v.vector[j]); writeln(' | ',v.vector[v.DimL],' |'); for j := 1 to v.DimL do write('-----'); writeln; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- PROGRAMA PRINCIPAL} var v : Tvector; begin cargarVector(v); imprimirVector(v); informarValor(v); end. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
BubbleSor (slimst)
Dd
dz_lesson_17
jhjj
mulitp
kk
444555666
practica 6 ejercicio 3
zad27-optimal
числа с несовпадающими цифрами