[Pascal]Czy programy w Dev-Pascal będą działały na dosie?

[Czarny Ass]

Czy programy napisane w kompilatorze Dev-Pascal będą działały na dosie?

[Marmot]

Nie

[Czarny Ass]

A znacie jakieś inne kompilatory oprócz Turbo Pascal, które by kompilowały na dosa?

[Marmot]

Free Pascal w wersji dla DOS.

[Czarny Ass]

Czemu nic nie słychać jak wpiszę

begin

sound(2200);

delay(3000);

...

 

to nie słychać niczego?

[maciej-01]

twój komputer musi obsługiwać głośniczek systemowy.

[Marek.S]

spróbuj też ustawić większy czas delay, niektóre wersje pascala na współczesnych kompach chodzą tysiące razy szybciej

[Czarny Ass]

Jak zrobić parę kotwic? Jak robię parę i potem mam game:, to wtedy mi się wyświetla błąd w kompilatorze:

untitl~1.pas(39,1) Fatal: Syntax error, ; expected but identifier GAME found

[Marmot]

Pokaz kod.

[Czarny Ass]

USES CRT;
VAR
key:char;
start:integer;

LABEL menu,game,mymaps,options,editor;

BEGIN
textcolor(3);
writeln('TankDOS!');
textcolor(5);
gotoxy(10,2);
writeln('version 1.0');
textcolor(8);
gotoxy(7,3);
writeln('ParadropSoft 2010');
gotoxy(7,4);
writeln('Created By Ferrari4.');
textcolor(1);
writeln('-----------------------------------');
readkey;
clrscr;
start:=0;
textcolor(10);
writeln ('1    START    ');
writeln ('2 MAPS EDITOR ');
writeln ('3   MY MAPS   ');
writeln ('4   OPTIONS   ');
writeln ('5    EXIT     ');
menu:
key:=readkey;
if key='1' then goto game;
if key='2' then goto editor;
if key='3' then goto mymaps;
if key='4' then goto options;
if key='5' then halt;
goto menu

game:
...

mymaps:
...

options:
...

editor:
...

END.

Tak w ogóle to jest nieskończone!