afl-material: progs/while-tests/factors.while@6a16964aed93 (annotated)

659 fe1f9c2e3c5b optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	1	// Find all factors of a given input number
824 fb5462a350b1 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	2
659 fe1f9c2e3c5b optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	3
658 e215f5a6912e updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	4	write "Input n please";
e215f5a6912e updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	5	read n;
e215f5a6912e updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	6	write "The factors of n are";
e215f5a6912e updated Christian Urban <urbanc@in.tum.de> parents: diff changeset	7	f := 2;
824 fb5462a350b1 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	8	while (f < n / 2 + 1) do {
fb5462a350b1 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	9	if ((n / f) * f == n) then { write(f) } else { skip };
fb5462a350b1 updated while tests Christian Urban <christian.urban@kcl.ac.uk> parents: 742 diff changeset	10	f := f + 1
659 fe1f9c2e3c5b optional Christian Urban <urbanc@in.tum.de> parents: 658 diff changeset	11	}

author	Christian Urban <christian.urban@kcl.ac.uk>
	Fri, 03 Dec 2021 21:56:55 +0000
changeset 856	6a16964aed93
parent 824	fb5462a350b1
permissions	-rw-r--r--