Programmeren in Pascal/If then

De 'if then' constructie is een van de belangrijkste combinaties. Door dit statement kan dit bijvoorbeeld:

Pascal-code:

program opteltrainer;
var
	a, b, c, d: integer;
begin
	a := 1;
	b := 2;
	c := a + b;
	
	writeLn('wat is ', a, ' + ', b, '?');
	readLn(d);
	
	if c = d then
	begin
		writeLn('dat is goed');
	end;
	if not (c = d) then
	begin
		writeLn('helaas maar dat is fout');
	end;
	
	writeLn('einde programma');
end.

Zonder 'if' kan je niet controleren of de uitkomst goed is. If 'kijkt' of wat erachter 'true' of 'false' staat. a=b geeft true als a gelijk is aan b en anders false. dit wetende werkt dit ook:

Pascal-code:

program opteltrainer;
var
	a, b, c, d: integer;
	e: Boolean;
begin
	a := 1;
	b := 2;
	c := a + b;
	
	writeLn('wat is ', a, ' + ', b, '?');
	readLn(d);
	
	e := c = d;
	
	if e then
	begin
		writeLn('dat is goed');
	end;
	if not e then
	begin
		writeLn('helaas maar dat is fout');
	end;
	
	writeLn('einde programma');
end.