AMXX.pl: Support AMX Mod X i SourceMod

Witam. Czy mógłby mi ktoś skompilować poniższy plik? Program napisany w Pascalu. nie wiem dlaczego, ale wywala mi:

Error 36: BEGIN expected

begin
writeln('Osiagnieto maxymalna wartosc exp: ',exp:0:0,')');
level:=maxl;
readkey;
end;

na

begin
writeln('Osiagnieto maxymalna wartosc exp: ',exp:0:0,')');
level:=maxl;
readkey;
end.

Kompiluje się, ale gdy włączam program to wyświetla się konsola i od razu się zamyka.

program GeneratorExpa;

uses crt;

var

maxl:longint;

maxe:longint;

level:longint;

a:real;

exp:real;

plik:text;



procedure zakoncz;

begin

writeln('Osiagnieto maxymalna wartosc exp: ',exp:0:0,')');

level:=maxl;

readkey;

end.





BEGIN

clrscr;

writeln('Podaj Maxymalny lvl');

readln(maxl);

writeln('Podaj max exp, 0=domy˜lnie');

readln(maxe);

Writeln('Podaj zmienna "a"');

readln(a);

clrscr;

assign(plik, 'C:tabela.txt');

rewrite(plik);



   if maxe = 0 then maxe:=9999999999999999999;

        for level:=1 to maxl do

       begin

        exp:=a*sqr(level);

        write(plik, exp:0:0,',');

        writeln('exp: ',exp:0:0,' level: ',level);

        if exp>maxe then zakoncz;

       end;

writeln('Wygenerowano tablice exp');

readkey;

end.

speedkill ty widze tez pascala nie znasz end. jest tylko w programie głównym, W innych miejscach pisze się end;



u mnie sie to kompiluje uzywając tmt jesli uzywasz freepascala/turbopascala to tam nie ma chyba modulu crt z tego co pamietam i ci sie nie skompiluje

Goq w obu jest moduł crt, w turbo pascalu nie ma grapha a w free jest Kod goq jest dobry.

jesli uzywasz freepascala/turbopascala to tam nie ma chyba modulu crt z tego co pamietam i ci sie nie skompiluje

Uzywałem Turbo Pascala i się nie kompilowało. Zmieniłem na Free Pascala i działa
Ale łap

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL