1
2
3
4
5
6
7
8
9
Program  opdracht4;
Var
        Voornaam;
        Achternaam; 
        Woonplaats: integer;
 
Begin
        Writeln ( ‘ Wat is je voornaam? ’);
        Readln ( Voornaam);
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln ('Geef een heel getal ') ;
        Read (Getal1) ;
        Writeln (' Geef nog een heel getal ') ;
 ...

1
2
3
4
5
6
7
8
9
Program  opdracht4;
Var
        Voornaam;
        Achternaam; 
        Woonplaats: string;
 
Begin
        Writeln ( ‘ Wat is je voornaam? ’);
        Readln ( Voornaam);
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln ('Geef een heel getal ') ;
        Read (Getal1) ;
        Writeln (' Geef nog een heel getal ') ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln ('Geef een heel getal ') ;
        Read (Getal1) ;
        Writeln (' Geef nog een heel getal ') ;
 ...

1
2
3
4
5
6
7
8
9
Program  opdracht4;
Var
        Voornaam:string;
        Achternaam:string;
        Woonplaats:string;
 
Begin
        Writeln ( ‘ Wat is je voornaam? ’);
        Readln ( Voornaam);
 ...

1
2
3
4
5
6
7
8
9
Program  opdracht 4;
Var
        Voornaam:string;
        Achternaam:string;
        Woonplaats:string;
 
Begin
        Writeln ( ‘ Wat is je voornaam? ’);
        Readln ( Voornaam);
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (‘ Geef een heel getal ‘) ;
        Read (Getal1) ;
        Writeln (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (‘ Geef een heel getal ') ;
        Read (Getal1) ;
        Writeln (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ') ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ‘) ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ') ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ') ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ') ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ') ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht 9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘Geef een heel getal') ;
        Read (Getal1) ;
        Write (‘Geef nog een heel getal') ;
 ...

1
2
3
4
5
6
7
8
9
Program da;
var i,p:integer;
begin
 
 
for i:=1 to 300 do
if (i mod 2=1) then
p:=p*i;
writeln ('P=', p);
 ...

1
2
3
4
5
6
7
8
9
Program da;
var i,n:integer;
p:integer;
begin
 
n:=300;
for i:=1 to n do
if (i mod 2=0) then
p:=p*i;
 ...

1
2
3
4
5
6
7
8
9
Program da;
var i,n:integer;
p:integer;
begin
 
n:=300;
for i:=1 to n do
if (i mod 2 <>0) then
p:=p*i;
 ...

1
2
3
4
5
6
7
8
9
Program NaamEnGeslacht;
var
        Naam:integer;
        Geslacht:integer;
 
begin
        Write (`Wat is je naam?`);
        Read (Naam);
        Write (`Wat is je geslacht? Geef aan M of V’);
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln ( `Geef een heel getal` ) ;
        Read (Getal1) ;
        Writeln ( `Geef nog een heel getal` ) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (`Geef een heel getal`) ;
        Read (Getal1) ;
        Writeln (`Geef nog een heel getal`) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (`Geef een heel getal`) ;
        Read (Getal1) ;
        Writeln (`Geef nog een heel getal`) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (`Geef een heel getal`) ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Writeln (‘Geef een heel getal‘) ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ‘) ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program opdracht 9 ;
 
var
        Getal1 ,Getal2  ,Getal3 ,kleinste , middel ,grootste: Integer;
 
begin
        Write (‘ Geef een heel getal ‘) ;
        Read (Getal1) ;
        Write (‘ Geef nog een heel getal ‘) ;
 ...

1
2
3
4
5
6
7
8
9
Program recursionTest (input,output);
Var
   x,y : integer;
 
function gcd (a, b: integer) : result real;
   var x : integer;
begin
   if b= 0 then gcd := a
   else begin
 ...

1
2
3
4
5
6
7
8
program funcTest(input, output);        
var
        i, j, k:integer;
 
function Sum(a,b:integer): result integer;
begin
        Sum := a + b
end
 ...

1
2
3
4
5
6
7
8
9
program noparmTest (input, output);
 var a, b : integer;
        c : real;
  function two: result integer;
    var n : integer;
    begin
      c := a + b;
      two := -c
    end
 ...

1
2
3
4
5
6
7
8
9
program procTest (input, output);
 var a, b : integer;
     x : array [1..5] of real;
  procedure one (i, j : integer; k : array [1..5] of real);
    var n : integer;
    begin
      n := i + j;
      k[n] := 2.345
    end
 ...

1
2
3
4
5
6
7
8
9
program procTest (input, output);
 var a, b : integer;
     x : array [1..5] of real;
  procedure one (i, j : integer; k : array [1..5] of real);
    var n : integer;
    begin
      n := i + j;
      k[n] := 2.345
    end
 ...