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
program Project2;
 
Var Op,Lado,a,b,ResMul,ResArea,ResPer: Integer;
Begin
        Writeln ('Opcion 1= Area y Perimetro');
        Writeln( 'Opcion 2= Tablas de Multiplicar');
        Writeln ('Que Opcion Desea?');
        Readln (Op);
        If (Op=1) Then
                Begin
                        Writeln('Ingrese el valor del Lado');
                                Readln(Lado);
                        Writeln('Opcion 3 = Calcular Area');
                        Writeln('Opcion 4 = Calcular Perimetro');
                        Writeln('Que Opcion Desea?');
                        Readln (Op);
                If (Op=3) Then
                        Begin
                                ResPer:=Lado*Lado;
                                Writeln('El Area es ',ResArea);
                                Readln;
                        End;    
                If (Op=4) Then
                        Begin
                                ResArea:=Lado*4;
                                Writeln('El Perimetro es ',ResPer);
                                Readln;
                        End;
                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.
  
• # 5:   hide show   clone   input   112 days 13 hours ago    Runtime error

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

  input:

  1
  5
  4

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el valor del Lado
  Opcion 3 = Calcular Area
  Opcion 4 = Calcular Perimetro
  Que Opcion Desea?
  El Perimetro es 0
  

  stderr:

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

• # 4:   hide show   clone   input   112 days 13 hours ago    Runtime error

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

  input:

  1
  5
  3

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el valor del Lado
  Opcion 3 = Calcular Area
  Opcion 4 = Calcular Perimetro
  Que Opcion Desea?
  El Area es 0
  

  stderr:

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

• # 3:   hide show   clone   input   112 days 13 hours ago    Runtime error

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

  input:

  1
  5

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el valor del Lado
  Opcion 3 = Calcular Area
  Opcion 4 = Calcular Perimetro
  Que Opcion Desea?
  

  stderr:

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

• # 2:   hide show   clone   input   112 days 13 hours ago    Runtime error

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

  input:

  1

  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  Ingrese el valor del Lado
  

  stderr:

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

• # 1:   hide show   clone   input   112 days 13 hours ago    Runtime error

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

  input: no
  output:

  Opcion 1= Area y Perimetro
  Opcion 2= Tablas de Multiplicar
  Que Opcion Desea?
  

  stderr:

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