Program Pzim_Areas_volumes_perimetros_etc ;
 
 
 
 
 
 
 Var
sol,tip,tap:string;
vpt,vpq,vc,vpa,vci,ves,vcon,vprq,vprt,nota1,nota2,nota3,nota4,nota5,nota6,nota7,notaf:real;
bbpt,hbpt,hpt,lbpq,nam,amebpa,rbcon,colors,color,bbprt,hprt,hbprt,hcon,hprq,ac,hpa,aMbpa,hpq,hc,rbc,res,abprq,x,y,z:integer;
bt,ht,P,br,hr,Ar,xtr,ytr,htr,Xl,Yl,rc,ndisc,a,b,c,delta:integer ;
At,Atr,Al,aci,bc,ad,ac2,ac1:real ;
bool:string; 
xponto1,xponto2,yponto1,yponto2,beel,aa,ae,acb,sincostg,ab:integer;
distpontos:real;
 
 
 
 
 
 
 
 
 begin
 textbackground(black);
delay(100);
gotoxy(4,10);
writeln('++++++++++++++++ +++++++++++++++++ ++++++++++++++++ ++++            ++++');
gotoxy(4,11);
textcolor(red);
delay(100);
writeln('++++++++++++++++ +++++++++++++++++ ++++++++++++++++ ++++++        ++++++');
gotoxy(4,12);
textcolor(green);
delay(100);
writeln('+++          +++               +++       ++++       ++++++        ++++++');
gotoxy(4,13);
textcolor(blue);
delay(100);
writeln('+++          +++              +++        ++++       ++++  ++     ++ ++++');
gotoxy(4,14);
textcolor(yellow);
delay(100);
writeln('+++          +++             +++         ++++       ++++   ++   ++  ++++');
gotoxy(4,15);
textcolor(green);
delay(100);
writeln('++++++++++++++++            +++          ++++       ++++    ++ ++   ++++');
gotoxy(4,16);
textcolor(red);
delay(100);
writeln('++++++++++++++++           +++           ++++       ++++     ++     ++++');
gotoxy(4,17);
textcolor(white);
delay(100);
writeln('+++                       +++            ++++       ++++            ++++');
gotoxy(4,18);
textcolor(red);
delay(100);
writeln('+++                      +++             ++++       ++++            ++++');
gotoxy(4,19);
textcolor(blue);
delay(100);
writeln('+++                     +++              ++++       ++++            ++++');
gotoxy(4,20);
textcolor(green);
delay(100);
writeln('+++                    +++               ++++       ++++            ++++');
gotoxy(4,21);
textcolor(red);
delay(100);
writeln('+++                   +++                ++++       ++++            ++++');
gotoxy(4,22);
textcolor(blue);
delay(100);
writeln('+++                  +++                 ++++       ++++            ++++');
gotoxy(4,23);
textcolor(green);
delay(100);
writeln('+++                 +++                  ++++       ++++            ++++');
gotoxy(4,24);
textcolor(red);
delay(100);
writeln('+++               +++++++++++++++++ +++++++++++++++ ++++            ++++');
gotoxy(4,25);
textcolor(yellow);
delay(100);
writeln('+++               +++++++++++++++++ +++++++++++++++ ++++            ++++');
gotoxy(4,26);
textcolor(red);

 
 repeat
 
 Writeln('Escolha a cor de fundo:(1-vermelho, 2-verde , 3-azul ,4-preto, 5-amarelo, 6-castanho)');
 readln(color);
 Writeln('Agora escolhe a cor das letras:(1-vermelho, 2-verde , 3-azul ,4-preto, 5-amarelo, 6-castanho)');
 readln(colors);
 if color=colors then
 begin
 Writeln('O fundo e as letras nao podem ter a mesma cor');
 
 end;
 until color<>colors;
 if color=1 then
 textbackground(red);
 if color=2 then
 textbackground(green);
 if color=3 then
 textbackground(blue);
 if color=4 then
 textbackground(black);
 if color=5 then
 textbackground(yellow);
 if color=6 then
 textbackground(brown);
 
 
 if colors=1 then
 textcolor(red);
 if colors=2 then
 textcolor(green);
 if colors=3 then
 textcolor(blue);
 if colors=4 then
 textcolor(black);
 if colors=5 then
 textcolor(yellow);
 if colors=6 then
 textcolor(brown);
 
 
 
 bool:='sim';
      repeat
 writeln('1-Volumes, 2-Perimetros, 3-Areas, 4-Media das notas, 5-Distancia entre pontos, 6-Calculadora, 7-Trigonometria, 8-Formula Resolvente');
 readln(nam);
 clrscr;
 if nam=1 then
 begin
 writeln('Gostaria de descobrir o volume de que solido?');
 writeln('piramide,cubo,paralelepipedo,cilindro,esfera,cone,prisma');
 readln(sol);
  if sol='piramide' then
   begin
   writeln('Qual o tipo da piramide?(triangular, quadrangular)');
   readln(tip);
   if tip='triangular' then
   begin
    writeln('Atribua um valor a base do triangulo(do triangulo e a forma da base da piramide)');
    readln(bbpt);
    writeln('Atribua um valor a altura do triangulo(o triangulo da base)');
    readln(hbpt);
    writeln('Atribua um valor a altura da piramide triangular');
    readln(hpt);
    vpt:=(bbpt*hbpt*hpt)/6;
    writeln('O volume da piramide triangular:');
    writeln(vpt);
    end;
   if tip='quadrangular' then
    begin
    writeln('Atribua um valor ao lado do quadrado(quadrado da piramide)');
    readln(lbpq);
    writeln('Atribua um valor a altura da piramide quadrangular');
    readln(hpq);
    vpq:=lbpq*hpq;
    writeln('O volume da piramide quadrangular:');
    writeln(vpq);
    end;
   end;
   if sol='cubo' then
   begin
   writeln('Escolha a medida da aresta do cubo:');
   readln(ac);
   vc:=ac*ac*ac;
   writeln('O volume do cubo:');
   writeln(vc);
   end;
   if sol='paralelepipedo' then
   begin
   writeln('Como a base do paralelepipedo e retangular atribua um valor a uma das arestas da base:');
   readln(amebpa);
   writeln('Agora atribua um valor a outra aresta da base:');
   readln(aMbpa);
   Writeln('Finalmente atribua um valor a altura do paralelepipedo:');
   readln(hpa);
   vpa:= ambpa*aMbpa*hpa;
   writeln('Volume do paralelepipedo:');
   writeln(vpa)
   end;
   if sol='cilindro' then
   begin
   writeln('Primeiro vamos tratar da base');
   writeln('Atribua um valor ao raio da base do cilindro:');
   readln(rbc);
   Writeln('Agora atribua um valor a altura do cilindro:');
   readln(hc);
   vci:=3.14*rbc*rbc*hc;
   writeln('Volume do cilindro:');
   writeln(vci);
   end;
   if sol='esfera' then
   begin
   writeln('Atribua um valor ao raio da esfera');
   readln(res);
   ves:=(4*3.14*res*res*res)/3;
   writeln('Volume da esfera:');
   writeln(ves);
   end;
   if sol='cone' then
   begin
   writeln('Primeiro vamos tratar da base');
   writeln('Atribua um valor ao raio da base do cone:');
   readln(rbcon);
   Writeln('Agora atribua um valor a altura do cone:');
   readln(hcon);
   vcon:=(3.14*rbcon*rbcon*hcon)/3;
   writeln('Volume do cone:');
   writeln(vcon);
   end;
   if sol='prisma' then
   begin
   writeln('Qual a forma da base do prisma?(quadrado ou triangulo)');
   readln(tap);
    if tap='quadrado' then
    begin
    writeln('Atribua um valor a aresta da base:');
    readln(abprq);
    writeln('Atribua um valor a altura do prisma:');
    readln(hprq);
    vprq:=abprq*abprq*hprq;
    writeln('Volume do prisma quadrangular:');
    writeln(vprq);
    end;
    if tap='triangulo' then
    begin
    writeln('Atribua um valor a base da base do prisma:');
    readln(bbprt);
    writeln('Atribua um valor a altura da base do prisma:');
    readln(hbprt);
    writeln('Atribua um valor a altura do prisma:');
    readln(hprt);
    vprt:=bbprt*hbprt*hprt;
    writeln('O volume do prisma triangular:');
    writeln(vprt);
    end;
    end;
    end;
    if nam=2 then
    begin
 writeln('Quantos lados tem a figura de que quer determinar o perimetro?(1,2,3,4...)');
 readln(x);
 writeln('Escreva a medida do lado da figura');
 readln(y);
 z:=x*y;
 Writeln('O perimetro da figura é');
 writeln(z);
 end;
   if nam=3 then
    begin
      
      
      writeln('Queres calcular a area de que figura? 1-Triângulo, 2-retângulo, 3-trapézio,      4-losango, 5-círculo' );
      readln(P);
      if P=1 then 
      begin
	 writeln('Escolha o tamanho da base do triângulo:');
      readln(bt);
      writeln('Escolha a altura do triangulo:');
      readln(ht);
      At:= (bt*ht)/2 ;
      Writeln('A área do seu triangulo é:');
      writeln(At);
      end;
      if P=2 then 
      begin
      writeln('Escolha o tamanho da base do retângulo:');
      readln(br);
      writeln('Escolha a altura do  retângulo:');
      readln(hr);
      Ar:=br*hr;
      writeln('Aqui está a área do seu retângulo');
      writeln(Ar);
      end;
      if P=3 then 
      begin
      writeln('Escolha o tamanho da base maior do trapézio:');
      readln(xtr);
      writeln('Escolha o tamanho na base menor do trapézio:');
      readln(ytr);
      writeln('Escolha a altura do trapézio:');
      readln(htr);
	 Atr:=((xtr+ytr)/2)*htr;
      writeln('Aqui está a área do seu trapézio');
      writeln(Atr);
      end;
      if P=4 then
	 begin
      writeln('Escolha o tamanho da diagonal maior do losango:');
      readln(Xl);
      writeln('Escolha o tamanho na diagonal menor do losango:');
      readln(Yl);
      Al:=(Xl*Yl)/2;
	 writeln('Aqui está a área do seu losango');
      writeln(Al);
      end;
      if P=5 then
	 begin
      writeln('Escolha o raio do círculo:');
      readln(rc);
      
      Aci:=rc*3.14;
	 writeln('Aqui está a área do seu Círculo:');
      writeln(Aci);
      end;
      end;
      
	 if nam=4 then
	 begin
	 Writeln('Qual o numero de disciplinas de que quer fazer a media?(5-7)');
	 readln(ndisc);
	     if ndisc=5 then
		begin
		writeln('Escreva 5 notas finais clicando "enter" entre cada uma:');
		readln(nota1);
		readln(nota2); 
	     readln(nota3);
	     readln(nota4);
	     readln(nota5);
	      notaf:=(nota1+nota2+nota3+nota4+nota5)/5;
	      Writeln('Media Final:');
	      writeln(notaf);
	      end;
	      if ndisc=6 then
		begin
		writeln('Escreva 6 notas finais clicando "enter" entre cada uma:');
		readln(nota1);
		readln(nota2); 
	     readln(nota3);
	     readln(nota4);
	     readln(nota5);
	     readln(nota6);
		 notaf:=(nota1+nota2+nota3+nota4+nota5+nota6)/6;
	      Writeln('Media Final:');
	      writeln(notaf);
	      end;
	      if ndisc=7 then
		begin
		writeln('Escreva 7 notas finais clicando "enter" entre cada uma:');
		readln(nota1);
		readln(nota2); 
	     readln(nota3);
	     readln(nota4);
	     readln(nota5);
	     readln(nota6);
	     readln(nota7);
		 notaf:=(nota1+nota2+nota3+nota4+nota5+nota6+nota7)/7;
	      Writeln('Media Final:');
	      writeln(notaf);
	      end;
	  end;
	  if nam=5 then
	  begin
