home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac
/
ledwca.zip
/
PASCAL.L
< prev
Wrap
Text File
|
1996-01-31
|
947b
|
76 lines
c:\windev\bin\QH
-rb
c:\windev\bin\win31wh.hlp
.
begin
1
* *
.f
for i:=a to b do
begin
sentencies;
end; {for}
.fd
for i:=a downto b do
begin
sentencies;
end; {for}
.i
if condicio
then
begin
sentencies;
end
else
begin
sentencies;
end;
{end if}
.is
if condicio
then sentencies
else sentencies;
{end if}
.r
repeat
sentencies;
until condicio
.w
while condicio do
begin
sentencies;
end; {while}
.p
procedure x(parametres);
begin
sentencies;
end;
.pr
program xxxxxxxxx(input,output); {}
.fu
function x(parametres):tipus;
begin
sentencies;
end;
.c
case x of
y: sentencia;
otherwise begin end;
end; {case}
.wi
with registre do
begin
sentencies;
end; {with}
.b
begin
sentencies;
end;
.co
{ }
..
<...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+.