fevereiro | 2017 | Prisma

Criei uma função para fórmula de Bhaskara. Fique a vontade para modificá-la e usar em seus programas:

//programa para calcular equações quadráticas

imprima"digite o valor de a depois de b e c:\n(na ausência de 'c' coloque zero ou dê ENTER apenas)\n"

es.escreva'a: ';
a = convnumero(leia());
es.escreva'b: ';
b = convnumero(leia());
es.escreva'c: ';
c = convnumero(leia());

a = a ou 1;
b = b ou 1;
c = c ou 0;


funcao Bhaskara(a,b,c)
  local delta = b^2 - (4*a*c);
  se delta < 0 entao 
    imprima('Delta Negativo, não possui resolução\nEnter para sair...');
    leia();
    sis.saia(1);
  senaose delta == 0 entao
    imprima('Delta = 0, apenas uma solução:');
  fim

  local res_delta = mat.raizquad(delta);
  local xa1 = (-1 * b) + res_delta
  local xa2 =  2 * a;
  se xa2 == 0 entao erro'Divisao por zero' fim
  local x1 = xa1 / xa2;
  local xb1 = (-1 * b) - res_delta;
  local xb2 = (2 * a );
  se xb2 == 0 entao erro'Divisao por zero' fim
  local x2 = xb1 / xb2;
  //imprima( "valor b - =", xb1 .. ' / ' .. xb2 ..' = ' .. x2);
  retorne {x1, xa1,xa2} , {x2,xb1,xb2};
fim

 b1 , b2 = Bhaskara(a,b,c); 
 
 imprima( "\nvalor b + =" , b1[2] .. ' / ' .. b1[3] .. ' = ' .. b1[1]);
 imprima( "valor b - =" , b2[2] .. ' / ' .. b2[3] .. ' = ' .. b2[1]);

/**
  b[1] = resultado final +/-
  b[2] = parte de cima da fração
  b[3] = parte de baixo da fração
  
**///

//programa para calcular equações quadráticas

imprima"digite o valor de a depois de b e c:\n(na ausência de 'c' coloque zero ou dê ENTER apenas)\n"

es.escreva'a: ';

a = convnumero(leia());

es.escreva'b: ';

b = convnumero(leia());

es.escreva'c: ';

c = convnumero(leia());

a = a ou 1;

b = b ou 1;

c = c ou 0;

funcao Bhaskara(a,b,c)

local delta = b^2 - (4*a*c);

se delta < 0 entao

imprima('Delta Negativo, não possui resolução\nEnter para sair...');

leia();

sis.saia(1);

senaose delta == 0 entao

imprima('Delta = 0, apenas uma solução:');

fim

local res_delta = mat.raizquad(delta);

local xa1 = (-1 * b) + res_delta

local xa2 = 2 * a;

se xa2 == 0 entao erro'Divisao por zero' fim

local x1 = xa1 / xa2;

local xb1 = (-1 * b) - res_delta;

local xb2 = (2 * a );

se xb2 == 0 entao erro'Divisao por zero' fim

local x2 = xb1 / xb2;

//imprima( "valor b - =", xb1 .. ' / ' .. xb2 ..' = ' .. x2);

retorne {x1, xa1,xa2} , {x2,xb1,xb2};

fim

b1 , b2 = Bhaskara(a,b,c);

imprima( "\nvalor b + =" , b1[2] .. ' / ' .. b1[3] .. ' = ' .. b1[1]);

imprima( "valor b - =" , b2[2] .. ' / ' .. b2[3] .. ' = ' .. b2[1]);

/**

b[1] = resultado final +/-

b[2] = parte de cima da fração

b[3] = parte de baixo da fração

**///

Falou gente, até a próxima.

Continue reading →

Prisma

linguagem de programação em português

Month: fevereiro 2017

Configurando acesso remoto no MySQL Xampp Linux

Função para fórmula de Bhaskara

Novas funções de string

Nova versão para Linux