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:

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.Numero_de_artigos);
Writeln('Introduza o tipo do produto.Obrigado');
Readln(A.Tipo);
Writeln('Introduza a descrição do produto.Obrigado');
Readln(A.Descricao);
Writeln('Introduza o preço do produto.Obrigado');
Readln(A.Preco);
Writeln('Introduza a taxa de IVA.Obrigado');
Readln(A.Taxa_de_IVA);
A.Preco_Final:=(A.Preco*A.Taxa_de_IVa)+A.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...

Viva e bem vindo ao forum,

Então como correu o exame? Conseguiste passar? Espero que sim e que tudo tenha corrido pelo melhor.

Boa sorte