Pascal/Turbo Pascal - Ayuda con Programa que contenga procedure en Pascal

 
Vista:
sin imagen de perfil

Ayuda con Programa que contenga procedure en Pascal

Publicado por javier (3 intervenciones) el 03/06/2014 05:06:59
Buena tarde/noche estimados programadores, a ver si me pueden dar una mano con el siguiente ejercicio en Pascal.
Un programa que ingrese 10 Alumnos (nombre, cedula, nota1, nota2, nota3, nota4, y nota5) y que este solo muestre el resultado del 6to alumno (nombre, cedula, y sus 5 notas) mediante un Procedure.
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
sin imagen de perfil

Ayuda con Programa que contenga procedure en Pascal

Publicado por David (224 intervenciones) el 03/06/2014 12:58:22
Te propongo la siguietne solución:

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
Uses CRT;
 
Const
  NumAlu=10;
 
Type
  TipoAlumno=Record
     NOMBRE : string;
     CEDULA : string;
     NOTAS  : ARRAY [1..5] of Real;
  end;
  TablaAlumnos = Array [1..NumAlu] of TipoAlumno;
 
Var
  ALUMNO :TablaAlumnos;
  I,J : Integer;
 
Procedure LeerAlumno(var TAB_AL:TablaAlumnos; n : Integer);
 
 
Var
  I : Integer;
 
begin
  Writeln('NOMBRE: ',TAB_AL[N].NOMBRE);
  Writeln('CEDULA: ',TAB_AL[N].CEDULA);
  FOR I :=1 TO 5 DO
    Writeln('NOTA ',I,': ',TAB_AL[N].NOTAS[I]:2:2);
 
end;
 
Procedure PedirAlumno(var TAB_AL:TablaAlumnos);
 
 
begin
  fOR I := 1 to NUMALU DO
    BEGIN
      CLRSCR;
      gotoxy(22,10); Writeln('Nombre: ');
      gotoXY(31,10); Readln(TAB_AL[I].NOMBRE);
      gotoxy(22,12); Writeln('CEDULA: ');
      gotoXY(31,12); readln(TAB_AL[I].CEDULA);
      For j := 1 to 5 do
        begin
          GOTOXY(22,J+13); wRITELN('NOTA ',J,' : ');
          GOTOXY(31,J+13); READLN(TAB_AL[I].NOTAS[J]);
        END;
    END;
END;
 
BEGIN
  PedirAlumno(ALUMNO);
  CLRSCR;
  LeerAlumno(ALUMNO,6);
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

Ayuda con Programa que contenga procedure en Pascal

Publicado por javier (3 intervenciones) el 03/06/2014 15:47:59
gracias camarada, por la ayuda aportada!
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

Ayuda con Programa que contenga procedure en Pascal

Publicado por ramon (2158 intervenciones) el 03/06/2014 13:31:00
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
{Servirá esto}
 
program punto4;
 
uses crt;
var
	fras:string;
	i:integer;
 
function contador(fras:string):integer;
begin
	contador:= 0;
	for i:= 1 to Length(fras) do
	begin
		if ((fras[i] = ' ') OR (fras[i] = '.'))then
		begin
		contador := contador+1;
		end;
	end;
	writeln('la cantidad de palabras es: ',contador);
end;
 
 
BEGIN
	writeln('ingrese una frase: ');
	readln(fras);
	contador(fras);
	cantpal(fras);
 
END.
 
{como ven lo unico que me falta es mostrar una por 1 las palabras que
ingreso en la frase. la condicion es q no puedo usarlas poniendolas
de a 1 en variables separadas, tengo que usar un mecanismo parecido
al de la fun   cion}


----------------------------------------------------------------------------
Ayuda con Programa que contenga procedure en Pascal
----------------------------------------------------

Buena tarde/noche estimados programadores, a ver si me pueden dar
una mano con el siguiente ejercicio en Pascal.
Un programa que ingrese 10 Alumnos (nombre, cedula, nota1, nota2,
nota3, nota4, y nota5) y que este solo muestre el resultado del
6to alumno (nombre, cedula, y sus 5 notas) mediante un Procedure.

---------------------------------------------------------------------
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
program alumnos;
uses
   crt;
 const
    num = 10;
 type
    alum = record
         nombre : string[80];
         cedula : longint;
         not1, not2, not3, not4, not5 : real;
        end;
 
   var
     notas : array[1..num] of alum;
     cont : integer;
 
   procedure entra_alumnos;
   begin
      for cont := 1 to num do
       begin
           clrscr;
           writeln('   **** Entrada Alumnos ****');
           writeln;
           write('  Entre Nombre    : ');
           readln(notas[cont].nombre);
           write('  Entre N. Cedula : ');
           readln(notas[cont].cedula);
           write('  Entre Nota 1    : ');
           readln(notas[cont].not1);
           write('  Entre Nota 2    : ');
           readln(notas[cont].not2);
           write('  Entre Nota 3    : ');
           readln(notas[cont].not3);
           write('  Entre Nota 4    : ');
           readln(notas[cont].not4);
           write('  Entre Nota 5    : ');
           readln(notas[cont].not5);
       end;
   end;
 
  function nota_n_6 : boolean;
  begin
     if notas[6].nombre <> ' ' then
     begin
        nota_n_6 := true;
     end
  else
      nota_n_6 := false;
  end;
 
  procedure notas_alumno_6;
  begin
     writeln('  **** Presentacion Alumno N. 6 ****');
     writeln;
     writeln('  Nombre   = ',notas[6].nombre);
     writeln('  Cedula   = ',notas[6].cedula);
     writeln('  Nota N.1 = 'notas[6].not1:0:2);
     writeln('  Nota N.2 = 'notas[6].not2:0:2);
     writeln('  Nota N.3 = 'notas[6].not3:0:2);
     writeln('  Nota N.4 = 'notas[6].not4:0:2);
     writeln('  Nota N.5 = 'notas[6].not5:0:2);
    end;
 
   begin
      entra_alumnos;
       clrscr;
      if nota_n_6 = true then
       notas_alumno_6;
    else
       writeln('  Sin Datos El Alumno N. 6');
       writeln;
       writeln('  Pulse Una Tecla');
       reaskey;
   end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

Ayuda con Programa que contenga procedure en Pascal

Publicado por javier (3 intervenciones) el 03/06/2014 15:45:35
Gracias hermano, muy entendible!!!
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