| nicod |  |
|
2007-09-11 22:00 - Respuestas: 2 - Tema nº: 2468069
Características: Windows XP Profesional, atlon md 2 gb de memoria 164 hb tamaño disco.
Cargar un vector de 10 elementos reales y reemplazar los elementos
menores que cero (0) por el número 99.
nose como resolver este problema en pascal esa es mi consulta
| |
|
|
| Hurricane |  |
|
Re: Difultad de vectores - 2007-09-24 18:56 - Respuesta 2
Aquí va el código:
Program Vectores;
Type
TVector = Array[1..10] of Real;
Var
Vector : TVector;
Procedure LeeVector(Var V :TVector);
Var
I :Integer;
Begin
WriteLn('INGRESO DEL VECTOR');
WriteLn('');
WriteLn;
For I := 1 to 10 do
Begin
Write('Ingrese elemento [', I:2, ']: ');
ReadLn(V[I]);
End; {For I}
End; {LeeVector}
Procedure VisualizaVector(V :TVector);
Var
I :Integer;
Begin
WriteLn('VISUALIZACIÓN DEL VECTOR');
WriteLn('');
WriteLn;
For I := 1 to 10 do
WritelN('[', I:2, ']: ', V[I]);
End; {VisualizaVector}
Procedure ActualizaVector(Var V :TVector);
Var
I :Integer;
Begin
For I := 1 to 10 do
If (V[I] | |
|
|
| Hurricane | |
|
Re: Difultad de vectores - 2007-09-24 18:58 - Respuesta 3
Fé de Errata:
- Después de Program Vectores; incluye Uses Crt;.
Saluydos | |
|
|
|
