Skripte za vezbe iz SPA1 - Univerzitet u Novom Sadu

WriteInt(Max,3);
WriteString(' u intervalu od ');
WriteCard(Ood,3);
WriteString(' do ');
WriteCard(Doo,3)
END MaxNiza1.
MODULE MaxNiza2;
(* Drugo resenje: O(n^2). Koristi se cinjenica da je
suma X[d..g] izracunljiva iz X[d..g-1]. *)
FROM InOut IMPORT
WriteString,ReadInt,WriteInt,WriteCard,WriteLn;
CONST
N = 10;
TYPE
Interval = [1..N];
VAR
Max, Suma : INTEGER;
d,g,i,Ood,Doo : Interval;
X : ARRAY Interval OF INTEGER;
BEGIN
WriteString(' Unesite niz X ');
WriteLn;
FOR i := 1 TO N DO
ReadInt(X[i]);
WriteLn
END;
Max := 0;
FOR d := 1 TO N DO
Suma := 0;
FOR g := d TO N DO
Suma := Suma + X[g];
IF Suma > Max THEN
Max := Suma;
Ood := d;
Doo := g
END
END
END;
WriteLn;
WriteString(' Maksimum je ');
WriteInt(Max,3);
WriteString(' u intervalu od ');
WriteCard(Ood,3);
WriteString(' do ');
WriteCard(Doo,3)
END MaxNiza2.
MODULE MaxNiza3;
(* Trece resenje: O(n^2). Koristi pomocni niz u kome je
na i-tom mestu suma podniza x[1..i] *)
FROM InOut IMPORT
WriteString,ReadInt,WriteInt,WriteCard,WriteLn;
CONST
N = 10;
TYPE
Interval = [1..N];
VAR
Max, Suma : INTEGER;
d,g,i,Ood,Doo : Interval;
X : ARRAY Interval OF INTEGER;
Pom : ARRAY [0..N] OF INTEGER;
BEGIN
WriteString(' Unesite niz X ');
WriteLn;
FOR i := 1 TO N DO
ReadInt(X[i]);
WriteLn
END;
Pom[0] := 0;
FOR i := 1 TO N DO
Pom[i] := Pom[i-1] + X[i]
END;
Max := 0;
FOR d := 1 TO N DO
FOR g := d TO N DO
Suma := Pom[g] - Pom[d-1];
IF Suma > Max THEN
Max := Suma;
Ood := d;
Doo := g
END
END
END;
WriteLn;
WriteString(' Maksimum je ');
WriteInt(Max,3);
WriteString(' u intervalu od ');
3
WriteCard(Ood,3);
WriteString(' do ');
WriteCard(Doo,3)
END MaxNiza3.
MODULE MaxNiza4;
(* Cetvrto resenje. Najbolje moguce: O(n) *)
FROM InOut IMPORT
WriteString,ReadInt,WriteInt,WriteCard,WriteLn;
CONST
N = 10;
TYPE
Interval = [1..N];
VAR
Max, MaxDovde : INTEGER;
i,d,Ood,Doo : Interval;
X : ARRAY Interval OF INTEGER;
BEGIN
WriteString(' Unesite niz X ');
WriteLn;
FOR i := 1 TO N DO
ReadInt(X[i]);
WriteLn
END;
Max := 0;
MaxDovde := 0;
FOR i := 1 TO N DO
IF MaxDovde = 0 THEN
d := i
END;
MaxDovde := MaxDovde + X[i];
IF MaxDovde < 0 THEN
MaxDovde := 0
END;
IF MaxDovde > Max THEN
Ood := d;
Doo := i;
Max := MaxDovde
END
END;
WriteLn;
WriteString(' Maksimum je ');
WriteInt(Max,3);
WriteString(' u intervalu od ');
WriteCard(Ood,3);
WriteString(' do ');
WriteCard(Doo,3)
END MaxNiza4.
ZADATAK: Ilustracija rada sa nekim standardnim modulima.
MODULE Primer;
FROM InOut IMPORT ReadString, ReadCard, Read, WriteLn,
WriteString, WriteCard;
FROM FIO IMPORT File, StandardOutput, PrinterDevice,
Create, Close, Exists, WrCard, WrStr, WrReal, WrLn,
WrChar, WrLngReal;
FROM Str IMPORT Length, Slice;
FROM Lib IMPORT Sound, NoSound, Delay;
FROM MATHLIB IMPORT Sqrt, Log;
CONST
Gr = 5;
TYPE
string = ARRAY [1..50] OF CHAR;
podatakTip = RECORD
UcitString : string;
UcitBroj : CARDINAL
END;
VAR
imedat : string;
UlazniPod : ARRAY [1..Gr] OF podatakTip;
PodStr : ARRAY [1..4] OF CHAR;
izlaz : File;
i, frekv : CARDINAL;
izbor : CHAR;
BEGIN
REPEAT
WriteString('p - izlaz na printer');
WriteLn;
WriteString('f - izlaz u fajl');
WriteLn;
WriteString('e - ekran');
WriteLn;
Read(izbor)
UNTIL (CAP(izbor) = 'P') OR (CAP(izbor) = 'F') OR
(CAP(izbor) = 'E');
IF CAP(izbor) = 'P' THEN
izlaz := PrinterDevice;