Mandelbrot set: Difference between revisions
m
Fix pascal version to run in delphi
m (→{{header|Python}}: Shortened headline and enlarged resolution) |
MaiconSoft (talk | contribs) m (Fix pascal version to run in delphi) |
||
Line 6,216:
{{trans|C}}
<lang pascal>program mandelbrot;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
const
Line 6,227 ⟶ 6,231:
maxiteration = 200;
escaperadius = 2;
type
colortype = record
Line 6,234 ⟶ 6,238:
blue : byte;
end;
var
ix, iy : integer;
Line 6,248 ⟶ 6,252:
iteration : integer;
er2 : real = (escaperadius * escaperadius);
begin
{$I-}
Line 6,255 ⟶ 6,259:
if ioresult <> 0 then
begin
{$IFDEF FPC}
writeln(stderr, '
{$ELSE}
writeln('ERROR: Unable to open output file: ', filename);
{$ENDIF}
exit;
end;
writeln(outfile, 'P6');
writeln(outfile, ' ', comment);
Line 6,264 ⟶ 6,272:
writeln(outfile, ' ', iymax);
writeln(outfile, ' ', maxcolorcomponentvalue);
for iy := 1 to iymax do
begin
Line 6,300 ⟶ 6,308:
end;
end;
close(outfile);
end.</lang>
=={{header|Perl}}==
| |||