pzim salao

PatMaia · 25 de junho de 2011

Nao consigo finalizar este programa me ajude....

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.

Simon Viegas · 25 de junho de 2011

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]