[Prog] Praktijk examen van vorige jaren.

[j0lle]

btw jij gaat toch geen probs betekenen voor de oplossingen enzo die opt forum staan e?
tis voor velen een handig spiekmiddel..
opt examen moeten ze het toch zelf doen..

Khem het toch al op het forum getikt, gene stress . Ik zat 6 jaar geleden waar golle nu zit ik deed da ook zene . Kzal niemand scheef bezien en ge denkt nu toch ni da ik zo naïef ben dat ik denk dat er geen oplossingen worden doorgegeven

joeee

Peter

[Norfolk]

Ja daar ni van, van mij mag dieje erop
Ma twas maar voor de zekerheid, of die hier wel kon posten anders leek uw vraag onnuttig

anyway terug naar vraag:

Kan de petze al geen tip geven??
zo waar we vooral op moeten letten? =D> O:)

[j0lle]

ahzoe jaja hij heeft axx

[Nickman]

komaan, kom hier met die vragen voor morge

[Kemblin]

hehe

[Shinta]

Peter is mijn held omdakik (tot nog toe) ok wil doctoreren \:D/

[sammyke007]

Peter is mijn held omdakik (tot nog toe) ok wil doctoreren \:D/

Amaai, kben aant niezen, kben wa allergisch voor slijmballen :d

"Wouter is mijn idool, ik wil later net zoals Wouter worden"

[petze]

Verdorie toch nu hem ik da juist te laat gelezen anders had ik jullie natuurlijk die vragen gegeven NOT!

Ik ben nog allergischer voor slijmballe als de sammy maar ik hem nog meer iet tegen sarcastische opmerkingen over mijn collega assistenten

De wouter is nen toffe kwouw dak ook zo slim was

joee

P

[domi]

oew.... strike 3, you're outahere! :fuckyeah:

[sammyke007]

Petze, assistent van Ar-X

Da was wel ne quote, maar dan nie me uwe naam hé

Ik maak da mondeling maar moeilijker en moeilijker voor mezelf

[petze]

gene stress ge zult het wel kunne

joe

P

[Shinta]

gene stress ge zult het wel kunne

joe

P

Drie uur is ni zo lang om alle extraatjes erin te stoppen die ze vragen bij de vorige jaren.
(Heeft er iemand een voorbeeldexamen van vorig jaar)

[Kemblin]

Kheb ook is men best gedaan, dees progje zou het verschil van datums in dagen moeten berekenen, het houdt wel geen rekening met schrikkeljaren
Wel met 28dagen in februarie etc. Tis enkel nog maar vraag 1a. De rest morgen misschien of nooit

Datum.Mod

Code: Select all

