Сообщение от
andrews
Нужен "софт из коробки". Установил и в папочке 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 - на чистом ассемблере для Спектрума.
Это всё, что нужно знать начинающему