language: Pascal (fpc) (fpc 2.2.0)
date: 103 days 20 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
PROGRAM Figury; {IF}
 
USES Crt;
 
VAR
l, r, pole : REAL;
BEGIN {main - Figury}
ClrScr;
writeln('                PROGRAM POZWALA NA OBLICZENIE:               ');
Writeln('                      Pole stozka                         ');
BEGIN
BEGIN
Writeln('Obliczanie Pola stozka');
Writeln('Podaj promien podstawy');
Readln(r);
IF r < 0 then  HALT
else
Writeln('Podaj tworzaca stozka');
Readln(l);
IF l < 0 
then HALT
else
pole:=2*Pi*r+Pi*r*l;
Writeln('Pole stozka o promieniu podstawy');
Writeln('r=', r:6:3);
Writeln('wynosi ', pole:6:3);
END;
END;
end.
 
 
  • upload with new input
  • result: Runtime error     time: 0.01s    memory: 296 kB     signal: -1

                    PROGRAM POZWALA NA OBLICZENIE:               
                          Pole stozka                         
    Obliczanie Pola stozka
    Podaj promien podstawy
    Runtime error 106 at $0804817D
      $0804817D
      $08067631