HP SunSoft Pascal 4.0 Uživatelský manuál Strana 218

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 333
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 217
194 Pascal 4.0 Users Guide
8
Records and Structures
Records and structures pass as follows:
The FORTRAN subroutine,
StruChr.f
subroutine StruChr ( vls )
structure /VarLenStr/
integer nbytes
character a*25
end structure
record /VarLenStr/ vls
vls.a(1:5) = 'oyvay'
vls.nbytes = 5
return
end
The Pascal main program,
StruChrmain.p
program StruChrmain;
type
lenstr =
record
nbytes: integer;
chrstr: array [0..25] of char
end;
var
v: lenstr;
procedure struchr(var v: lenstr);
external fortran;
begin
struchr(v);
writeln('v.chrstr = "', v.chrstr, '"');
writeln('v.nbytes =', v.nbytes: 2)
end. { StruChrmain }
Zobrazit stránku 217
1 2 ... 213 214 215 216 217 218 219 220 221 222 223 ... 332 333

Komentáře k této Příručce

Žádné komentáře