HP SunSoft Pascal 4.0 Instrukcja Użytkownika Pobierz pdf (Strona 272)

100

101

248 Pascal 4.0 User’s Guide

Example

The Pascal program,

config.p, which deﬁnes the

conditional variables one and

two

program config_example(output);

{ This program demonstrates the use of the

%config compiler directive. }

var

a: integer := maxint;

b: integer := minint;

%var one two

begin

writeln('Begin program.');

%if one %then

writeln('One is defined as ', a:2, '.');

%elseif two %then

writeln('Two is defined as ', b:2, '.');

%elseif %config %then

writeln('Nothing is defined.');

%endif

writeln('End program.')

end. { config_example }

The output when you compile

config.p without the

-config option

hostname% pc -xl config.p

hostname% a.out

Begin program.

End program.

The output when you deﬁne the

variable one

hostname% pc -xl -config one config.p

hostname% a.out

Begin program.

One is defined as 32767.

End program.

1 2 ... 267 268 269 270 271 272 273 274 275 276 277 ... 332 333

Komentarze do niniejszej Instrukcji

Brak uwag

HP SunSoft Pascal 4.0 Instrukcja Użytkownika Strona 272

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Oprogramowanie HP SunSoft Pascal 4.0