win16 apiを叩きたい。 その3

概要

win16 apiを叩きたい。
pc98エミュレーターに、ms-dos入れて、windows3.1入れて、turbo pascal入れて、窓を表示する。
練習問題やってみた。

練習問題

fizzbuzzを表示せよ。

写真

サンプルコード

program fizz;
uses 
	wincrt;
var s: integer;
procedure fizzbuzz(var n: integer);
var
	i: integer;
begin
	for i := 1 to n do
	begin
		if ((i mod 3) + (i mod 5)) = 0 then
			writeln('FizzBuzz ')
		else if (i mod 3) = 0 then
			write('Fizz ')
		else if (i mod 5) = 0 then
			writeln('Buzz ')
		else
		begin
			write(i);
			write(' ')
		end;
 	end;
end;
begin
	s := 100;
	fizzbuzz(s);
	Readln;
end.

以上。