Pascal/Turbo Pascal - Ejercicios Urgentes

   
Vista:

Ejercicios Urgentes

Publicado por Gabriel (2 intervenciones) el 20/05/2014 05:08:41
Buenas tardes, les escribo para hacerles una consulta urgente y quizás la resolución de estos 3 ejercicios mandados en mi universidad acerca de Arreglos Unidimensionales. Los necesito con urgencia (no pido lo más rápido posible) pero si que me ayuden porque es por motivo de pasar una materia y tengo muchas dudas. Espero puedan ayudarme aunque sea con el pseudocódigo y con algún diagrama para tener idea de como hacerlo ya que la profesora no me ha dado suficiente clase y explicación y no tengo de dónde hacerlo.

Espero su ayuda entera y explicativa de todo, gracias!

http://prntscr.com/3kttsi

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ejercicios Urgentes

Publicado por ramon (2072 intervenciones) el 20/05/2014 12:21:55
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
{Mira esto te valdrá}
 
 program practica1;
 uses
    crt;
  const
     n = 10;
 
     losnum : array[1..n] of word = (
     4,2,6,7,4,8,3,89,23,100);
     losnum2 : array[1..n] of word = (
     1,4,7,16,5,100,49,1,81,100);
     losnum3 : array[1..n] of word = (
     1,4,7,16,5,100,49,1,81,100);
 
  var
    vectorv : array[1..n] of integer;
    nn : integer;
 
 
 
    procedure elementosilla;
    begin
       for nn := 2 to n - 1 do
        begin
           if (vectorv[nn] < vectorv[nn - 1]) and (vectorv[nn] < vectorv[nn + 1]) then
           write('  ',vectorv[nn]);
        end;
    end;
 
 
    procedure sumapares;
    var
      resu : integer;
    begin
        resu := 0;
        for nn := 1 to n do
        begin
           if vectorv[nn] mod 2 = 0  then
           resu := resu + vectorv[nn];
        end;
       writeln('  El Resultado De La Suma Es = ',resu);
 
    end;
 
    procedure ordenavector;
    var
      temp, v1, v2 : integer;
      begin
          for v1 := 1 to n do
            for v2 := n downto v1 do
            if vectorv[v1] > vectorv[v2] then
            begin
               temp := vectorv[v1];
               vectorv[v1] := vectorv[v2];
               vectorv[v2] := temp;
            end;
            for nn := 1 to n do
            write('  ',vectorv[nn]);
      end;
 
 
 
 
    begin
        clrscr;
        for nn := 1 to n do
        vectorv[nn] := losnum[nn];
        writeln('Los Elenentos Silla Del Vector Son');
        writeln;
        elementosilla;
        writeln;
        for nn := 1 to n do
        vectorv[nn] := losnum2[nn];
        sumapares;
        writeln;
        for nn := 1 to n do
        vectorv[nn] := losnum3[nn];
        writeln('  Los Numeros Ordenados son ');
        writeln;
        ordenavector;
        readkey;
    end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ejercicios Urgentes

Publicado por Gabriel (2 intervenciones) el 20/05/2014 21:17:18
Esto es nada más del primero? A ver si puedo guiarme a hacer los otros con este tipo ejercicio!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ejercicios Urgentes

Publicado por dario (20 intervenciones) el 26/05/2014 16:08:20
Para el primer ejercicio esta es la solucion, no es la unica.
Este es el codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
	num,i:integer;
	v:array[1..100] of integer;
begin
	clrscr;
	write('cuantos datos desea introducir: ');
	readln(num);
	for i:=1 to num do
		begin
			write('elemento ',i,': ');
			readln(v[i]);
		end;
	for i:=2 to num do
		begin
			if (v[i-1] > v[i]) and (v[i+1] > v[i]) then
				write(v[i],' ');
		end;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ejercicios Urgentes

Publicado por dario (20 intervenciones) el 26/05/2014 16:26:43
Para el ejercicio Nro 2, esta es la solucion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
var
	spar,simp,i,max:word;
	v:array[1..100] of word;
begin
	clrscr;
	write('cuantos elementos desea en el vector: ');
	readln(max);
	for i:=1 to max do
		begin
			write('elemento ',i,': ');
			readln(v[i]);
		end;
	spar:=0;
	simp:=0;
	for i:=1 to max do
		begin
			if i mod 2 = 0 then
				spar:=spar + v[i]
			else
				simp:=simp + v[i]
		end;
	writeln('pares = ',spar);
	writeln('impares = ',simp);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar