[ajuda urgente] pascal

denny52

Membro
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:
Back
Topo