Ir ao conteúdo
  • Cadastre-se

maxmedeiros

Membro Júnior
  • Posts

    1
  • Cadastrado em

  • Última visita

Tudo que maxmedeiros postou

  1. Olá galera, estou fazendo um curso e me foi passado um problema ao qual pesquisei muito, porém na hora da execução está dando o seguinte erro: =>erro sintático na linha 216 =>'$' não especificado! segue o código para que vocês possam me ajudar. desde já agradeço. program Calculadora; //uses Crt; // {Função: Calcular} // {Autor: MaxMediros} // {Data: 18/10/2017} function sqr( x,y :real ) : real; var decidir,decidir2: string; x, y, valor1, valor2, a, b, c, delta: real; final: string; begin Final := 'Sim'; while (final = 'sim') do begin writeln ('|Digite 1 Para ADIÇÃO |'); writeln ('|Digite 2 Para SUBTRAÇÃO |'); writeln ('|Digite 3 Para DIVISÃO |'); writeln ('|Digite 4 Para MULTIPLICAÇÃO |'); writeln ('|Digite 5 Para BHASKARA |'); writeln ('|Digite 6 Para PORCENTAGEM |'); writeln ('|Digite 7 Para POTÊNCIA |'); writeln ('|Digite 8 Para ÁREAS |'); writeln ('|Digite 9 Para RAÍZ |'); writeln ('|Digite 10 Para Sair |'); readln (decidir); end; ClrScr; if (decidir = '10') then begin writeln ('Finalizando Programa...'); end; if (decidir = '2') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X - Y); writeln ('O resultado é:', valor1); end; if (decidir = '1') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X + Y); writeln ('O resultado é:', valor1); end; if (decidir = '4') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X * Y); writeln ('O resultado é:', valor1); end; if (decidir = '3') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor de y:'); readln (y); valor1 := (X / Y); writeln ('O resultado é:', valor1); end; if (decidir = '7') then begin writeln ('Digite o valor de X:'); readln (x); writeln ('Digite o valor do Expoente:'); readln (y); valor1 := ( sqr((y),(Y))); writeln ('O resultado é: ', valor1); end; if (decidir = '6') then begin writeln ('Digite a Porcentagem de X:'); readln (x); writeln ('Digite o Valor de X:'); readln (y); Valor1 := (x / 100); Valor2 := (Valor1 * y); writeln ('O resultado é:', valor2); end; if (decidir = '9') then begin writeln ('Digite a Raiz:'); readln (y); valor1 := (RaizQ (y)); writeln ('O resultado é:', valor1); end; if (decidir = '5') then begin writeln ('Digite o valor de A: '); readln (a); writeln ('Digite o valor de B: '); readln (b); writeln ('Digite o valor de C: '); readln (c); delta :=(bsqr(readln (c),2))-(4*a*c); valor1 := ((-b) + (RaizQ(delta)))/(2*a); valor2 := ((-b) - (RaizQ(delta)))/(2*a); writeln ('Delta:', delta); writeln ('x1:', valor1); writeln ('X2:', valor2); end; if (Decidir = '8') then begin writeln ('Qual dessas áreas desejas:'); writeln (' a) Paralelepípedo;'); writeln (' Triângulo;'); writeln (' c) Quadrado;'); writeln (' d) Circunferência;'); writeln (' e) Cubo;'); writeln (' f) Cone;'); writeln (' g) Voltar ao menu inicial'); readln (decidir2); end; if (decidir2 = 'a') then begin writeln ('Digite o valor de A:'); readln (a); writeln ('Digite o valor de B:'); readln (b); writeln ('Digite o valor de C:'); readln (c); // {at = 2 (ab + bc + ac)}; valor1 := (a*b) + (b*c) + (a*c); valor2 := (2 * valor1); writeln ('A área total é:', valor2); end; if (decidir2 = 'b') then begin writeln ('Digite o valor da Base:'); readln (a); writeln ('Digite o valor da Altura:'); readln (b); valor1 := (a*b / 2); // {V = B * H /2}; writeln ('A área total é:', valor1); end; if (decidir2 = 'c') then begin writeln ('Digite o valor do Lado: '); readln (a); valor1 := (a*a); // { Lado²}; writeln ('Área total:', valor1); end; if (decidir2 = 'd') then begin writeln ('Digite o valor do Raio:'); readln (a); alor1 := (a*a) * 3.14; // { At = Pi * Raio²} writeln ('Área total:', valor1); end; if (decidir2 = 'e') then begin writeln ('Digite o valor do Lado:'); readln (a); valor1 := (a*a) * 6 ; // {6*Lado²}; writeln ('A área total é:', valor1); end; if (decidir2 = 'f') then begin writeln ('Digite o valor do Raio:'); readln (a); writeln ('Digite o valor da Geratriz:'); readln (b); valor1 := ((3.14 * a) * (b + a)); // {Pi * r (g+ r)}; writeln ('A área total é:', valor1); end; if ((decidir <> '1') and (decidir <> '2') and (decidir <> '9') and (decidir <> '3') and (decidir <> '4') and(decidir <> '5') and (decidir <> '6') and (decidir <> '7') and (decidir <> '8')) then begin writeln ('Operação inexistente'); end; writeln ('Queres continuar?'); readln (Final); {Fimenquanto} writeln ('Finalizando...'); end.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...