Profile avatar
kzieblauw.bsky.social
8 posts 7 followers 11 following
Posts 3 Comments 5

MODULE M; (* What do I do *) FROM InOut IMPORT WriteString, WriteReal, WriteLn; CONST L = 1000000; VAR r: REAL; c, f: INTEGER; BEGIN r := 0.0; f := 1; FOR c := 0 TO L DO r := r + f * 4.0 / (2.0 * c + 1.0); f := -f; END; WriteString("Output: "); WriteReal(r, 1, 10); WriteLn; END M.

submitted 87 days ago • 0 comments

program HelloWorld; // Turbo Pascal 7.0 begin WriteLn('Hello, World!'); end.

submitted 97 days ago • 0 comments

MODULE HelloWorld; FROM STextIO IMPORT WriteString, WriteLn; BEGIN WriteString("Hello, World!"); WriteLn; END HelloWorld.

submitted 101 days ago • 0 comments