HP SunSoft Pascal 4.0 Manual do Utilizador Página 212

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 333
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 211
188 Pascal 4.0 Users Guide
8
The FORTRAN subroutine,
StrVar.f
subroutine StrVar ( s10, s80, vls )
character s10*10, s80*80
structure /VarLenStr/
integer nbytes
character a*25
end structure
record /VarLenStr/ vls
character ax*10, sx*80, vx*5
data ax / "abcdefghij" /,
& sx / "abcdefghijklmnopqrstuvwxyz" /,
& vx / "oyvay" /
s10(1:10) = ax(1:10)
s80(1:80) = sx(1:80)
vls.a(1:5) = vx(1:5)
vls.nbytes = 5
return
end
The Pascal main program,
StrVarmain.p
program StrVarmain(output);
type
varstr = varying [25] of char;
var
a: alfa;
s: string;
v: varstr;
procedure strvar(var xa: alfa; var xs: string;
var xv: varstr); external fortran;
begin
strvar(a, s, v);
writeln(a);
writeln(s);
writeln(v);
writeln('length(v)= ', length(v): 2)
end. { StrVarmain }
Vista de página 211
1 2 ... 207 208 209 210 211 212 213 214 215 216 217 ... 332 333

Comentários a estes Manuais

Sem comentários