Os Métodos Computacionais

//Calcular media na UNICAP

clear

clc

n=evstr(x_dialog("Clique na caixa de texto e digite o seu nome entre aspas. Depois clique ok",""""""));

d=evstr(x_dialog("Clique na caixa de texto e digite o nome da diciplina entre aspas. Depois clique ok",""""""));

x1=evstr(x_dialog("Clique na caixa de texto e digite a nota do 1º GQ. Depois clique ok",""));

x2=evstr(x_dialog("Clique na caixa de texto e digite a nota do 2º GQ. Depois clique ok",""));

m=(x1*2+x2*3)/5;

if m>=5 & x2>=3 then

messagebox(msprintf(gettext("Nome do(a) aluno(a): %s \n Diciplina: %s\n Nota do 1º GQ:%2.1f\n Nota do 2ºGQ %2.1f\n Média: %2.1f \n-------------------------\n Parabens. Você foi aprovado por media\n-------------------------"),n,d,x1,x2,m),"situação do aluno");

else

if m<3 then

messagebox(msprintf(gettext("Nome do(a) aluno(a): %s \n Diciplina: %s\n Nota do 1º GQ: %2.1f\n Nota do 2ºGQ %2.1f\n Média: %2.1f \n-------------------------\n Choro pra tu. Você foi reprovado por media\n-------------------------"),n,d,x1,x2,m),"situação do aluno");

else

if m>=3 | m<5 then

messagebox(msprintf(gettext("Nome do(a) aluno(a): %s \n Diciplina: %s\n Nota do 1º GQ:%2.1f\n Nota do 2ºGQ %2.1f\n Média: %2.1f \n-------------------------\n ultima chance. Você vai fazer exame final precisando de no minimo %2.1f\n-------------------------"),n,d,x1,x2,m,10-m),"situação do aluno");

end

end

end

//Calcular logaritmo

clear

clc

w=1;

while(w==1)

x=-1;

while(x<=0)

x=evstr(x_dialog("Clique na caixa de texto e digite o valor para o qual você deseja calcular o logaritmo. Depois clique ok",""));

if x<=0 then

messagebox("Valor inválido, digite um nímero maior que zero. Aguarde...");

sleep(5000)

else

end

end

b=evstr(x_dialog("Clique na caixa de texto e digite o valor da base do logaritmo. Depois clique ok",""));

l=log(x)/log(b);

messagebox(msprintf(gettext("O logaritimo de %f na base %d é: %f"),x,b,l), "Calculo do logaritmo");

op=messagebox("Deseja calcular mais um logaritmo?","Modal","question",["SIM","NÃO"])

if op==1 then

w=1;

else

w=2;

end

end

// este programa calcula a área de um poligono

clear

clc

op=messagebox("Selecione o poligono","modal",["triangulo","retangulo","trapezio"]);

if op==1 then

b=evstr(x_dialog("clique na caixa de texto e digite a valor da base do triangulo. depois clique ok",""));

h=evstr(x_dialog("clique na caixa de texto e digite a valor da altura do triangulo. depois clique ok",""));

area=b*h/2;

messagebox(msprintf(gettext("base:%5.2f \n altura %5.2f \n---------------\n area: %5.2f \n---------------"),b,h,area),"ÁREA DO TRIÂNGULO");

else

if op==2 then

b=evstr(x_dialog("clique na caixa de texto e digite a valor da largura do retangulo. depois clique ok",""));

h=evstr(x_dialog("clique na caixa de texto e digite a valor da altura do retangulo. depois clique ok",""));

area=b*h;

messagebox(msprintf(gettext("base:%5.2f