Counter and Theme Toggle - Simula Typing CST Test

Counter and Theme Toggle — Simula Code

Demonstrates a simple counter with theme toggling using Simula classes, objects, and procedures.

BEGIN
	CLASS Counter;
		INTEGER count;
		BOOLEAN isDark;

		PROCEDURE updateUI;
		BEGIN
		OutText("Counter: "); OutInt(count,0); OutImage;
		IF isDark THEN OutText("Theme: Dark") ELSE OutText("Theme: Light"); OutImage;
		END updateUI;

		PROCEDURE increment;
		BEGIN
		count := count + 1;
		updateUI;
		END increment;

		PROCEDURE decrement;
		BEGIN
		count := count - 1;
		updateUI;
		END decrement;

		PROCEDURE reset;
		BEGIN
		count := 0;
		updateUI;
		END reset;

		PROCEDURE toggleTheme;
		BEGIN
		isDark := NOT isDark;
		updateUI;
		END toggleTheme;

	END Counter;

	REF(Counter) c;
	c :- NEW Counter;
	c.count := 0;
	c.isDark := FALSE;

	c.updateUI;
	c.increment;
	c.increment;
	c.toggleTheme;
	c.decrement;
	c.reset;
END

Simula Language Guide

Simula is a high-level, statically typed programming language designed for simulation and object-oriented programming. It introduced the concept of classes, objects, and inheritance, laying the foundation for modern object-oriented languages like C++ and Java.

More Simula Typing Exercises

Practice Other Languages