Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 7 ejercicio 9
program HelloWorld; {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CONST - Define las constantes para usar en tiempo de compilacion} const DimF = 80; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- TYPE - Define los tipos creados por el usuario para usar en tiempo de compilacion} type rangoNros = 1 .. DimF; VECTOR = record Tvector : array [rangoNros] of integer; DimL : rangoNros; end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos de ser necesarias} //var {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- CREAR VECTOR - Se encarga de crear y cargar el vector} procedure crearVector(var v : VECTOR); var i:rangoNros; num : integer; begin randomize; v.DimL:= 0; num:=random(30)+9984; while (num <> 9999)and(v.DimL <= DimF) do begin v.DimL := v.DimL + 1; v.Tvector[v.DimL]:= num; num:=random(30)+9984; end; end; {----------------------------------------------------------------- IMPRIMIR VECTOR - Se encarga de imprimir el vector completo } procedure imprimirVector(v:VECTOR); var i:rangoNros; begin write(' '); for i := 1 to v.DimL do write('--------'); writeln; for i := 1 to v.DimL do write(' | ',v.Tvector[i]); writeln(' |'); write(' '); for i := 1 to v.DimL do write('--------'); writeln;writeln; end; {----------------------------------------------------------------- IMPRIMIR IMPARES - Se encarga de imprimir todos los indices impares del vector} procedure imprimirImpares(v :VECTOR); var n:VECTOR; i,j : rangoNros; begin i:= 1; j:=1; while i <= v.DimL do begin n.Tvector[j]:= v.Tvector[i]; i:= i+2; j:=j+1; end; n.DimL := j-1; writeln;writeln; imprimirVector(n); writeln;writeln; end; {----------------------------------------------------------------- IMPRIMIR PAR - Se encarga de imprimir el primer elemento par del vector } procedure ImprimirPrimerPar (v:VECTOR); var par:boolean; i:rangoNros; begin par:=false; i := 1; while (i <= v.DimL)and not(par) do begin par := (v.Tvector[i] mod 2 = 0); if not par then i := i + 1; end; if par then begin writeln('el primer nro par es ', v.Tvector[i]); end else writeln('el primer nro par es 0'); end; {-----------------------------------------------------------------------------------------------------------------------} {-----------------------------------------------------------------------------------------------------------------------} {----------------------------------------------------------------- PROGRAMA PRINCIPAL} var v:VECTOR; begin crearVector(v); // crea y carga el vector writeln(' --------------vectorCompleto--------------');writeln;writeln; imprimirVector(v); // imprime todo lo que se encuentra en el vector writeln(' --------------vectorDeImpares--------------');writeln;writeln; imprimirImpares(v); // imprime los elementos que se encuentran en las posiciones impares writeln(' --------------PrimerPar--------------');writeln;writeln; imprimirPrimerPar(v); // imprime el primer elemento par del vector end. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
Calcular digitos de un numero (hasta 4 digitos)
practica 9 ejercicio 5
Урок 3 задачи 1, 2 и расширение задачи 2
nombre_completo
Вычисление площади фигуры
LewisCableCompanyPasProgramme
hello world
Opdracht_1
test12
Banyaknya huruf vokal