language: Pascal (gpc) (gpc 20070904)
date: 106 days 21 hours ago
link:
visibility: public 
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

Program PruebaRegistro;
 
Var Op,X,Nombre,Carrera,Cuatrimestre,Colegiatura,Promedio,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');
                        Writeln ('Ingrese El Nombre De la Carrera');
                        Writeln ('Ingrese El Cuatrimestre');
                                Readln (Nombre);
                                Readln (Carrera);
                                Readln (Cuatrimestre);
                End;            
            End;
        If (Op=2) Then
        Begin
                Writeln ('Ingrese El Nombre Del Alumno');
                Writeln ('Ingrese Monto De Colegiatura');
                Writeln ('Ingrese Promedio');
                        Readln (Nombre);
                        Readln (Colegiatura);
                        Readln (Promedio);
                If (Promedio=10) Then
                        Begin
                                Writeln ('El Descuento Es De 20% ');
                        End;
                If (Promedio=8) And (Promedio=9) Then
                        Begin
                                Writeln('El Descuento Es De 10% ');
                        End;
                If (Promedio=7 ) And (Promedio=6) Then
                        Begin
                                Writeln('El Descuento Es De 5% ');
                        End;
                If (Promedio<=5) Then
                        Begin
                                Writeln ('No Tienes Descuento por ASNO!!!');
                        End;
        End;
  Readln;
End.
 
 
  • upload with new input
  • # 4:   hide   clone   input   106 days 21 hours ago

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

    2
Brenda
1000
9
    Opcion1= Ir a Registros
Opcion2= Ir a Pagos
Que Opcion Desea?
Ingrese El Nombre Del Alumno
Ingrese Monto De Colegiatura
Ingrese Promedio

    ./prog: sign or digit expected (error #552 at 804a324)
  • # 3:   show   clone   input   106 days 21 hours ago    Runtime error
  • # 2:   show   clone   input   106 days 21 hours ago    Runtime error
  • # 1:   show   clone   input   106 days 21 hours ago    Runtime error