parece muito com um q eu fiz em python q tbm esta aki no vol, so que nesse eu adicionei soma de matrizes, ainda nao esta completo

• Download matematica.pas
• Enviar nova versão

Esconder código-fonte

Program ExemploPzim ;
Var raio
: real;
    area: real;
  pi: real;
 opcao: real;
 lado: real;
 areaq: real;
 areat: real;
 alt: real;
 base: real;
 basem: real;
 diagm: real;
 diagn: real;
 ca: real;
 a11: real;
 a12: real;
 a21: real;
 a22: real;
 b11: real;
 b12: real;
 b21: real;
 b22: real;
 c11: real;
 c12: real;
 c21: real;
 c22: real; 
 Begin
    textbackground( blue ) ;
    clrscr;
    writeln('--------------');  
    writeln('Geometria (1)');     
    writeln('Algebra   (2)');    
    writeln('--------------');     
    write('Escolha a materia:');
    readln(ca);     
   
   if (ca=1) then
   begin 
    textbackground( blue ) ;
      clrscr;
    writeln('----------------------');
    writeln('Area do quadrado  (1)');
    writeln('Area do triangulo (2)');
    writeln('Area do circulo   (3)');
    writeln('Area do trapezio  (4)');
    writeln('Area do losango   (5)'); 
    writeln('----------------------');
    write('Escolha uma das opçoes:');
      readln(opcao);
    
    
    if (opcao=3) then
    begin
     write('Informe o valor do raio: ');
       readln(raio);
      
     
      
     area:= raio*raio*3.14 ;
       writeln('A area e igual a: ', (area));
      
     pi:= raio*raio ;
    
     writeln('ou a area em Pi e igual a: ', (pi));
   end;
     
   if (opcao=1) then
   begin
    write('Informe o valor do lado do quadrado:');
    readln(lado); 
      
    
    areaq:= lado*lado ;
 
      
    writeln('Area igual a: ', (areaq));
     end; 
 
     if (opcao=2) then
     begin
    write('Informe a altura:');
    readln(alt);
    
    write('Informe o tamanho da base:');
    readln(base);
    
    areat:= alt*base ;
    
    writeln('Area igual a: ', (areat));
   end;  
    
   if (opcao=4) then
   begin
    write('Informe a base menor:');
    readln(base);
    
    write('Informe a base maior:');
    readln(basem);
    
    write('Informe a altura:');
    readln(alt);
    
    area:= (base+basem)*alt/2 ;
    
    writeln('Area igual a: ', (area));
    end;    
 
     if (opcao=5) then
     begin
      write('Informe a maior diagonal:');
      readln(diagm);
      
      write('Informe a menor diagonal:');
      readln(diagn);
      
      area:= (diagm*diagn)/2 ;
      
      writeln('Area igual a: ', (area));
     end; 
    end;
    
    if (ca=2) then
    begin
     writeln('Soma de matrizes');
   write('Digite A11:');
   readln(a11);
   write('Digite A12:');
   readln(a12);
   write('Digite A21:');
   readln(a21);
   write('Digite A22:');
   readln(a22);
   write('Digite B11:');
   readln(b11);
   write('Digite B12:');
   readln(b12);
   write('Digite B21:');
   readln(b21);
   write('Digite B22:');
   readln(b22);
   
   c11:= a11+b11 ;
   c12:= a12+b12 ;
   c21:= a21+b21 ;
   c22:= a22+b22 ;
   
   writeln('C11 igual á: ', (c11)); 
   writeln('C12 igual á: ', (c12));
   writeln('C21 igaul á: ', (c21)); 
   writeln('C22 igual á: ', (c22));
    end;      
     
      
 
 
 
 
 
 
 
 
 
 End.

GTK em (Free)Pascal

Sistemas númericos

Calculadora

Joguinho

Crivo de Eratóstenes Simples em Pascal