mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 18:49:24 +02:00
4995677b0f
-- Zusammenführen von r45995 in ».«: U rtl/linux/i386/sighnd.inc U rtl/linux/x86_64/sighnd.inc A tests/webtbs/tw37468.pp -- Aufzeichnung der Informationen für Zusammenführung von r45995 in ».«: U . -- Zusammenführen von r46207 in ».«: U rtl/linux/i386/sighndh.inc -- Aufzeichnung der Informationen für Zusammenführung von r46207 in ».«: G . -- Zusammenführen von r46208 in ».«: G rtl/linux/i386/sighnd.inc -- Aufzeichnung der Informationen für Zusammenführung von r46208 in ».«: G . -- Zusammenführen von r46210 in ».«: U rtl/aix/sighnd.inc U rtl/beos/i386/sighnd.inc U rtl/go32v2/dpmiexcp.pp U rtl/haiku/i386/sighnd.inc U rtl/haiku/x86_64/sighnd.inc U rtl/i8086/math.inc U rtl/inc/genmath.inc U rtl/linux/m68k/sighnd.inc U rtl/linux/powerpc/sighnd.inc U rtl/linux/powerpc64/sighnd.inc U rtl/linux/sparc/sighnd.inc U rtl/linux/sparc64/sighnd.inc G rtl/linux/x86_64/sighnd.inc U rtl/netbsd/arm/sighnd.inc U rtl/netbsd/m68k/sighnd.inc U rtl/netbsd/powerpc/sighnd.inc U rtl/netbsd/x86_64/sighnd.inc U rtl/openbsd/i386/sighnd.inc U rtl/openbsd/x86_64/sighnd.inc U rtl/os2/system.pas U rtl/solaris/i386/sighnd.inc U rtl/solaris/sparc/sighnd.inc U rtl/solaris/x86_64/sighnd.inc U rtl/win32/system.pp U rtl/win64/system.pp U tests/webtbs/tw37468.pp U rtl/wince/system.pp -- Aufzeichnung der Informationen für Zusammenführung von r46210 in ».«: G . -- Zusammenführen von r46992 in ».«: G rtl/linux/x86_64/sighnd.inc A tests/webtbs/tw37468b.pp -- Aufzeichnung der Informationen für Zusammenführung von r46992 in ».«: G . -- Zusammenführen von r47114 in ».«: G rtl/linux/x86_64/sighnd.inc G rtl/linux/i386/sighnd.inc A tests/webtbs/tw37926.pp -- Aufzeichnung der Informationen für Zusammenführung von r47114 in ».«: G . -- Zusammenführen von r47117 in ».«: G rtl/linux/i386/sighnd.inc G rtl/linux/x86_64/sighnd.inc G rtl/linux/m68k/sighnd.inc -- Aufzeichnung der Informationen für Zusammenführung von r47117 in ».«: G . git-svn-id: branches/fixes_3_2@47906 -
25 lines
292 B
ObjectPascal
25 lines
292 B
ObjectPascal
program Project1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
math, sysutils;
|
|
var
|
|
a,b: double;
|
|
begin
|
|
a := 0;
|
|
b := -3;
|
|
try
|
|
try
|
|
writeln(power(a,b));
|
|
except
|
|
on e: EZeroDivide do begin
|
|
writeln(Infinity);
|
|
end;
|
|
end;
|
|
except
|
|
halt(1);
|
|
end;
|
|
writeln('ok');
|
|
end.
|