Torsdag 27/9: Tabellanalyse

Arbeid som gjøres med en tabell kan være (boka har flere eksempler):

• funksjoner som regner ut tabellens sum, snitt, minste og høyeste verdi
• subrutiner som reverserer innholdet
• sortering, fletting

I grupper på to laget man funksjonen erStigende som en tenkt klient bruker som følger:

 dim t1() as integer = { 0, 2, 3, 3 }
 dim t2() as integer = { -2, 7, 9, 10 }
 if erStigende (t1) and erStigende (t2) then
   ...
 end if

Rudi og Johans forslag ble antatt (selv om ByVal gir kopiering av tabellen):

 Function erStigende (ByVal a() as Integer) As Boolean
   Dim n as Integer = 0
   Do
     If a(n) > a(n+1) Then
       Return False
     End If
     n += 1
   Loop Until n = a.GetUpperBound(0)
   Return True
 End Function

I labtimene ble gruppene bedt om å jobbe med prosedyren Reverser(a) som snur opp ned på innholdet i tabellen (og jobber på originalen).