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:
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]
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: