Кросс Паскаль для Z80

[Andrew771]

Нужен "софт из коробки". Установил и в папочке Examples нашел нужное окружение(TRDOS, без системы, что-то другое) и построил и запустил Hello, world!

Потом уже юзверь начинает ковыряться и разбираться. И на что у него мозгов и времени хватит, то он и сделает. STEP BY STEP.

Вот такой я сделал интерфейс:


А в файле формата PRG, который предлагается выбрать, пишешь свою программу на Паскале (можно даже в обычном Блокноте Windows) без всяких лишних довесков, например:

program Kubik;

CONST
	HowManyTimes = 1000;
VAR
	{ Завести 6 переменных (по количеству граней кубика). }
	one, two, three, four, five, six, n, number: WORD;
BEGIN
	RANDOMIZE;
	{ Обнулить наши счётчики граней кубика. }
	one := 0; two := 0; three := 0; four := 0; five := 0; six := 0;
	{ Повторить 1000 раз выбрасывание кубика }
	FOR n := 1 TO HowManyTimes DO
	BEGIN
		{ и посчитать сколько раз выпала каждая грань. }
		number := random(5)+1;
		case number of
			1: one := one + 1;
			2: two := two + 1;
			3: three := three + 1;
			4: four := four + 1;
			5: five := five + 1;
			6: six := six + 1;
		end;
	END;

	{ Нарисовать цветную таблицу } {
				+---+------------+
				| 1 |    200     |
				+---+------------+
				| 2 |    200     |
				+---+------------+
				| 3 |    200     |
				+---+------------+
				| 4 |    300     |
				+---+------------+
				| 5 |     50     |
				+---+------------+
				| 6 |     50     |
				+---+------------+
	}
	BORDER(0); Textbackground(0);
	Textcolor(5); Clrscr;
	Writeln('+---+------------+');
	Write('| '); Textcolor(2); write(1);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');

	Write('| '); Textcolor(6); write(2);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');

	Write('| '); Textcolor(4); write(3);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');

	Write('| '); Textcolor(3); write(4);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');

	Write('| '); Textcolor(1); write(5);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');

	Write('| '); Textcolor(7); write(6);
		Textcolor(5); Writeln(' |            |');
	Writeln('+---+------------+');


	{ и вывести результаты. }
	Gotoxy(10, 1); Textcolor(2); Write(one);
	Gotoxy(10, 3); Textcolor(6); Write(two);
	Gotoxy(10, 5); Textcolor(4); Write(three);
	Gotoxy(10, 7); Textcolor(3); Write(four);
	Gotoxy(10, 9); Textcolor(1); Write(five);
	Gotoxy(10, 11); Textcolor(7); Write(six);

END.

После нажатия кнопки и выбора файла PRG всё сразу компилируется в файл ASM - на чистом ассемблере для Спектрума.

Это всё, что нужно знать начинающему

[Advertiser]