1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda para o desenvolvimento de um programa em pascal..

Discussão em 'Programação' iniciada por Alexandre lopes, 21 de Fevereiro de 2008. (Respostas: 4; Visualizações: 926)

  1. boas tardes...
    Sou um estudante de informática e gestão frequento o 11º e foi m pedido um projecto...
    esse projecto consiste na criação de um programa para a getão de um clube de video...
    nao tenho muitas noções de pascal por isso nao sei como começar ou o que começar a fazer..venho aqui pedir-vos algumas dicas...
    preciso mesmo de ajuda...
    obrigado:confused:
     
  2. LuCk

    LuCk Power Member

    Não aprendeste isso nas aulas?
     
  3. Armadillo

    Armadillo Folding Member

    e???
    duvidas concretas, por favor
     
  4. Pauleta_Tubarao

    Pauleta_Tubarao Power Member

    diz o que nao sabes fazer, nao esperes que te façamos o programa, tamos aqui para ajudar mas tens que mostrar algo...
     
  5. JDi

    JDi Power Member

    LOL, se te deram um projecto, devias saber mais ou menos por onde começar...
    Eu já não pego em pascal a algum tempo mas se olhar pro código sou capaz de me lembrar de umas coisinhas.
    Tu primeiro tens que estruturar como é que o programa vai funcionar(Algoritmo), depois é que passas para o código e assim já vias onde tinhas duvidas e depois é que pedias ajuda.

    Podes começar pelo menu como programa principal, e para o resto utilizas procedimentos que vais chamando conforme a opção que a pessoa escolhe.

    Código:
    Program clubvideo;
    Uses crt;
    
    procedure ver;
    var ...
    begin
          ...
          ...
          ...
          ...
    end;
    
    procedure inserir;
    var ...
    begin
           ...
          ...
          ...
          ...
    end;
    
    procedure apagar;
     var ...
    begin
           ...
          ...
          ...
          ...
    end;
    
    var op: char;
    begin
          clrscr;
          while op <> '3' do
                  begin
                       clrscr;
                       writeln('Ver Vídeos diponiveis');
                       writeln('Inserir videos');
                       Writeln('Apagar Video');
                       writeln('Opcao');op=readkey;
                       case op of
                             '1' : ver;
                             '2' : inserir;
                             '3' : apagar;
                  end;
           end;
    end.
    
    Penso que isto já te deve dar uma ajuda.
     

Partilhar esta Página