Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
PatMaia

[Resolvido] pzim salao

Recommended Posts

Nao consigo finalizar este programa me ajude....:confused:

Program Pzim ;
var a,b: array[1..5] of integer;

som,fiz:real;

Begin
For a:=1 to 5 do
begin
writeln('entr com o nome do Cliente');
Readln(vet[nom]);
end;
if(vt[nom]=1)then
writeln('cliente primeiro');
if(vt[nom]=2)then
writeln(' cliente segundo');
if(vt[nom]=3)then
writeln('cliente teceiro');
if(vt[nom]=4)then
writeln('cliente quarto');
if(vt[nom]=5)then
writeln('cliente quinto);

end;
vt b:= array[1...6];
begin
forB:=1 to 6do
begin
writlen('Corte');
readln(vt[c]);
writlen('unha');
readln(vt[u]);
writlen('tintura');
readln(vt[t]);
writlen('escova');
readln(vt[e]);
writlen('chapa');
readln(vt[ch]);
writlen('Progressiva');
readln(vt[p]);
begin
writeln('Entre co o que foi feito');
Readln(fiz);
writeln('entre com o preço');
readln(pre);
vt[c]:=15,00
vt[u]:=5,00
vt[t]:=30,00
vt[e]:=20,00
vt[ch]:=10,00
vt[p]:=150,00
Som:=pre+fiz;
writeln('o total a pagar e ',som);
writeln('obrigado pela preferência');
end;
end;
end;
end;

End.

Editado por gandalfnho
Use a tag CODE

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá,

Seja bem vinda.

PatMaia, seu programa precisa ajustar algumas coisas... tanto na lógica, tanto na sintaxe do Pascal.

Por favor, poste o enunciado do problema para podermos ajudar melhor...

Abaixo fim um exemplo baseado no que mais ou menos eu entendi do problema.

[color=#0000ff]Program[/color] Pzim[color=#000000];[/color]
[color=#0000ff]uses[/color]
CRT[color=#000000];[/color] [color=#000000]//carrega comandos extras, como ClrScr, TextColo, TextBackGround[/color]
[color=#000000]{obs.: No Pascal Zim esse comando uses é ignorado, pois não funciona, mas os [/color]
[color=#000000] comandos supracitados são carregados nativamente, ou seja, tanto faz colocar [/color]
[color=#000000] "uses crt" ou não que o programa vai funcionar (eu acho, rs)}[/color]
[color=#0000ff]var[/color]
[color=#000000]{nomes :array[1..5] of string; //nome dos clientes}[/color]
nome [color=#000000]:[/color][color=#0000ff]string[/color][color=#000000];[/color] [color=#000000]//nome do cliente[/color]
servicos [color=#000000]:[/color][color=#0000ff]array[/color][color=#000000][[/color][color=#000000]1[/color][color=#000000].[/color][color=#000000].10[/color][color=#000000]][/color] [color=#0000ff]of[/color] [color=#000000]integer[/color][color=#000000];[/color] [color=#000000]//serviços prestados[/color]
valores [color=#000000]:[/color][color=#0000ff]array[/color][color=#000000][[/color][color=#000000]1[/color][color=#000000].[/color][color=#000000].6[/color][color=#000000]][/color] [color=#0000ff]of[/color] [color=#000000]real[/color][color=#000000];[/color]
subTotal[color=#000000],[/color] [color=#000000]//soma dos valores dos servicos prestados[/color]
dinheiro [color=#000000]:[/color][color=#000000]real[/color][color=#000000];[/color] [color=#000000]//dinheiro pago[/color]
i [color=#000000]:[/color][color=#000000]integer[/color][color=#000000];[/color] [color=#000000]//usado na iteração for (i é um padrão por conversão)[/color]
opcao [color=#000000]:[/color][color=#000000]integer[/color][color=#000000];[/color] [color=#000000]//ler opcao do menu[/color]

[color=#0000ff]BEGIN[/color]

[color=#000000]{OBS. A vírgura dos números reais no Pascal é ".", ex.: 10.40}[/color]

[color=#000000]{INICIALIZANDO O PROGRAMA - FORMATACAO DA TELA E TEXTO}[/color]
[color=#000000]TextColor[/color][color=#000000]([/color][color=#000000]15[/color][color=#000000]);[/color] [color=#000000]//15=branco (mais claro)[/color]
[color=#000000]TextBackGround[/color][color=#000000]([/color][color=#000000]1[/color][color=#000000]);[/color] [color=#000000]//1=azul[/color]
ClrScr[color=#000000];[/color] [color=#000000]//limpa a tela[/color]
[color=#000000]{INICIALIZANDO OS VALORES DE CADA SERVICO}[/color]
valores[color=#000000][[/color][color=#000000]1[/color][color=#000000]]:=[/color][color=#000000]15.00[/color][color=#000000];[/color] [color=#000000]//corte[/color]
valores[color=#000000][[/color][color=#000000]2[/color][color=#000000]]:=[/color][color=#000000]5.50[/color][color=#000000];[/color] [color=#000000]//unha[/color]
valores[color=#000000][[/color][color=#000000]3[/color][color=#000000]]:=[/color][color=#000000]30.00[/color][color=#000000];[/color] [color=#000000]//tintura[/color]
valores[color=#000000][[/color][color=#000000]4[/color][color=#000000]]:=[/color][color=#000000]20.00[/color][color=#000000];[/color] [color=#000000]//escova[/color]
valores[color=#000000][[/color][color=#000000]5[/color][color=#000000]]:=[/color][color=#000000]10.00[/color][color=#000000];[/color] [color=#000000]//chapa[/color]
valores[color=#000000][[/color][color=#000000]6[/color][color=#000000]]:=[/color][color=#000000]150.00[/color][color=#000000];[/color] [color=#000000]//progressiva[/color]
[color=#000000]{LENDO DADO DO CLIENTE}[/color]
[color=#000000]write[/color][color=#000000]([/color][color=#800000]'Entre com o nome do Cliente :'[/color][color=#000000]);[/color] [color=#000000]readln[/color][color=#000000]([/color]nome[color=#000000]);[/color]
[color=#000000]{LENDO OS SERVICOS PRESTADOS E CALCULANDO O TOTAL}[/color]
[color=#0000ff]repeat[/color]
[color=#000000]{MENU DE SERVICOS DO ESTABELICIMENTO}[/color]
ClrScr[color=#000000];[/color]
writeln[color=#000000];[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'CLIENTE: '[/color][color=#000000],[/color]nome[color=#000000],[/color][color=#800000]' SUBTOTAL: RS'[/color][color=#000000],[/color]subTotal[color=#000000]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color] [color=#000000]//:x:y, x=casas a esquerda, y=números decimais[/color]
writeln[color=#000000];[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'Quais servicos foram prestados'[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[1] Corte R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]1[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[2] Unha R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]2[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[3] Tintura R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]3[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[4] Escova R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]4[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[5] Chapa R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]5[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[6] Progressiva R$'[/color][color=#000000],[/color]valores[color=#000000][[/color][color=#000000]6[/color][color=#000000]]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'[0] CALCULAR O PREJU!!!'[/color][color=#000000]);[/color]
[color=#000000]readln[/color][color=#000000]([/color]opcao[color=#000000]);[/color] [color=#000000]//ler a opcao[/color]
[color=#0000ff]if[/color] [color=#000000]([/color]opcao[color=#000000]>=[/color][color=#000000]1[/color][color=#000000])[/color] [color=#0000ff]and[/color] [color=#000000]([/color]opcao[color=#000000]<=[/color][color=#000000]6[/color][color=#000000])[/color] [color=#0000ff]then[/color] [color=#000000]//se opcao válida[/color]
subTotal[color=#000000]:=[/color]subTotal[color=#000000]+[/color]valores[color=#000000][[/color]opcao[color=#000000]];[/color] [color=#000000]//soma o respectivo valor no subTotal[/color]
[color=#0000ff]until[/color] opcao[color=#000000]=[/color][color=#000000]0[/color][color=#000000];[/color]
writeln[color=#000000];[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'Total a pagar: R$'[/color][color=#000000],[/color]subTotal[color=#000000]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
[color=#000000]write[/color] [color=#000000]([/color][color=#800000]'Valor pago : R$'[/color][color=#000000]);[/color] [color=#000000]readln[/color][color=#000000]([/color]dinheiro[color=#000000]);[/color]
[color=#000000]writeln[/color][color=#000000]([/color][color=#800000]'TROCO : R$'[/color][color=#000000],[/color]dinheiro[color=#000000]-[/color]subTotal[color=#000000]:[/color][color=#000000]0[/color][color=#000000]:[/color][color=#000000]2[/color][color=#000000]);[/color]
ReadKey[color=#000000];[/color] [color=#000000]//dar um pause antes de fechar[/color]
[color=#0000ff]END[/color][color=#000000].[/color]

Abraços

Compartilhar este post


Link para o post
Compartilhar em outros sites

Muito Obrigada para você que respondeu ,me ajudou Muitooooo....VALEU!!!:D

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×