HP SunSoft Pascal 4.0 Manuale Utente Pagina 216

  • Scaricare
  • Aggiungi ai miei manuali
  • Stampa
  • Pagina
    / 333
  • Indice
  • SEGNALIBRI
  • Valutato. / 5. Basato su recensioni clienti
Vedere la pagina 215
192 Pascal 4.0 Users Guide
8
The univ Arrays
The univ arrays that are in, out, in out, or var parameters pass by
reference.
The FORTRAN subroutine,
UniVec.f
subroutine UniVec ( V, Last, Sum )
integer V(0:2), Last, Sum, i
Sum = 0
do i = 0, Last
Sum = Sum + V(i)
end do
return
end
The Pascal main program,
UniVecmain.p
program UniVec;
type
VecTyp = array [0..9] of integer;
procedure univec(var V:univ VecTyp; in Last: integer;
var Sum: integer); external fortran;
var
Sum: integer;
V: array [0..2] of integer;
begin
V[0] := 7;
V[1] := 8;
V[2] := 9;
univec(V, 2, Sum);
writeln(Sum)
end. { UniVec }
Vedere la pagina 215
1 2 ... 211 212 213 214 215 216 217 218 219 220 221 ... 332 333

Commenti su questo manuale

Nessun commento