MODULE Datum;
	IMPORT
		OutExt, In;
		
	TYPE
		DatumPtr = POINTER TO Datum;
		Datum =
			RECORD
				dag: INTEGER;
				maand: INTEGER;
				jaar: INTEGER;
			END; 
	
	PROCEDURE Verschil (oudste: DatumPtr; jongste: DatumPtr):INTEGER;
		VAR
			verschil: INTEGER;
			i: INTEGER;
			fout: INTEGER;
			daycount: INTEGER;
		BEGIN
			fout :=  -1;
			verschil := 0;
			verschil := ((jongste^.jaar) - oudste^.jaar) * 365;
			IF (jongste^.maand = oudste^.maand) THEN
				verschil := verschil;	
			ELSIF (jongste^.maand < oudste^.maand) THEN
				i := oudste^.maand;
				WHILE i # jongste^.maand DO
					DEC(i);
					IF (i < 1) THEN
						i := 12;
					ELSE
					END;
					CASE i OF
							1, 3, 5, 7, 8, 10, 12: verschil := verschil - 31;
						|  4, 6, 9, 11: verschil := verschil - 30;
						|  2: verschil := verschil - 28;
					ELSE
						RETURN fout;
					END;
				END;
			ELSIF (jongste^.maand > oudste^.maand) THEN
				i := jongste^.maand;
				WHILE i # oudste^.maand DO
					DEC(i);
					IF (i < 1) THEN
						i := 12;
					ELSE
					END;
					CASE i OF
							1, 3, 5, 7, 8, 10, 12: verschil := verschil + 31;
						|  4, 6, 9, 11: verschil := verschil + 30;
						|  2: verschil := verschil + 28;
					ELSE
						RETURN fout;
					END;
				END;
			ELSE;
				RETURN fout;
			END;
			
			IF (jongste^.dag = oudste^.dag) THEN
				verschil := verschil;
			ELSIF (jongste^.dag < oudste^.dag) THEN
				i := oudste^.dag;
				daycount := 0;
				WHILE i # jongste^.dag DO
					DEC(i);		
					INC(daycount);
				END;
				verschil := verschil - daycount;
			ELSIF (jongste^.dag > oudste^.dag) THEN
				i := oudste^.dag;
				daycount := 0;
				WHILE i # jongste^.dag DO
					INC(i);
					INC(daycount);
				END;
				verschil := verschil + daycount;
			ELSE
				RETURN fout;
			END;
		RETURN verschil;
	END Verschil;
	
	PROCEDURE Doe*;
		VAR
			eerste, tweede, jongste, oudste: DatumPtr;
			counter: SHORTINT;
	BEGIN
		NEW(eerste);
		NEW(tweede);
		NEW(jongste);
		NEW(oudste);
		counter := 0;
		In.Open;		
		In.Int(eerste^.dag);
		In.Int(eerste^.maand);
		In.Int(eerste^.jaar);
		In.Int(tweede^.dag);
		In.Int(tweede^.maand);
		In.Int(tweede^.jaar);		
		IF eerste^.jaar = tweede^.jaar THEN
			IF eerste^.maand = tweede^.maand THEN
				IF eerste^.dag = tweede^.dag THEN
					jongste^ := eerste^;
					oudste^ := tweede^;
				ELSIF eerste^.dag > tweede^.dag THEN
					jongste^ := eerste^;
					oudste^ := tweede^;					
				ELSE
					jongste^ := tweede^;
					oudste^ := eerste^;
				END;
			ELSIF eerste^.maand > tweede^.maand THEN
				oudste^ := tweede^;
				jongste^ := eerste^;
			ELSE
				jongste^ := tweede^;
				oudste^ := eerste^;
			END;
		ELSIF eerste^.jaar > tweede^.jaar THEN
			oudste^ := tweede^;
			jongste^ := eerste^;
		ELSE
			jongste^ := tweede^;
			oudste^ := eerste^;
		END;
		OutExt.String("Het verschil in aantal dagen tussen");
		OutExt.Ln;
		OutExt.Int(oudste^.dag,0);
		OutExt.String("/");
		OutExt.Int(oudste^.maand,0);
		OutExt.String("/");
		OutExt.Int(oudste^.jaar,0);
		OutExt.String(" en ");
		OutExt.Int(jongste^.dag,0);
		OutExt.String("/");
		OutExt.Int(jongste^.maand,0);
		OutExt.String("/");
		OutExt.Int(jongste^.jaar,0);
		OutExt.String(" is ");		
		OutExt.Int(Verschil(oudste, jongste),0);
		OutExt.Ln;
	END Doe;
	
END Datum.

Datum.Tool

Code: Select all

(*
	Date Created: 19/01/2006
*)

System.Recall

Builder.Compile \wesv2
	OutExt.Mod
	Datum.Mod
~

Builder.Compile \f *

System.Free
	Datum.Mod
	OutExt.Mod
~

OutExt.Clear

Datum.Doe
5 1 2001 1 1 2002~

[Yo_rik]

:huh: ik zou daar module Dates voor gebruiken (meegeleverd met Oberon), daarmee zal dat toch veel makkelijker zijn...

[daboe_]

goe da de peter hier alles leest en gepast afstraft als mensen mij vermelden Ik wacht gewoon in stilte af tot examen maandag :p