6 odpowiedzi w tym temacie

[Na 5tyk]

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

Załączone pliki

•  exp.rar   515 bajtów  48 Ilość pobrań
  

[speedkill]

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.

[Na 5tyk]

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.

[G[o]Q]

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

Spoiler

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.

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

[Jak się nazwać]

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

[Na 5tyk]

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

[Kawon]

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