source code clone download copy to clipboard report bug / make suggestion

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
Program PruebaRegistro;
 
Var Op,X,Nombre,Carrera,Cuatrimestre,Colegiatura,Prom,Descuento,TotalColegiatura:Integer;
Begin
        Writeln ('Opcion1= Ir a Registros');
        Writeln ('Opcion2= Ir a Pagos');
        Writeln ('Que Opcion Desea?');
        Readln (Op);
    If (Op=1) Then
        Begin
                Writeln ('Cuantos Alumnos Desea Registrar?');
                Readln (X);
                For X:=1 To X Do
                Begin
                        Writeln ('Ingrese El Nombre a Registrar');
                                Readln (Nombre);
                        Writeln ('Ingrese El Nombre De la Carrera');
                                Readln (Carrera);
                        Writeln ('Ingrese El Cuatrimestre');
                                Readln (Cuatrimestre);
                End;            
        End;
        If (Op=2) Then
        Begin
                
                Writeln ('Ingrese El Nombre Del Alumno');
                Writeln ('Ingrese Monto De Colegiatura');
                Writeln ('Ingrese el Promedio');
                Readln(Nombre);
                Readln(Colegiatura);
                Readln(Prom);
                Writeln('El Promedio Es:',Prom);
        If(Prom=6)and(Prom=7)Then
                Begin
                        Writeln('Tienes 30 por ciento');
                End;
        If(Prom>=8)and(Prom<=9)then
                Begin
                        Writeln('Bien');
                End;
        If(Prom=10)then
                Begin
                        Writeln('Excelente');
                End;
        Readln;
        End;
  Readln;
End.
 
 

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 7:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.02s    memory: 4112 kB     signal: -1

  input:

  1
  3
  Brenda Azua
  Pedro Juarez
  Raul Pedres
  Saul Sanchez

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  Ingrese El Nombre a Registrar
  

  stderr:

  ./prog: sign or digit expected (error #552 at 804a384)
  

• # 6:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

  input:

  1
  3
  Brenda Azua
  Pedro Juarez
  Raul Pedres

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  Ingrese El Nombre a Registrar
  

  stderr:

  ./prog: sign or digit expected (error #552 at 804a384)
  

• # 5:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

  input:

  1
  3
  Brenda Azua
  Pedro Juarez

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  Ingrese El Nombre a Registrar
  

  stderr:

  ./prog: sign or digit expected (error #552 at 804a384)
  

• # 4:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

  input:

  1
  3
  Brenda Azua

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  Ingrese El Nombre a Registrar
  

  stderr:

  ./prog: sign or digit expected (error #552 at 804a384)
  

• # 3:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

  input:

  1
  3

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  Ingrese El Nombre a Registrar
  

  stderr:

  ./prog: attempt to read past end of Input (error #454 at 804a384)
  

• # 2:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.02s    memory: 4112 kB     signal: -1

  input:

  1

  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  Cuantos Alumnos Desea Registrar?
  

  stderr:

  ./prog: attempt to read past end of Input (error #454 at 804a384)
  

• # 1:   hide show   clone   input   100 days 0 hours ago    Runtime error

  result: Runtime error     time: 0.01s    memory: 4112 kB     signal: -1

  input: no
  output:

  Opcion1= Ir a Registros
  Opcion2= Ir a Pagos
  Que Opcion Desea?
  

  stderr:

  ./prog: attempt to read past end of Input (error #454 at 804a384)