Skip to main content
Revertido a la revisión 2
Origen Enlace
jachguate
  • 32.1k
  • 8
  • 41
  • 69

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.
añadida la respuesta de ID 561699 como contenido suplementario
Origen Enlace
Jorgesys
  • 111.1k
  • 14
  • 55
  • 134

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.
copiar código de la no-respuesta a la pregunta y cambio de título.
Origen Enlace
jachguate
  • 32.1k
  • 8
  • 41
  • 69

Pascal - debo ¿cómo insertar 3 vectores en una matriz?

Necesito ingresar 3 vectores en una matriz. Me quede en la function "cargar" para insertar los vectores. Pero no se de que manera hacerlo.

A continuación mi código:

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.

Pascal - debo insertar 3 vectores en una matriz

Necesito ingresar 3 vectores en una matriz. Me quede en la function "cargar" para insertar los vectores. Pero no se de que manera hacerlo

¿cómo insertar 3 vectores en una matriz?

Necesito ingresar 3 vectores en una matriz. Me quede en la function "cargar" para insertar los vectores. Pero no se de que manera hacerlo.

A continuación mi código:

program ejer51;
uses crt;

TYPE
    vtexto = array [1..5] of string;
    ventero = array [1..5] of integer;
    tmatriz = array [1..3,1..5] of string;

VAR
    vApeNom:vtexto;
    vEdad:ventero;
    vAnioCarrera:ventero;
    mAlumnos:tmatriz;

procedure nomApe (var a:vtexto);
var i:integer;
    begin
        for i:=1 to 5 do
            begin
                write('Ingrese nombre y apellido del alumno ',i,': '); readln(a[i]); 
                writeln;
            end;
    end;

procedure edad(var b:ventero);
var i:integer;
    
    begin
        for i:= 1 to 5 do
            begin
                repeat
                    write('Ingrese la edad del alumno numero ',i,': '); readln(b[i]);
                    writeln;
                        if (b[i] < 18) or (b[i] > 80) then
                            writeln('**ERROR** Solo se permiten ingresar edades de mayores de 18 y menores de 80 anios');
                until (b[i] >= 18) and (b[i] <= 80);
            end;
    end;

procedure comienzo(var c:ventero);
var i:integer;
    begin
        for i:= 1 to 5 do
            begin
                repeat
                     write('Ingrese el anio en el que comenzo la carrera, alumno ',i,': '); readln(c[i]);
                        if (c[i] < 2000) or (c[i] > 2018) then
                            writeln('**ERROR** Solo se permiten el ingreso mayores al anio 2000 y menores al 2018');
                until (c[i] >= 2000) and (c[i] <=2018);
            end;
    end;

function cargar(var d:tmatriz;var vApeNom; var vEdad; var vAnioCarrera):string;
var i,j:integer;
    begin
        for i:=1 to 3 do
            for j:=1 to 5 do
                begin
                    d[i,j]:=vApeNom+vEdad+vAnioCarrera;
                end;
        
    end;

begin
    nomApe(vApeNom);
    edad(vEdad);
    comienzo(vAnioCarrera);
    

end.
Origen Enlace
Loading