HP SunSoft Pascal 4.0 Instrukcja Użytkownika Strona 216

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 333
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 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 }
Przeglądanie stron 215
1 2 ... 211 212 213 214 215 216 217 218 219 220 221 ... 332 333

Komentarze do niniejszej Instrukcji

Brak uwag