Writeln('Comecemos pelas coordenadas de um ponto');
writeln('Escreva a abcissa(x) dum ponto:');
readln(xponto1);
writeln('Escreva a ordenada do ponto:');
readln(yponto1);
writeln('Escreva a abcissa(x) do outro ponto:');
readln(xponto2);
writeln('Escreva a ordenada do outro ponto:');
readln(yponto2);
Distpontos:= sqrt((xponto2-xponto1)*(xponto2-xponto1)+(yponto2-yponto1)*(yponto2-yponto1));
Writeln('A distancia entre os ponteos é:');
writeln(distpontos);
end;
    if nam=6 then
	 Begin
 Writeln('1-adiçao, 2-subtraçao ,3-multiplicaçao ,4-divisao');
 readln(beel);
 clrscr;
 if beel=1 then
 begin
 writeln('Esvreva dois numeros(separe-os por um "enter")');
 readln(aa);
 readln(ae);
 clrscr;
 acb:=aa+ae;
 Writeln(acb);
 end;
 if beel=2 then
 begin
 writeln('Esvreva dois numeros(separe-os por um "enter")');
 readln(aa);
 readln(ae);
 clrscr;
 acb:=aa-ae;
 Writeln(acb);
 end;
 if beel=3 then
 begin
 writeln('Esvreva dois numeros(separe-os por um "enter")');
 readln(aa);
 readln(ae);
 clrscr;
 acb:=aa*ae;
 Writeln(acb);
 end;
 if beel=4 then
 begin
 repeat
 writeln('Esvreva dois numeros(separe-os por um "enter")');
 readln(aa);
 readln(ae);
  if ae=0 then
  begin
  writeln('Erro');
  
  end;
 until ae<>0 ; 
 clrscr;
 bc:=aa/ae;
 Writeln(bc);
 end;
 End;
	 
     if nam=7 then	 
	Begin
   writeln('Trigonometria');
   writeln('Escolha: 1-sin, 2-cos, 3-tg');
   readln(sincostg);
     if sincostg=1 then
     begin
     writeln('Atribua um valor ao cateto oposto ');
     readln(aa);
     writeln('Atribua um valor a hipotenusa do triangulo');
     readln(ab);
     ad:=aa/ab;
	writeln('O sen do angulo:');
     writeln(ad);
     end;
     if sincostg=2 then
     begin
     writeln('Atribua um valor ao cateto adjacente ');
     readln(aa);
     writeln('Atribua um valor a hipotenusa do triangulo');
     readln(ab);
     ad:=aa/ab;
     writeln('O cos do angulo:');
     writeln(ad);
     end;
     if sincostg=3 then
     begin
     writeln('Atribua um valor ao cateto oposto ');
     readln(aa);
     writeln('Atribua um valor ao cateto adjacente');
     readln(ab);
     ad:=aa/ab;
     writeln('A tg do angulo:');
     writeln(ad);
     end;
   
 End;
 if nam=8 then
  Begin
   writeln('ax^2+bx+c');
   writeln('Atribua um valor a "a"');
   readln(a);
   writeln('Atribua um valor a "b"');
   readln(b);
   writeln('Atribua um valor a "c"');
   readln(c);
   delta:=b*b-4*a*c;
      if delta>0 then
      begin
      ac2:=(-b+sqrt(delta))/(2*a);
      ac1:=(-b-sqrt(delta))/(2*a);
      Writeln('Dois resultados possiveis');
      writeln(ac2);
      writeln(ac1);
      end;
      if delta=0 then
      begin
      ac2:=(-b)/(2*a);
     
      Writeln('Um resultado possivel');
      writeln(ac);
      end;
      if delta<0 then
      begin
      writeln('Sem resultados possiveis');
      end;
 
 
 
 End; 
	  writeln('Quer continuar?(sim ou nao)');
      readln(bool);
      until bool='nao' ;
	 
	 
	 
	  end.