Jump to content
tmgv

Progrma Pascal Gerir Autocarros

Recommended Posts

tmgv

Boas Amigos tenho para fazer um pograma em pascal que gira uma empresa de autocarros com preço de bilhetes quem comprou, etc. Será que me poderiam ajudar ? agradecia

Share this post


Link to post
Share on other sites
M6

Terás de colocar as tuas dúvidas de forma clara e especifica, caso contrário ninguém te poderá ajudar.

Qual é a tua dúvida de Pascal?


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
GOMES

Bom dia

Já agora o pk de fazer em pascal projecto escolar?

Tem que ser especifico como te disseram , pois quer usar base de dados ou so ficheiros e etc?

DG

Share this post


Link to post
Share on other sites
M6

tmgv, teremos todo o gosto em ajudar-te, tens é de dizer quais são as tuas dúvidas de forma clara e específica.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
GOMES

Boas

O meu conselho uma vez que es novato começa por fazer o algritmo , praticamente tens  de expor todas as situações em papel.

Exemplo: ter um menu em tenhas la um criar autocarros

Autocarros

numero de lugares em pe e sentados qual o percurso que este autocarro faz e etc

So aqui ja sabes o autocarro e numero de lugares atraves do percurso ja podes relacionar.

Tens de levantar as tuas necessidades e expor para um caso pratico em primeiro papel depois codigo

DG

Share this post


Link to post
Share on other sites
tmgv

Bom Dia.

Até agora tenho isto feito mas dáme erro.

Ou seja precizo de procurar um lughar vazio no autocarro, se tiver vazio a pessoa pode entrar se nao tiver nao entra.

O MEU CODIGO:

program aucar(input,output);

var

x:integer;

y:array [1..5,1..10] of  integer;

procedure inicializar;

var

  c,l:integer;

begin

  for c:=1 to 5 do

  for l:= 1 to 10 do

    y [c,l]:=0;

end;

procedure Menu;

begin

writeln('+----------------+');

writeln('¦      Menu      ¦');

writeln('¦ 1 Proc. Lugar  ¦');

writeln('¦ 0 Sair        ¦');

writeln('+----------------+');

if (''  ) then

begin

writeln ('Qual o Lugar onde se pretende Sentar?');

    readln;

randomize;

  writeln('ler');

  realn('')

begin

  inicializar;

end.

Share this post


Link to post
Share on other sites
M6

tmgv, quando obténs uma mensagem de erro o compilador dá-te o número de linha onde isso acontece e a razão pela qual isso acontece.

Interepreta essa mensagem e isso é meio caminho andado para corrigir o problema.

PS: uma das regras do fórum é a forma como os post são escritos pelo que peço que evites erros ortográficos.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
GOMES

Viva

program aucar(input,output);

var

x:integer;

y:array [1..5,1..10] of  integer;

procedure inicializar;

var

  c,l:integer;

begin

  for c:=1 to 5 do

  for l:= 1 to 10 do

    y [c,l]:=0;

end;

procedure Menu;

begin

writeln('+----------------+');

writeln('¦      Menu      ¦');

writeln('¦ 1 Proc. Lugar  ¦');

writeln('¦ 0 Sair        ¦');

writeln('+----------------+');

if (''  ) then

begin

writeln ('Qual o Lugar onde se pretende Sentar?');

    readln;

randomize;

  writeln('ler');

  realn('')

begin

  inicializar; pk que aqui so chamas o inicializar e procedure do menu?

end.

Podes postar o erro?

DG

Share this post


Link to post
Share on other sites
tmgv

Esse Inicializar foi o meu professor que ai o colocou, disse que o tinha que chamar.

quando corro isso diz erro de Bollean

Tou com alguma digiculdade.

Eu penso que tenho que o uzar o Randomize.

Mas tenho que encontrar o lugar e ver se esta vaga ou nao.

Share this post


Link to post
Share on other sites
GOMES

Boas

Para te poderem ajudar ten de dizer o tipo de erros e em que linha por exemplo.

Pois tens de ver que nem toda as pessoas tem o compilador de pascal instalado dai no puder ser testado e só  intrepetado o  codigo.

DG

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.