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

[ajuda urgente] pascal

Discussão em 'Programação' iniciada por denny52, 19 de Junho de 2008. (Respostas: 1; Visualizações: 470)

  1. boas, tenho um programa de pascal para entregar amanha mas nao to a conseguir acaba-lo, e preciso msm dele para passar, em baixo vo deixa-lo, se alguem conseguir ajudar-me ou dar-mo concluido agradecia muito.

    cumpz.

    Programa:

    Código:
    Program  Florisuper;
    Type Artigos = Record
    Numero_de_artigo:integer;
    Tipo:Char;
    Descricao:string;
    Preco,taxa_de_IVA,Preco_Final:Real;
    end;
    Var A: Array [1..4] of Artigos;
        i:Integer;
        Begin
        For i:= 1 to 4 do
        Begin
        Writeln('Introduza o número do artigo.Obrigado.');
        Readln(A[I].Numero_de_artigos);
        Writeln('Introduza o tipo do produto.Obrigado');
        Readln(A[I].Tipo);
        Writeln('Introduza a descrição do produto.Obrigado');
        Readln(A[I].Descricao);
        Writeln('Introduza o preço do produto.Obrigado');
        Readln(A[I].Preco);
        Writeln('Introduza a taxa de IVA.Obrigado');
        Readln(A[I].Taxa_de_IVA);
        A[I].Preco_Final:=(A[I].Preco*A[I].Taxa_de_IVa)+A[I].Preco;
        end;
        Repeat
        Write('Pretende consultar outro artigo?  S/N');
        Readln(resp);
        Writeln('Qual é o artigo a consultar?[1-4]');
        Readln(i);
        Until Resp:=S and\	
        Write('O preço final é',Preco_Final);
        End.
    O programa simula uma loja, em k sao introduzidos os dados dos produtos, e calculado o iva e no fim o programa deve perguntar ao utilizador se prentende consultar outro produto...

    plz preciso msm disto para amanha...
    [/I][/I][/I][/I][/I][/I][/I][/I][/I]
     
    Última edição pelo moderador: 19 de Junho de 2008

Partilhar esta Página